From e99010ce8df2285f065dd4fe686eb0ca65418542 Mon Sep 17 00:00:00 2001
From: Sam Wilks <sw463@cam.ac.uk>
Date: Wed, 12 Jun 2019 08:30:36 +0100
Subject: [PATCH] Fix bug printing info on maps with no optimizations runs

---
 Racmacs/R/map_methods.R | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Racmacs/R/map_methods.R b/Racmacs/R/map_methods.R
index afeea266..ffc2486c 100644
--- 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))