Added data() and system() to list of forbidden functions.

MansMeg · Jan 8, 2016 · 3922b78 · 3922b78
1 parent a0f1314
commit 3922b78
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/mark_my_assignment.R b/R/mark_my_assignment.R
@@ -252,7 +252,7 @@ delete_circular_calls <- function(mark_file){
   forbidden <- c(
     "mark_my_assignment", "mark_my_dir", "set_assignment", "mark_my_file",
     "install.packages", "utils::install.packages",
-    "devtools::install_github", "install_github")
+    "devtools::install_github", "install_github", "data", "system")
   regex <- paste("(^|;| )", forbidden, "\\(.*\\)", sep = "")
   for(pattern in regex){
     txt <- gsub(pattern = pattern, replacement = "", x = txt)