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

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

library(shiny)

ui <- reactRouter::RouterProvider(
  router = reactRouter::createHashRouter(
    reactRouter::Route(
      path = "/",
      element = div(reactRouter::Outlet()),
      reactRouter::Route(
        path = "data",
        loader = reactRouter::JS(
          "async () => { return { name: 'Alice', age: 30 }; }"
        ),
        element = div(
          div(
            id = "loaderAll",
            reactRouter::useLoaderData(
              tags$span()
            )
          ),
          div(
            id = "loaderName",
            reactRouter::useLoaderData(
              tags$span(),
              selector = "name"
            )
          ),
          div(
            id = "loaderAge",
            reactRouter::useLoaderData(
              tags$span(),
              selector = "age"
            )
          ),
          div(
            id = "loaderNameRender",
            reactRouter::useLoaderData(
              render = reactRouter::JS("d => `${d.name}, age ${d.age}`")
            )
          )
        )
      )
    )
  )
)

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

shinyApp(ui, server)