Fix bug printing info on maps with no optimizations runs

acorg · Jun 12, 2019 · e99010c · e99010c
1 parent 0705984
commit e99010c
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/Racmacs/R/map_methods.R b/Racmacs/R/map_methods.R
@@ -25,7 +25,9 @@ print.rac <- function(map, all = FALSE){
   if(!all){
 
     # Print only a summary of optimizations
-    class(map$optimizations) <- "racoptimizations"
+    if(!is.null(map$optimizations)){
+      class(map$optimizations) <- "racoptimizations"
+    }
 
     # Work out which attributes not to print
     null_attributes <- vapply(map, is.null, logical(1))