last fix

philchalmers · Nov 19, 2015 · dbd3834 · dbd3834
1 parent 452c675
commit dbd3834
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/itemplot.R b/R/itemplot.R
@@ -107,7 +107,7 @@ itemplot <- function(object, item, type = 'trace', degrees = 45, CE = FALSE, CEa
                              CEalpha=CEalpha, CEdraws=CEdraws, drop.zeros=drop.zeros, rot=rot,
                              theta_lim=theta_lim, par.strip.text=par.strip.text,
                              par.settings=par.settings, auto.key=auto.key, ...)
-    if(object@Options$exploratory)
+    if(!is.list(object) && object@Options$exploratory)
         ret$main <- paste0(ret$main, ' (rotate = \'', rotate, '\')')
     return(ret)
 }