Move items between two list boxes shiny

Question

Is there an easy way to create something like this in shiny?

Answer 1

RStudio is currently working on the sortable package: RStudio/sortable

Beware that it's currently in development (tagged as experimental), so major changes are possible and it's only accessble through 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) {})

This results in: