methods: Add help popover

2025-10-25 20:07:23 +02:00 · 2024-01-31 12:20:07 +01:00 · 2024-01-31 12:20:07 +01:00 · 64c616ec05
commit 64c616ec05
parent e0e92e0fcc
2 changed files with 18 additions and 6 deletions
--- a/1
+++ b/1
@ -19,6 +19,7 @@ RoxygenNote: 7.2.0
 Depends:
    R (>= 4.1)
 Imports:
+    bsicons,
    bslib,
    data.table,
    DT,
--- a/R/methods.R
+++ b/R/methods.R
@ -23,13 +23,24 @@ methods_ui <- function(id, options) {
    ),
    lapply(options$methods, function(method) {
      verticalLayout(
-        checkboxInput(
-          NS(id, method$id),
-          span(
-            method$description,
-            class = "control-label"
+        div(
+          style = "display: flex;",
+          checkboxInput(
+            NS(id, method$id),
+            span(
+              method$description,
+              class = "control-label"
+            ),
+            value = TRUE
          ),
-          value = TRUE
+          div(
+            style = "margin-left: 5px;",
+            bslib::popover(
+              bsicons::bs_icon("question-circle"),
+              title = method$name,
+              method$help
+            )
+          )
        ),
        sliderInput(
          NS(id, sprintf("%s_weight", method$id)),