* IMPROVED: umxAPA handles tibbles

R/fit_and_reporting.R

@@ -4603,7 +4603,10 @@ umxAPA <- function(obj = .Last.value, se = NULL, p = NULL, std = FALSE, digits =
 		}
 		cat(o)
 		invisible(o)
-	}else if("data.frame" == class(obj)[[1]]){
+	}else if(class(obj)[[1]] %in% c("data.frame", "tbl_df") ) {
+		if(class(obj)[[1]] =="tbl_df"){
+			obj = data.frame(obj)
+		}
 		# Generate a summary of correlation and means
 		# TODO umxAPA could upgrade strings to factors here (instead of stopping)...
 		if(!any(is.na(cols))){

R/misc_and_utility.R

@@ -1992,7 +1992,7 @@ umx_apply <- function(FUN, of, by = c("columns", "rows"), ...) {
 
 #' umx_as_numeric
 #' 
-#' Convert each column of a dataframe to numeric
+#' Apply as.numeric to multiple columns of a dataframe.
 #'
 #' @param df A [data.frame()] to convert
 #' @param which which columns to convert (default (null) selects all)
@@ -6528,7 +6528,7 @@ umx_merge_randomized_columns <- function(colNames, df, levels = colNames, newVar
 	return(df)
 }
 
-#' Change data family data from wide (2 twins per row) to long format.
+#' Change twin data from wide (2 twins per row) to long format.
 #'
 #' @description
 #' Just detects the data columns for twin 1, and twin 2, then returns them stacked