闪亮的无功输出，仅在首先单击操作按钮后才评估输入

Question

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

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