shinykanban

Installation

install.packages("shinykanban")

remotes::install_github("ugurdar/shinykanban@main")

Example

library(shiny)
library(shinykanban)
library(bslib)

ui <- page_fluid(
  title = "My App",
  nav_panel(title = "One",
            kanbanOutput("kanban_board")
  )
)

server <- function(input, output, session) {

  kanban_data <- reactiveVal(
    list(
      "To Do" = list(
        name = "To Do",
        items = list(
          list(
            id = "task1",
            title = "Task 1",
            subtitle = "abc"
          ),
          list(
            id = "task2",
            title = "Task 2"
          )
        ),
        listPosition = 1
      ),
      "In Progress" = list(
        name = "In Progress",
        items = list(
          list(
            id = "task3",
            title = "Task 3"
          )
        ),
        listPosition = 2
      )
    ))

  output$kanban_board <- renderKanban({
    kanban(
      data = kanban_data()
    )
  })

  # Get any change from kanban and update the data
  observeEvent(input$kanban_board, {
    new_list <- input$kanban_board
    new_list$`_timestamp` <- NULL
    kanban_data(new_list)
  })

}

shinyApp(ui, server)