From 9859cfc9fee96303c47b106bd6d9fc35c9092cb7 Mon Sep 17 00:00:00 2001
From: atusy <30277794+atusy@users.noreply.github.com>
Date: Thu, 28 Mar 2024 09:37:49 +0900
Subject: [PATCH] fix(fuzzyhelp): broken addin

---
 R/fuzzyhelp.R           | 6 ++++++
 inst/rstudio/addins.dcf | 2 +-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/R/fuzzyhelp.R b/R/fuzzyhelp.R
index d68fd58..be7ac63 100644
--- a/R/fuzzyhelp.R
+++ b/R/fuzzyhelp.R
@@ -441,3 +441,9 @@ fuzzyhelp <- function(
 
   return(.env$fuzzyhelp)
 }
+
+fuzzyhelp_addin <- function() {
+  script <- tempfile()
+  writeLines("fuzzyhelp(background = FALSE)", script)
+  rstudioapi::jobRunScript(script, name = "fuzzyhelp")
+}
diff --git a/inst/rstudio/addins.dcf b/inst/rstudio/addins.dcf
index 07e5654..010349f 100644
--- a/inst/rstudio/addins.dcf
+++ b/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