inst/apps/020-knit-html/ui.R

In rstudio/shinycoreci: CI Testing for shiny

fluidPage(
  title = 'Embed an HTML report from R Markdown/knitr',
  sidebarLayout(
    sidebarPanel(
      withMathJax(),  # include the MathJax library
      selectInput('x', 'Build a regression model of mpg against:',
                  choices = names(mtcars)[-1])
    ),
    mainPanel(
      uiOutput('report')
    )
  )
)