methods: Add help popover

DESCRIPTION

@@ -19,6 +19,7 @@ RoxygenNote: 7.2.0
 Depends:
     R (>= 4.1)
 Imports:
+    bsicons,
     bslib,
     data.table,
     DT,

R/methods.R

@@ -23,6 +23,8 @@ methods_ui <- function(id, options) {
     ),
     lapply(options$methods, function(method) {
       verticalLayout(
+        div(
+          style = "display: flex;",
           checkboxInput(
             NS(id, method$id),
             span(
@@ -31,6 +33,15 @@ methods_ui <- function(id, options) {
             ),
             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)),
           NULL,