library(shiny)
library(DT)
ui <- fluidPage(
fluidRow(
sliderInput(inputId = "slider",
label = "SLIDER",
min = 0,
max = 10,
value = 5),
),
fluidRow(DTOutput("table"))
)
js <- c(
"function(settings){",
" $('[id^=Slider]').ionRangeSlider({",
" grid: true,",
" min: 0,",
" max: 200,",
" from: 5,",
" });",
"}"
)
server <- function(input, output, session) {
output$table <- renderDT({
data <- data.frame(
#ROW = 1:nrow(iris),
iris,
#SLIDER = '<input type="text" id="s" name="slider" value="" />',
SLIDER = sapply(1:nrow(iris), function(i) {
sprintf('<input type="text" id="Slider%d" name="slider" value="" />', i)
}),
stringsAsFactors = FALSE)
datatable(data = data,
selection = "none",
escape = FALSE,
rownames = FALSE,
options =
list(
dom = 't',scrollX = TRUE,scrollY = TRUE,
initComplete = JS(js),
preDrawCallback = JS('function() { Shiny.unbindAll(this.api().table().node()); }'),
drawCallback = JS('function() { Shiny.bindAll(this.api().table().node()); } ')
)
)
})
}
shinyApp(ui = ui, server = server)
is it possible to take the input of silders and do sum aggregation like average or sum?