R闪亮可以有多个提交按钮吗？

Question

在我的R闪亮应用程序中，我想有一个按钮提交一组输入（影响输出的一部分），另一个提交剩余输入（影响输出的不同部分）。 Shiny教程的小部件示例中的代码使用了submitButton，但似乎所有输入都是在按下单个按钮时传递的？在此先感谢您的帮助。

Answer 1

以下示例显示actionButtons控制反应成分：

library(shiny)
runApp(list(
  ui = fluidPage(
    titlePanel("Hello Shiny!"),
    sidebarLayout(
      sidebarPanel(
        tags$form(
          numericInput('n', 'Number of obs', 100)
          , br()
          , actionButton("button1", "Action 1")
        )
        , tags$form(
          textInput("text", "enter some text", value= "some text")
          , br()
          , actionButton("button2", "Action 2")
        )
      ),
      mainPanel(
        plotOutput('plot')
        , textOutput("stext")
      )
    )
  ),
  server = function(input, output) {
    output$plot <- renderPlot({ 
      input$button1
      hist(runif(isolate(input$n))) 
    })
    output$stext <- renderText({
      input$button2
      isolate(input$text )
    })
  }
)
)