【发布时间】:2020-10-02 10:32:15
【问题描述】:
我有一个简单的闪亮应用程序,用户应该将逗号分隔的值输入到文本输入中,选择输出并单击按钮以转换为输出。
我已按照Update content on server only after I click action button in Shiny 中的建议仅在单击时更改输出,并且它有效。
但是,仅在第一次启动/打开应用程序时,该字段为空,但输出似乎试图评估输入字段。
这更像是一个外观问题,因为一旦用户填写了某些内容,就不会再次出现这种情况,但我想知道如何避免这种情况......
我的应用:
library(shiny)
ui <- fluidPage(
textInput("from", "csv", value = NULL),
actionButton("run", "Run"),
textOutput("to")
)
server <- function(input, output, session) {
list1 <- reactive({
input$run
x <- isolate(paste(read.table(text = input$from, sep = ",")))
x
})
output$to <- renderText({
list1()
})
}
shinyApp(ui = ui, server = server)
不想要的输出 - 我想摆脱错误。
【问题讨论】: