set_input_click(): added effect args

R/shiny-input.R

@@ -10,17 +10,24 @@
 #' @param ax An \code{apexcharts} \code{htmlwidget} object. 
 #' @param inputId The id that will be used server-side for retrieveng category.
 #' @param multiple Allow multiple selection: \code{TRUE} or \code{FALSE} (default).
+#' @param effect_type Type of effect for selected element, default is to use lightly darken color.
+#' @param effect_value A larger value intensifies the select effect, accept value between 0 and 1.
 #'
 #' @return An \code{apexcharts} \code{htmlwidget} object.
 #' @export
 #'
 #' @examples
-set_input_click <- function(ax, inputId, multiple = FALSE) {
-  if (isTRUE(multiple)) {
-    ax <- ax_states(ax, active = list(
-      allowMultipleDataPointsSelection = TRUE
-    ))
-  }
+set_input_click <- function(ax, inputId, multiple = FALSE,
+                            effect_type = c("darken", "lighten", "none"), 
+                            effect_value = 0.35) {
+  effect_type <- match.arg(effect_type)
+  ax <- ax_states(ax, active = list(
+    allowMultipleDataPointsSelection = isTRUE(multiple),
+    filter = list(
+      type = effect_type,
+      value = effect_value
+    )
+  ))
   ax$x$input$category <- list(
     inputId = inputId
   )

inst/examples-input/click.R

@@ -55,7 +55,11 @@ server <- function(input, output, session) {
       value = sample(1:100, 12)
     ) %>% 
       apex(aes(month, value)) %>% 
-      set_input_click("month_click_mult", multiple = TRUE)
+      set_input_click(
+        "month_click_mult", 
+        multiple = TRUE, 
+        effect_value = 0.1
+      )
   })
   output$result2 <- renderPrint({
     input$month_click_mult

man/set_input_click.Rd

@@ -4,7 +4,13 @@
 \alias{set_input_click}
 \title{Retrieve click information in Shiny}
 \usage{
-set_input_click(ax, inputId, multiple = FALSE)
+set_input_click(
+  ax,
+  inputId,
+  multiple = FALSE,
+  effect_type = c("darken", "lighten", "none"),
+  effect_value = 0.35
+)
 }
 \arguments{
 \item{ax}{An \code{apexcharts} \code{htmlwidget} object.}
@@ -12,6 +18,10 @@ set_input_click(ax, inputId, multiple = FALSE)
 \item{inputId}{The id that will be used server-side for retrieveng category.}
 
 \item{multiple}{Allow multiple selection: \code{TRUE} or \code{FALSE} (default).}
+
+\item{effect_type}{Type of effect for selected element, default is to use lightly darken color.}
+
+\item{effect_value}{A larger value intensifies the select effect, accept value between 0 and 1.}
 }
 \value{
 An \code{apexcharts} \code{htmlwidget} object.