R闪亮的动作按钮和数据表输出

问题描述

单击操作按钮后，我希望在选择一些简单条件后获得输出数据表。

代码在没有操作按钮作为输入的情况下工作。一旦我包含observeEvent函数，就不再生成结果。请参阅下面的示例代码。

注意：删除行observeEvent(input$gobutton,{和相应的})将产生正确的输出。

library(shiny)

ui <- fluidPage(
  fluidRow(column(6,div(checkboxGroupInput("test1", "Testing buttons",
                                           choices=c("A","B","C"),
                                           selected=c("A","B","C"))))),

  hr(),

  actionButton("gobutton","Start"),

  dataTableOutput("summary_table")

)

server <- function(input,output){

  output$summary_table <- renderDataTable({

    observeEvent(input$gobutton,{

    df=data.frame(col1=input$test1,col2=seq(1,length(input$test1),1))

    df
    })
  })
}

shinyApp(ui=ui, server=server)

推荐答案

用eventReactive换成：

library(shiny)

ui <- fluidPage(
  fluidRow(column(6,div(checkboxGroupInput("test1", "Testing buttons",
                                           choices=c("A","B","C"),
                                           selected=c("A","B","C"))))),

  hr(),
  actionButton("gobutton","Start"),
  dataTableOutput("summary_table")

)

server <- function(input,output){

  data <- eventReactive(input$gobutton,{
    if(is.null(input$test1)){
      return()
    }

    df <- data.frame(col1=input$test1,col2=seq(1,length(input$test1),1))
    df
  })

  output$summary_table <- renderDataTable({
    data()
  })
}

shinyApp(ui=ui, server=server)

这篇关于R闪亮的动作按钮和数据表输出的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！