From 1a9412346cfb86c1a47f6df7d1ae3ffd6b2669c0 Mon Sep 17 00:00:00 2001 From: narayanan-iyer-pfizer <114721252+narayanan-iyer-pfizer@users.noreply.github.com> Date: Tue, 12 Mar 2024 16:19:12 +0530 Subject: [PATCH] refactor to avoid writing to disc --- R/mod_code_explorer.R | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/R/mod_code_explorer.R b/R/mod_code_explorer.R index 5066762b9..ada247886 100644 --- 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)