R Shiny：动作按钮的动态行

Question

我希望在 Shiny 中有一组两个操作按钮，其中 inputID 和重复项数基于 data.frame 中的行数。下面附上我的思维过程，目前运行不正确。我不想在按下按钮时添加按钮，而是希望“n”组按钮等于 data.frame 中的行数。

library(shiny)

ui <- basicPage(
fluidRow(
 actionButton(inputId = "add_button",
             label = "Add Button")
 ),
 uiOutput("more_buttons")
 )

server <- function(input, output){

 rvs      <- reactiveValues(buttons = list(actionButton(inputId = "button1",
                                                     label = 1)))

observeEvent(eventExpr = input$add_button,
           handlerExpr = {
             len      <- length(rvs$buttons) + 1
             rvs$buttons[[len]] <- actionButton(inputId = paste0("button",len),
                                                label = len)
           })

 output$more_buttons <- renderUI({
  do.call(fluidRow, rvs$buttons)
   })

 observeEvent(rvs$buttons,{
for(ii in 1:length(rvs$buttons)){
  local({
    i <- ii
    observeEvent(eventExpr = input[[paste0("button",i)]],
                 handlerExpr = {print(sprintf("You clicked btn number %d",i))})
  })
  }
 })

}

shinyApp(ui, server)

Answer 1

这是您想要完成的简化版本

ui <- fluidPage(
  selectInput("df", "choose a dataframe",
              c("mtcars", "mpg")),
  uiOutput("buttons")
)

server = function(input, output, session){
  reactiveFrame = reactive({
    if(input$df == "mtcars")
      return(mtcars)
    return(ggplot2::mpg)
  })
  nrowR = reactive({
    nrow(reactiveFrame())
  })
  m <- 0
  output$buttons = renderUI({
    m <- m+1
    do.call(
      fluidPage,
      lapply(
        1:nrowR(),
        function(i)
          span(
            actionButton(paste0("a", i, "-", m),paste0("a", i)),
            actionButton(paste0("b", i, "-", m),paste0("b", i))
          )
      )
    )
  })
}

shinyApp(ui,server)