如何将通过排序生成的对象馈送到列表，向量或数据框架中？

Question

我正在尝试R Shiny软件包可排序。我正在尝试将可重复的代码中的bucket_list生成的元素添加到列表，向量或数据框架中，以准备在我开发此过程时为进一步的数据操作做准备。我不知道下面由buck_list生成了哪种对象。理想情况下，我需要将数值排名（下面的1和2）划分为一列，然后将池ID（B和A）划入单独的数据帧列中。

如何将这些元素馈送到列表/向量/数据框中？底部的图像更好地说明了。

可重复的代码：

library(shiny)
library(sortable)   

ui <- 
  fluidPage(
    tags$head(tags$style(HTML("
      .column_2 {
        counter-reset: rank;                      
      }

      .column_2 .rank-list-item::before {
        counter-increment: rank;                   
        content: counter(rank) '. ';    
      }
    "))),
    htmlOutput("rankingForm"),
    tableOutput("table1")
  
)

server <- function(input, output, session) {
  output$rankingForm <- renderUI({
    fluidRow(
      column(tags$b("Pool Ranking"), width = 12,
             bucket_list(header = "Drag to the right from the Pool below to rank.", 
                         group_name = "bucket_list_group", orientation = "horizontal",
                         add_rank_list("Pool:", 
                                       labels = c("A","B","C","D","E"), 
                                       input_id = "rank_list_1"),
                         add_rank_list("Pool Ranking:", labels = NULL,
                                       input_id = "rank_list_2"))
      )
    )
  })
  
  output$table1 <- renderTable({ranklist2})
  
}

shinyApp(ui=ui, server=server)

Answer 1

这是在解决I_O昨天评论的解决方案：

library(shiny)
library(sortable)   

ui <- 
  fluidPage(
    tags$head(tags$style(HTML("
      .column_2 {
        counter-reset: rank;                      
      }

      .column_2 .rank-list-item::before {
        counter-increment: rank;                   
        content: counter(rank) '. ';    
      }
    "))),
    htmlOutput("rankingForm"),
    tableOutput("table1")
  
)

server <- function(input, output, session) {
  output$rankingForm <- renderUI({
    fluidRow(
      column(tags$b("Pool Ranking"), width = 12,
             bucket_list(header = "Drag to the right from the Pool below to rank.", 
                         group_name = "bucket_list_group", orientation = "horizontal",
                         add_rank_list("Pool:", 
                                       labels = c("A","B","C","D","E"), 
                                       input_id = "rank_list_1"),
                         add_rank_list("Pool Ranking:", labels = NULL,
                                       input_id = "rank_list_2"))
      )
    )
  })
  
  output$table1 <- renderTable({input$rank_list_2}) # << solution
  
}

shinyApp(ui=ui, server=server)