rkw/stAndrews
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

feat: add restart instructions to resources tab

Browse Source 
Co-authored-by: aider (deepseek/deepseek-chat) <aider@aider.chat>
This commit is contained in:
Rob Wiederstein
2026-03-13 06:41:44 -04:00
parent 30c6535130
commit 6700075e72
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
app.R
View File

@@ -229,7 +229,8 @@ ui <- f7Page(
icon = f7Icon("hammer_fill"), icon = f7Icon("hammer_fill"),
f7Segment( f7Segment(
f7Button(inputId = "res_beaches", label = "Beaches"), 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") uiOutput("resources_content")
) )
@@ -268,6 +269,7 @@ server <- function(input, output, session) {
res_section <- reactiveVal("beaches") res_section <- reactiveVal("beaches")
observeEvent(input$res_beaches, { res_section("beaches") }) observeEvent(input$res_beaches, { res_section("beaches") })
observeEvent(input$res_links, { res_section("links") }) observeEvent(input$res_links, { res_section("links") })
observeEvent(input$res_restart, { res_section("restart") })
output$resources_content <- renderUI({ output$resources_content <- renderUI({
if (res_section() == "beaches") { if (res_section() == "beaches") {