闪亮的滑块自定义值 [英] Shiny Slider Customized Values

问题描述

我正在尝试为闪亮的滑块(1、5、10、15、20、25和30)设置自定义值。我尝试step，但是结果要么是(0，5，10，15，20，25，30)，要么是(1，6，11，16，21，26，31)。有没有办法定义滑块的自定义值？ 谢谢！

plotpath <- "/Volumes/share-ites-1-$/Projects/Scientifica/Simulations_Scientifica"

ui <- fluidPage(
     titlePanel("LandClim Simulations"),
     sidebarLayout(
          sidebarPanel(
               sliderInput(inputId = "temp", 
                           label = "Temperature increase:", 
                           value = 1, min = 1, max = 2,
                           step = 1, animate = TRUE ),
               sliderInput(inputId = "prec", 
                           label = "Precipitation change:", 
                           value = 0, min = -2, max = 2,
                           step = 1, animate = TRUE ),
               sliderInput(inputId = "decade", 
                           label = "Time (decade):", 
                           value = 1, min = 0, max = 30,
                           step = 5, animate = TRUE )
          ),
          mainPanel(imageOutput("image")) 
     )
)

server <- function(input, output) {
     output$image <- renderImage( deleteFile = FALSE, {
               return(list(
                    src = paste(plotpath,"/Temp",input$temp,"Prec",input$prec,"Dec",input$decade,".png",sep = ""),
                    contentType = "image/png"))
     } ) }

shinyApp(ui = ui, server = server)

推荐答案

shinyWidgets包现在可以使用允许自定义值的滑块为您解决此问题。第三个滑块的更新代码如下所示：

shinyWidgets::sliderTextInput(inputId = "decade", 
  label = "Time (decade):", 
  choices = c(1,5,10,15,20,25,30))

这篇关于闪亮的滑块自定义值的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！