Question

我有一个Shiny应用程序，其中包含很多sliderInput对象。我希望将它们分为不同的页面，并且当我滚动浏览页面时，slideInput中的值将被保存。

这是我代码中的一个示例：

shinyApp(
    ui = fluidPage(
    uiOutput("Data.Filter")
  ),
server = function(input, output) {
data<-data.frame(a=c(1,2,3,4,5,6),
                 b=c(1,2,3,4,5,6),
                 c=c(1,2,3,4,5,6),
                 d=c(1,2,3,4,5,6),
                 e=c(1,2,3,4,5,6),
                 f=c(1,2,3,4,5,6),
                 g=c(1,2,3,4,5,6),
                 h=c(1,2,3,4,5,6))
  output$Data.Filter <- renderUI({
  Names<-names(data)
  output_list <- lapply(Names, function(i) {
  filtername <- paste("Data_Filter_", i, sep="")
  Min <- min(data[[i]],na.rm=T)
  Max <- max(data[[i]],na.rm=T)
  return(column(2,sliderInput(filtername, 
  label = i, 
  min = Min, max = Max, value = c(Min,Max),step=1)))
})
   return(fluidRow(do.call(tagList, output_list)))
})
})

R Shiny：使用renderUI的页面滑块对象

0 个答案: