@@ -68,20 +68,20 @@ for (app_path in list.dirs("inst/apps", recursive = FALSE)) {
6868 }
6969 }
7070
71- # Make sure shinycoreci is not used within an app
72- for (file in dir(app_path , recursive = TRUE , full.names = TRUE , pattern = " \\ .(R|Rmd)$" )) {
73- # Ignore first 000 apps
74- if (grepl(" ^inst/apps/000-" , file )) next
71+ # # Make sure shinycoreci is not used within an app
72+ # for (file in dir(app_path, recursive = TRUE, full.names = TRUE, pattern = "\\.(R|Rmd)$")) {
73+ # # Ignore first 000 apps
74+ # if (grepl("^inst/apps/000-", file)) next
7575
76- file_lines <- readLines(file )
77- if (any(grepl(" shinycoreci)" , file_lines , fixed = TRUE ))) {
78- stop(" File `" , file , " ` contains library() or require() call to {shinycoreci}. Remove usage of {shinycoreci}." )
79- }
80- file_lines <- gsub(" shinycoreci::::" , " shinycoreci____" , file_lines )
81- if (any(grepl(" shinycoreci::" , file_lines , fixed = TRUE ))) {
82- stop(" File `" , file , " ` contains usage of {shinycoreci}. Replace this code." )
83- }
84- }
76+ # file_lines <- readLines(file)
77+ # if (any(grepl("shinycoreci)", file_lines, fixed = TRUE))) {
78+ # stop("File `", file, "` contains library() or require() call to {shinycoreci}. Remove usage of {shinycoreci}.")
79+ # }
80+ # file_lines <- gsub("shinycoreci::::", "shinycoreci____", file_lines)
81+ # if (any(grepl("shinycoreci::", file_lines, fixed = TRUE))) {
82+ # stop("File `", file, "` contains usage of {shinycoreci}. Replace this code.")
83+ # }
84+ # }
8585 }, error = function (e ) {
8686 errors_found [[length(errors_found ) + 1 ]] <<- e
8787 })
0 commit comments