## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>", eval = FALSE)

## -----------------------------------------------------------------------------
# page(href = "/contact", ui = tagList(h1("Contact")))

## -----------------------------------------------------------------------------
# brochureApp(
#   page(href = "/", ui = tagList(h1("Home"))),
#   page(href = "/contact", ui = tagList(h1("Contact"))),
#   basepath = "myapp"
# )

## -----------------------------------------------------------------------------
# brochureApp(
#   page(href = "/", ui = tagList(h1("Home"))),
#   page(href = "/contact", ui = tagList(h1("Contact")))
# )

## -----------------------------------------------------------------------------
# tags$a(href = "/contact", "Contact")        # yes
# tags$a(href = "contact", "Contact")         # depends on the current page
# tags$a(href = "../contact", "Contact")      # depends on the current page