inst/apps/mathjax_example/ui.R

In Auburngrads/teachingApps: Apps for Teaching Statistics, R Programming, and Shiny App Development

library(teachingApps)

ui = fluidPage(theme = add_theme(getShinyOption('theme')), 
               add_css(),

  title = 'MathJax Examples',
  withMathJax(),
  helpText('An irrational number \\(\\sqrt{2}\\)
           and a fraction $$1-\\frac{1}{2}$$'),
  helpText('and a fact about \\(\\pi\\):
           $$\\begin{aligned}\\frac2\\pi \\& = \\frac{\\sqrt2}2 \\cdot\\\\
           \\frac{\\sqrt{2 \\& +\\sqrt2}}2 \\cdot\\\\
           \\frac{\\sqrt{2 \\& +\\sqrt{2+\\sqrt2}}}2 \\cdots\\end{aligned}$$'),
  uiOutput('ex1'),
  uiOutput('ex2'),
  uiOutput('ex3'),
  uiOutput('ex4'),
  checkboxInput('ex5_visible', 'Show Example 5', FALSE),
  uiOutput('ex5'))