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)
RetroSearch is an open source project built by @garambo | Open a GitHub Issue
Search and Browse the WWW like it's 1997 | Search results from DuckDuckGo
HTML:
3.2
| Encoding:
UTF-8
| Version:
0.7.4