Это следует сделать, обратите внимание, что я изменил с 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)