Shiny R仅当按下操作按钮时更新过滤器

我正在尝试创建一个操作按钮，仅当单击该按钮时才更新SelectInput和PickerInput

library(shiny)    

shinyUI(basicPage(

v1 <- c("a","b","c")
v2 <- 1:3
data <- data.frame(v1,v2)

pickerInput("v1",label = "v1",""),
uiOutput("secondSelection"),
actionButton("go", "Update")

))


shinyServer(function(input, output) {

output$secondSelection <- renderUI({
pickerInput("v2", "Variable 2:","")
})

v1vals <- reactiveValues(v1)
v2vals <- reactiveValues(v2)

observe({

if(input$go > 0) {
v1vals$v1<- levels(data$v1)
v2vals$v2<- levels(data$v2)
}

v1vals$v1<- input$v1
v2vals$v2<- input$v2
})

output$text <- renderText({values$variable})

observe( observeEvent(input$go, {

updatePickerInput(session,"v1",label = "variable 1",
                choices = levels(data$v1),
                selected = levels(data$v1), multiple = TRUE)
}))

observe( observeEvent(input$go, {

updatePickerInput(session, "v2", choices =             
as.character(unique(data[data$v1==input$v1,"v2"])),
options = list(`actions-box` = TRUE), 
multiple = TRUE, selected =levels(data$v2))

}))

})

库（闪亮）
shinyUI（基本年龄）(
v1您的问题我不清楚…您能解释一下要求吗？我正在输入您的代码…我的仪表板侧面有一个过滤器。它过滤数据集。我希望它只在“应用过滤器”时过滤数据集按钮被点击。我不清楚你的问题…你能解释一下要求吗？我正在输入你的代码…我的仪表板侧面有一个过滤器。它过滤数据集。我希望它只在点击“应用过滤器”按钮时过滤数据集。