feat: add restart instructions to resources tab
Co-authored-by: aider (deepseek/deepseek-chat) <aider@aider.chat>
This commit is contained in:
4
app.R
4
app.R
@@ -229,7 +229,8 @@ ui <- f7Page(
|
||||
icon = f7Icon("hammer_fill"),
|
||||
f7Segment(
|
||||
f7Button(inputId = "res_beaches", label = "Beaches"),
|
||||
f7Button(inputId = "res_links", label = "Links")
|
||||
f7Button(inputId = "res_links", label = "Links"),
|
||||
f7Button(inputId = "res_restart", label = "Restart")
|
||||
),
|
||||
uiOutput("resources_content")
|
||||
)
|
||||
@@ -268,6 +269,7 @@ server <- function(input, output, session) {
|
||||
res_section <- reactiveVal("beaches")
|
||||
observeEvent(input$res_beaches, { res_section("beaches") })
|
||||
observeEvent(input$res_links, { res_section("links") })
|
||||
observeEvent(input$res_restart, { res_section("restart") })
|
||||
|
||||
output$resources_content <- renderUI({
|
||||
if (res_section() == "beaches") {
|
||||
|
||||
Reference in New Issue
Block a user