more cases add to clean_code_blocks to remove weird strings that caus…

…es mis-execution
BIMSBbioinfo · Dec 21, 2023 · b39c15e · b39c15e
1 parent 0913d15
commit b39c15e
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/clean_code_blocks.R b/R/clean_code_blocks.R
@@ -33,6 +33,8 @@ clean_code_blocks<-function(response){
   response<-gsub("```bash", "```", response)
   response<-gsub("```\\{r\\}", "```", response)
   response<-gsub("```\\{R\\}", "```", response)
+  response<-gsub("```\\{(R|r),\\s*eval=(FALSE|TRUE)\\}", "```",response)
+
 
   # clean of possible output text
   response<-gsub("\n\\[[0-9]+\\].*\n","",response)