R/slider_mod.R

In tanerumit/handyshiny:

# UI Function
slider_mod_UI <- function(id) {
  
  ns = NS(id)
  
  sliderInput(ns("dvar"), "Decision", min = 1, max = 100, step= 1, value = 2)

}

# Server function
slider_mod <- function(input, output, session) {
  
  vals <- reactive({input$dvar})
  
  return(vals)
}