check variable names

TiagoOlivoto · Jan 26, 2021 · 32e088a · 32e088a
1 parent e47d533
commit 32e088a
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/utilities.R b/R/utilities.R
@@ -628,6 +628,9 @@ column_to_rownames <- function(.data, var = "rowname"){
   df <-
     as.data.frame(.data) %>%
     remove_rownames()
+  if(!var %in% colnames(df)){
+    stop("Variable '", var, "' not in data.", call. = FALSE)
+  }
   rownames(df) <- df[[var]]
   df[[var]] <- NULL
   df