fix(fuzzyhelp): broken addin

R/fuzzyhelp.R

@@ -379,6 +379,7 @@ create_server <- function(method = c("fzf", "lv")) {
 #' @param background Whether to run a shiny gadget in a background process.
 #'  The default value is `TRUE` and can be changed by
 #'  `option(fuzzyhelp.background = FALSE)`.
+#' @inheritParams shiny::runGadget
 #'
 #' @note
 #' The default fuzzy match algorithm is a simplified version of
@@ -397,13 +398,14 @@ create_server <- function(method = c("fzf", "lv")) {
 fuzzyhelp <- function(
     query = "",
     method = getOption("fuzzyhelp.method", "fzf"),
-    background = getOption("fuzzyhelp.background", TRUE)) {
+    background = getOption("fuzzyhelp.background", TRUE),
+    viewer = shiny::paneViewer()) {
   app <- create_ui(query)
   server <- create_server(method)
 
   # Create new gadget on foreground
   if (!background) {
-    shiny::runGadget(app, server)
+    shiny::runGadget(app, server, viewer = viewer)
     return(invisible(NULL))
   }
 
@@ -427,17 +429,26 @@ fuzzyhelp <- function(
 
   # Create new gadget on background
   .env$fuzzyhelp <- callr::r_bg(
-    function(..., .env) {
+    function(..., .env, base_viewer) {
       viewer <- function(url) {
         writeLines(url, .env$fuzzyhelp_url)
-        shiny::paneViewer()(url)
+        base_viewer(url)
       }
       shiny::runGadget(..., viewer = viewer)
     },
-    args = list(app = app, server = server, .env = .env),
+    args = list(app = app, server = server, .env = .env, base_viewer = viewer),
     env = Sys.getenv(),
     package = TRUE
   )
 
   return(.env$fuzzyhelp)
 }
+
+fuzzyhelp_addin <- function() {
+  script <- tempfile()
+  writeLines(
+    "felp::fuzzyhelp(background = FALSE, viewer = rstudioapi::viewer)",
+    script
+  )
+  rstudioapi::jobRunScript(script, name = "fuzzyhelp")
+}

inst/rstudio/addins.dcf

@@ -1,4 +1,4 @@
 Name: Fuzzy Search on R Help
 Description: Search and view help files with fuzzy queries.
-Binding: fuzzyhelp
+Binding: fuzzyhelp_addin
 Interactive: true