r - 如何使提交按钮仅从 Shiny (R) 中相应的 textInput 中获取值

Question

我 Shiny 的应用程序中有一个 textInput 字段。我想在 textInput 旁边有一个提交按钮(或可能更有意义的操作按钮？)，以便在将文本添加到 textInput 时，用户可以单击该按钮，而 App 唯一的 react 就是接受该值(不在页面上加载任何其他内容)如何实现？

如果我使用以下代码，它会加载所有内容。

shinyUI(

textInput("variable", "Add Recomendation", ""), submitButton("Add")

)

Answer 1

我认为您需要在您的服务器中对观察者使用 actionButton()。还要确保将 input$variable 包装在 isolate 中，这样它就不会导致观察者触发。

像这样:

UI.R

library(shiny)    

shinyUI(basicPage(

    textInput("variable", "Add Recommendation", ""),
    actionButton("submit", "Add"),
    textOutput("text")

))

服务器.R

library(shiny)

shinyServer(function(input, output) {

    values <- reactiveValues(variable = NA)

    observe({

        if(input$submit > 0) {

            values$variable <- isolate(input$variable)

        }

    })

    output$text <- renderText({values$variable})

})