From 87b8fbbdcf7f8b968db6ccbee58272d7717e1406 Mon Sep 17 00:00:00 2001
From: atusy <30277794+atusy@users.noreply.github.com>
Date: Sun, 5 May 2024 20:46:37 +0900
Subject: [PATCH] feat(fuzzhelp): improve interaction with TOC

---
 R/fuzzyhelp.R | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/R/fuzzyhelp.R b/R/fuzzyhelp.R
index f4faf32..82895a8 100644
--- a/R/fuzzyhelp.R
+++ b/R/fuzzyhelp.R
@@ -325,7 +325,14 @@ create_server <- function(
         defaultPageSize = 20,
         selection = "single",
         defaultSelected = if (nrow(toc_matched) != 0) 1L,
-        onClick = "select"
+        onClick = "select",
+        striped = TRUE,
+        highlight = TRUE,
+        theme = reactable::reactableTheme(
+          cellPadding = "2px",
+          style = list(fontSize = "0.9em"),
+          highlight = "beige"
+        )
       )
     }))
     reactiveSelection <- shiny::reactive({