在 r shiny 中组合两个选择框值

Question

我需要在 R shiny 中组合两个 select 框值。 Select box 1 有年份，select box 2 有月份。

如果用户 select 2018 和 06，我应该将 2018-06 放入变量中。

我试过了paste(input$year,input$month,sep="-")但是没用

Answer 1

这应该可以，请注意我从 reative 更改为 reactiveValues 因为我认为这对您来说应该更直观，您可以使用 v$value 来包含您想要的内容想。我建议您阅读 https://shiny.rstudio.com/articles/reactivity-overview.html 以便更好地了解正在发生的事情

library(shiny)

ui <- fluidPage(
  textOutput("value"),
  selectInput("year","year",choices = c(2017,2018),selected = 1),
  selectInput("month","month",choices = c(1:12),selected = 1)

)

server <- function( session,input, output) {

  v <- reactiveValues(value=NULL)

  observe({
    year <- input$year
    month <- input$month
    if(nchar(month)==1){
      month <- paste0("0",month)
    }
    v$value <- paste(year,month,sep="-")
  })

  output$value <- renderText({
    v$value
  })
}

shinyApp(ui, server)

在 r shiny 中组合两个选择框值

combine two selectbox values in r shiny

select

r

concatenation

shiny

selectinput