R 如何从文本输入更新字符向量?
我想在每次单击按钮时,将输入文本添加到闪亮应用程序中的向量中。这就是我正在使用的示例:R 如何从文本输入更新字符向量?,r,shiny,shiny-reactivity,R,Shiny,Shiny Reactivity,我想在每次单击按钮时,将输入文本添加到闪亮应用程序中的向量中。这就是我正在使用的示例: library(shiny) ui <- fluidPage( textInput(inputId = "inquiry", label = "enter text"), actionButton(inputId = "searchButton", label = "Run"), verbatimTextOutput("queryList", placeholder = F
library(shiny)
ui <- fluidPage(
textInput(inputId = "inquiry", label = "enter text"),
actionButton(inputId = "searchButton", label = "Run"),
verbatimTextOutput("queryList", placeholder = FALSE)
)
server <- function(input, output, session) {
queryList <- c()
observeEvent(input$searchButton, {
queryList[length(queryList)+1] <- input$inquiry
output$queryList <- renderPrint({
queryList
})
})
}
shinyApp(ui = ui, server = server)
库(闪亮)
ui让queryList被动为我修复了它:
library(shiny)
ui <- fluidPage(
textInput(inputId = "inquiry", label = "enter text"),
actionButton(inputId = "searchButton", label = "Run"),
verbatimTextOutput("queryList", placeholder = FALSE)
)
server <- function(input, output, session) {
queryList <- reactiveValues()
queryList$values <- c()
observeEvent(input$searchButton, {
queryList$values[length(queryList$values) + 1] <- input$inquiry
})
output$queryList <- renderPrint({
if (!is.null(queryList$values)) {
queryList$values
}
})
}
shinyApp(ui = ui, server = server)
库(闪亮)
用户界面