r - 具有不同值标签的 Shiny sliderTextInput 或 sliderInput

Question

在我的 sliderTextInput() 中，我使用确切的变量名称选择要绘制的变量，但我希望在 slider 上有更好看的标签(即如果选择的变量是 mean2018 我会喜欢在 slider 上显示 2018)。这可能吗？

Answer 1

shinyWidgets::sliderTextInput 中似乎没有自定义标签的选项。这是一个潜在的选择。您还可以考虑使用 switch 而不是 paste0 以获得更大的灵 active 。 -

library("shiny")
library("shinyWidgets")

ui <- fluidPage(
  br(),
  sliderTextInput(
    inputId = "mySliderText",
    label = "Select Year:",
    choices = 2018:2020
  ),
  verbatimTextOutput(outputId = "result")
)

server <- function(input, output, session) {
  output$result <- renderPrint({
    paste0("mean", input$mySliderText) # use this to select appropriate year columns
  })
}

shinyApp(ui = ui, server = server)