Add this to your server function to diagnose why observers might not be firing
Examples
if (FALSE) { # \dontrun{
server <- function(input, output, session) {
registry <- create_link_registry(session)
# Register your components...
# Add diagnostics
diagnose_registry(registry, session)
}
} # }