Update getOpals.R

datashield · May 3, 2015 · 29c5144 · 29c5144
1 parent 3553c2c
commit 29c5144
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/getOpals.R b/R/getOpals.R
@@ -19,7 +19,7 @@ getOpals <- function(){
     flag <- 0
     for(i in 1:length(objs)){
       cl1 <- class(eval(parse(text=objs[i])))
-      if(cl1 == 'list'){
+      if(cl1[1] == 'list'){
         # if an object is not an empty list check if its elements are of type 'opal'
         list2check <- eval(parse(text=objs[i]))
         if(length(list2check) > 0){
@@ -48,4 +48,4 @@ getOpals <- function(){
     return(list("flag"=flag, "opals"=NULL))
   }
 
-}
+}