Use as.character(user_code) in check_blanks() to avoid issue with…

… unserialized user code in R < 3.5
rossellhayes · Jul 6, 2021 · 4c023ec · 4c023ec
1 parent 5f5f0fb
commit 4c023ec
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/R/exercise.R b/R/exercise.R
@@ -688,9 +688,11 @@ exercise_code_chunks <- function(chunks) {
 }
 
 check_blanks <- function(user_code, blank_regex) {
+  # Ensure `user_code` is a character vector to avoid issue with unserialized
+  #   code which comes as a list in R < 3.5
+  user_code   <- as.character(user_code)
   blank_regex <- paste(blank_regex, collapse = "|")
-
-  blanks <- str_match_all(user_code, blank_regex)
+  blanks      <- str_match_all(user_code, blank_regex)
 
   if (!length(blanks)) {
     return(NULL)