A demonstration of sortable html widget in shiny apps for R-Ladies

demo_sortable

library(shiny)
library(sortable)


rladies_messages <- c(
  "R-Ladies creates an inclusive and welcoming environment.",
  "R-Ladies hosts workshops that help me advance my R programming skills.",
  "R-Ladies provides a safe place for me to ask technical R questions.",
  "R-Ladies provides a safe place for me to discuss work-related (but not R) topics.",
  "R-Ladies facilitates networking opportunities.",
  "R-Ladies helps me stay informed about new job opportunities.",
  "R-Ladies helps me stay informed on upcoming workshops and conferences."
)


shinyApp(
  ui = fluidPage(
    sortable::bucket_list(
      header = NULL,
      group_name = "bucket_list_group",
      sortable::add_rank_list(
        text = "All R-Ladies Messages",
        labels = rladies_messages,
        input_id = "rank_list_1"
      ),
      sortable::add_rank_list(
        text = "Top R-Ladies Messages",
        labels = NULL,
        input_id = "rank_list_2"
      )
    )
  ),
  server = function(input, output) {
    
  }
)