refactor to avoid writing to disc

pharmaR · Mar 12, 2024 · 4ec3b60 · 4ec3b60
1 parent 9ce1535
commit 4ec3b60
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/mod_code_explorer.R b/R/mod_code_explorer.R
@@ -152,15 +152,15 @@ mod_code_explorer_server <- function(id, selected_pkg, pkgarchive = reactiveVal(
     man_page <- reactive({
       if (rlang::is_empty(man_files())) return(HTML("No files to display"))
       req(input$man_files)
-      out_dir <- tempdir()
       fp <- file.path(glue::glue("{selected_pkg$name()}"), "man", input$man_files) 
       con <- archive::archive_read(file.path("tarballs",
                                              glue::glue("{selected_pkg$name()}_{selected_pkg$version()}.tar.gz")),
                                    file = fp)
       Rdfile <-tools::parse_Rd(con)
       close(con)
-      tools::Rd2HTML(Rdfile, package = c(selected_pkg$name(), selected_pkg$version()), out = file.path(out_dir, "man.html"))
-      includeHTML(file.path(out_dir, "man.html"))
+      HTML(paste0(capture.output(tools::Rd2HTML(Rdfile,
+                                               package = c(selected_pkg$name(),
+                                                           selected_pkg$version()), out = "")), collapse = "\n"))
     }) %>%
       bindEvent(input$man_files, input$exported_function, ignoreNULL = FALSE)