fix when there are no control chunks

simon-smart88 · simon-smart88 · commit d63de2920b5f · 2025-07-03T18:15:56.000+01:00
diff --git a/inst/shiny/modules/rep_markdown.R b/inst/shiny/modules/rep_markdown.R
@@ -85,7 +85,9 @@ rep_markdown_module_server <- function(id, common, parent_session, map, COMPONEN
             for (i in seq_along(chunk_control_lines)) {
               chunks_to_remove[i] <- min(chunk_starts[chunk_starts > chunk_control_lines[i]])
             }
-            combined_rmd <- combined_rmd[-chunks_to_remove]
+            if (any(!is.na(chunks_to_remove))){
+              combined_rmd <- combined_rmd[-chunks_to_remove]
+            }
             combined_rmd <- gsub("\\{r,", "```{r,", combined_rmd)
           }
 

Original file line number	Diff line number	Diff line change
`@@ -85,7 +85,9 @@ rep_markdown_module_server <- function(id, common, parent_session, map, COMPONEN`
`85`	`85`	`for (i in seq_along(chunk_control_lines)) {`
`86`	`86`	`chunks_to_remove[i] <- min(chunk_starts[chunk_starts > chunk_control_lines[i]])`
`87`	`87`	`}`
`88`		`- combined_rmd <- combined_rmd[-chunks_to_remove]`
	`88`	`+ if (any(!is.na(chunks_to_remove))){`
	`89`	`+ combined_rmd <- combined_rmd[-chunks_to_remove]`
	`90`	`+ }`
`89`	`91`	combined_rmd <- gsub("\\{r,", "```{r,", combined_rmd)
`90`	`92`	`}`
`91`	`93`