我有一个简单的闪亮应用程序,用户应在其中将逗号分隔的值输入到文本输入中,选择输出并单击按钮以转换为输出。
仅在单击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)
不需要的输出-我想摆脱错误。
您可以使用req(input$from)
,请参阅检查所需的值
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句