Fix error message when draft() is called with unknown type

pbs-assess · Sep 27, 2023 · 88c52c6 · 88c52c6
1 parent fdf93dd
commit 88c52c6
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/R/draft.R b/R/draft.R
@@ -47,9 +47,8 @@ draft <- function(type = c("resdoc", "resdoc-b", "sr", "techreport", "manureport
     if(!type %in% c("resdoc", "resdoc-b", "sr", "techreport", "manureport")){
       alert(csas_color("type"), " should be one of ",
             csas_color("resdoc"), ", ", csas_color("resdoc-b"), ", ",
-            csas_color("sr"),
-            csas_color("techreport"), ", or ", csas_color("manureport"),
-            call. = FALSE)
+            csas_color("sr"), ", ",
+            csas_color("techreport"), ", or ", csas_color("manureport"))
     }
     package <- "csasdown"
   }else{