gpt4 book ai didi

r Shiny 的 Action 按钮和数据表输出

转载 作者:行者123 更新时间:2023-12-03 14:03:59 25 4
gpt4 key购买 nike

单击操作按钮后,我想要在选择一些简单标准后的输出数据表。

该代码在没有操作按钮作为输入的情况下工作。一旦我包含 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 Shiny 的 Action 按钮和数据表输出,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/46521026/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com