tests/testthat/test-apps/UseRevalidator/App.R

In reactRouter: 'React Router' for 'shiny' Apps and 'Quarto'

library(shiny)

ui <- reactRouter::RouterProvider(
  router = reactRouter::createHashRouter(
    reactRouter::Route(
      path = "/",
      loader = reactRouter::JS("async () => ({ time: Date.now() })"),
      element = div(
        div(
          id = "revalidatorState",
          reactRouter::useRevalidator(
            tags$span()
          )
        ),
        div(
          id = "revalidatorFull",
          reactRouter::useRevalidator(
            tags$span(),
            selector = NULL
          )
        ),
        reactRouter::Outlet()
      ),
      reactRouter::Route(
        index = TRUE,
        element = div(tags$p("home"))
      )
    )
  )
)

server <- function(input, output, session) {}

shinyApp(ui, server)