r - Shiny 的 react 输出，只有在第一次点击 Action 按钮后才评估输入

Question

我有一个简单 Shiny 的应用程序，用户应该在其中将逗号分隔值输入到文本输入中，选择输出并单击按钮以转换为输出。

我已遵循 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)

不想要的输出 - 我想摆脱错误。

Answer 1

你可以使用req(input$from)，见Check for required values