refactor: add comment to example code

Appsilon · Oct 2, 2023 · b264085 · b264085
1 parent 3dd96ea
commit b264085
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/inst/examples/CommandBar.R b/inst/examples/CommandBar.R
@@ -81,8 +81,8 @@ ui <- function(id) {
 server <- function(id) {
   moduleServer(id, function(input, output, session) {
     commandBarItemClicked <- reactiveVal()
-    observeEvent(input$newItem, commandBarItemClicked("newItem clicked"))
-    observeEvent(input$upload, commandBarItemClicked("upload clicked"))
+    observeEvent(input$newItem, commandBarItemClicked("newItem clicked (explicitly observed)"))
+    observeEvent(input$upload, commandBarItemClicked("upload clicked (explicitly observed)"))
     output$commandBarItems <- renderText(commandBarItemClicked())
     output$commandBar <- renderText(input$commandBar)
   })