allow add.attribute to take a data.frame - convert to named list
authorandrewwbutler <andrew.butler33@gmail.com>
Fri, 9 Feb 2018 19:43:20 +0000 (14:43 -0500)
committerandrewwbutler <andrew.butler33@gmail.com>
Fri, 9 Feb 2018 19:43:20 +0000 (14:43 -0500)
R/loom.R

index 1168bb7a5e7dcab7ba9d80fec2027981c3bc9107..f4e0c20412c99766a3e0057229de03b2de3ec197 100644 (file)
--- a/R/loom.R
+++ b/R/loom.R
@@ -274,9 +274,12 @@ loom <- R6Class(
         stop(private$err_mode)
       }
       # Value checking
-      is.actual.list <- is.list(x = attribute) && !is.data.frame(x = attribute)
+      if (is.data.frame(x = attribute)) {
+        attribute <- as.list(x = attribute)
+      }
+      is.actual.list <- is.list(x = attribute)
       if (!is.actual.list || is.null(x = names(x = attribute))) {
-        stop("Attributes must be provided as a named list (dataframes excluded)")
+        stop("Attributes must be provided as a named list")
       }
       # if (is.data.frame(x = attribute)) {
       #   attribute <- as.list(x = attribute)