refactor to avoid writing to disc

pharmaR · Mar 12, 2024 · 1a94123 · 1a94123
1 parent 9ce1535
commit 1a94123
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/mod_code_explorer.R b/R/mod_code_explorer.R
@@ -158,9 +158,9 @@ mod_code_explorer_server <- function(id, selected_pkg, pkgarchive = reactiveVal(
                                              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)