use inherits to check classes

Author: tanho63

R/0_helpers.R

@@ -12,7 +12,7 @@
     date <- Sys.Date()
   }
 
-  if (class(date) != "Date") {
+  if (!inherits(date, "Date")) {
     date <- as.Date(date)
   }
 

R/mfl_players.R

@@ -18,7 +18,7 @@
 #' @export
 
 mfl_players <- function(conn = NULL) {
-  if (!is.null(conn) && class(conn) != "mfl_conn") {
+  if (!is.null(conn) && !inherits(conn, "mfl_conn")) {
     stop("conn must be generated by 'mfl_connect()' and have type 'mfl_conn'")
   }