* IMPRoVeD: umx_is_class robust to being given a tibble

closes #101 (might need to re-open if there are more cases of where toggling drop from TRUE to FALSE interferes with data types)
tbates · Aug 16, 2019 · e023276 · e023276
1 parent df44470
commit e023276
Show file tree

Hide file tree

Showing 4 changed files with 28 additions and 26 deletions.
diff --git a/R/misc_and_utility.R b/R/misc_and_utility.R
@@ -4519,6 +4519,7 @@ umx_scale <- function(df, varsToScale = NULL, coerce = FALSE, attr = FALSE, verb
 #' umx_is_class(mtcars, c("character", "numeric"))
 #' # Is zygosity a factor (note we don't drop = F to keep as dataframe)
 #' umx_is_class(twinData[,"zygosity", drop=FALSE], classes = "factor")
+#' umx_is_class(mtcars$mpg) # report class of this column (same as class(mpg))
 umx_is_class <- function(df, classes=NULL, all = TRUE){
 	if(!is.data.frame(df)){
 		if(is.null(classes)){
@@ -4532,7 +4533,7 @@ umx_is_class <- function(df, classes=NULL, all = TRUE){
 	i = 1
 	if(is.null(classes)){
 		for (n in colNames) {
-			bIsOK[i] = class(df[, n])[1]
+			bIsOK[i] = class(df[, n, drop = TRUE])[1]
 			i = i + 1
 		}
 		return(bIsOK)

diff --git a/man/umxPower.Rd b/man/umxPower.Rd
diff --git a/man/umx_is_class.Rd b/man/umx_is_class.Rd
diff --git a/man/umx_set_silent.Rd b/man/umx_set_silent.Rd