shiny - 在 Shiny 的两个列表框之间移动项目

Question

有没有一种简单的方法可以在 shiny 中创建这样的东西？

Answer 1

RStudio 目前正在处理 sortable 包:RStudio/sortable

请注意，它目前正在开发中(标记为实验性)，因此可能会发生重大变化，并且只能通过 GitHub 访问

# install.packages("remotes")
# remotes::install_github("rstudio/sortable")

library(shiny)
library(sortable)

ui <- fluidPage(
    fluidRow(
        column(
            width = 12,
            bucket_list(
                header = "Drag the items in any desired bucket",
                group_name = "bucket_list_group",
                add_rank_list(
                    text = "Drag from here",
                    labels = c("Ant", "Cat", "Eagle", "Giraffe", "Bear", "Frog","Dog"),
                    input_id = "rank_list_1"
                ),
                add_rank_list(
                    text = "to here",
                    labels = NULL,
                    input_id = "rank_list_2"
                )
            )
        )
    )
)

shinyApp(ui, function(input,output) {})

这导致: