Add some logging

hadley · cderv · commit c617aff4e9fb · 2025-06-11T16:52:20.000+02:00
diff --git a/R/utils-vignettes.R b/R/utils-vignettes.R
@@ -33,6 +33,11 @@ vweave_quarto <- function(format) {
       }
       return(vweave_empty(file))
     }
+
+    cat("R_LIBS:", Sys.getenv("R_LIBS"), "\n", sep = "", file = "~/desktop/log.txt", append = TRUE)
+    cat(".libPaths(): ", paste0(.libPaths(), collapse = ":"), "\n", sep = "", file = "~/desktop/log.txt", append = TRUE)
+    cat("Packages:", paste0(dir(.libPaths()[1]), collapse = ","), "\n", sep = "", file = "~/desktop/log.txt", append = TRUE)
+
     quarto_render(file, ..., output_format = format, metadata = meta)
   }
 }

Original file line number	Diff line number	Diff line change
`@@ -33,6 +33,11 @@ vweave_quarto <- function(format) {`
`33`	`33`	`}`
`34`	`34`	`return(vweave_empty(file))`
`35`	`35`	`}`
	`36`	`+`
	`37`	`+ cat("R_LIBS:", Sys.getenv("R_LIBS"), "\n", sep = "", file = "~/desktop/log.txt", append = TRUE)`
	`38`	`+ cat(".libPaths(): ", paste0(.libPaths(), collapse = ":"), "\n", sep = "", file = "~/desktop/log.txt", append = TRUE)`
	`39`	`+ cat("Packages:", paste0(dir(.libPaths()[1]), collapse = ","), "\n", sep = "", file = "~/desktop/log.txt", append = TRUE)`
	`40`	`+`
`36`	`41`	`quarto_render(file, ..., output_format = format, metadata = meta)`
`37`	`42`	`}`
`38`	`43`	`}`