head() needs namespace

cderv · cderv · commit 8bff2b662402 · 2025-07-25T18:45:22.000+02:00
diff --git a/R/utils-extract.R b/R/utils-extract.R
@@ -135,7 +135,7 @@ qmd_to_r_script <- function(qmd, script = NULL) {
     if (isFALSE(metadata_clean$eval)) {
       # cell with eval: false should be commented out in R script
       row$source <- paste(
-        c(paste0("# ", head(xfun::split_lines(row$source), -1)), ""),
+        c(paste0("# ", utils::head(xfun::split_lines(row$source), -1)), ""),
         collapse = "\n"
       )
     }

Original file line number	Diff line number	Diff line change
`@@ -135,7 +135,7 @@ qmd_to_r_script <- function(qmd, script = NULL) {`
`135`	`135`	`if (isFALSE(metadata_clean$eval)) {`
`136`	`136`	`# cell with eval: false should be commented out in R script`
`137`	`137`	`row$source <- paste(`
`138`		`- c(paste0("# ", head(xfun::split_lines(row$source), -1)), ""),`
	`138`	`+ c(paste0("# ", utils::head(xfun::split_lines(row$source), -1)), ""),`
`139`	`139`	`collapse = "\n"`
`140`	`140`	`)`
`141`	`141`	`}`