check for missing id in easter eggs

HammerGS · Sep 26, 2019 · 349e466 · 349e466
1 parent 58d0f28
commit 349e466
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/functions/naming_functions.R b/functions/naming_functions.R
@@ -546,7 +546,11 @@ convert_arabic2roman <- function(arabic) {
 }
 
 add_easter_eggs <- function(system, id) {
-
+
+  if(is.na(id)) {
+    return(system)
+  }
+
   idx <- which(system$planets$inhabitable)
   if(length(idx)==0) {
     return(system)