extractInstallPkg can now deal with require() calls

BIMSBbioinfo · Dec 21, 2023 · 18c8678 · 18c8678
1 parent 7cab7f8
commit 18c8678
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/R/extractInstallPkg.R b/R/extractInstallPkg.R
@@ -73,11 +73,10 @@ extractInstallPkg<-function(code){
   # For each line look for library call and install things if not installed
   for(a in 1:length(code_lines)){
 
-    if(grepl("library\\(", code_lines[a])){
-      new_code <- gsub("library\\((.*)\\)", "check_install('\\1')", code_lines[a])
+    if(grepl("(install|require)\\(", code_lines[a])){
+      new_code <- gsub("(install|require)\\((.*)\\)", "check_install('\\2')", code_lines[a])
       message("trying to install ",new_code,"\n")
       eval(str2expression(new_code)) # Execute install code
-
     }
   }
 }