R/module_layer_params_geom_bar.R

In serenity-r/serenity.viz: Serenity Viz

layerParamsGeomBarUI <- function(id) {
  ns <- NS(id)

  uiOutput(ns("params"))
}

layerParamsGeomBarServer <- function(input, output, session, base_data) {
  default_args <- list("width" = 0.9)

  output$params <- renderUI({
    isolate({
      sliderInput(session$ns("width"),
                  label = "Bar Width:",
                  value = input[["width"]] %||% default_args[["width"]],
                  min = 0,
                  max = 1,
                  step = 0.05)
    })
  })
  outputOptions(output, "params", suspendWhenHidden = FALSE)

  geom_params_code <- reactive({
    processed_geom_params_code <- process_args(default_args, input, base_data, modify_geom_bar_args)

    return(processed_geom_params_code)
  })

  return(geom_params_code)
}

modify_geom_bar_args <- function(param, value, base_data) {
  return(
    switch(param,
           "width" = ifelse(!is.null(base_data()$x),
                            value*resolution(base_data()$x, zero = FALSE),
                            value),
           value
    )
  )
}