21.9 Known Symbols

greek_letters <- c(
  "alpha", "beta", "chi", "delta", "Delta", "epsilon", "eta", 
"gamma", "Gamma", "iota", "kappa", "lambda", "Lambda", "mu", 
"nu", "omega", "Omega", "phi", "Phi", "pi", "Pi", "psi", "Psi", 
"rho", "sigma", "Sigma", "tau", "theta", "Theta", "upsilon", 
"Upsilon", "varepsilon", "varphi", "varrho", "vartheta", "xi", 
"Xi", "zeta"
)

greek_env <- rlang::as_environment(
  rlang::set_names(
    paste0("\\", greek_letters), #latex values
    greek_letters                #R names
  )
)
str(as.list(greek_env))
#> List of 38
#>  $ zeta      : chr "\\zeta"
#>  $ Xi        : chr "\\Xi"
#>  $ xi        : chr "\\xi"
#>  $ vartheta  : chr "\\vartheta"
#>  $ varrho    : chr "\\varrho"
#>  $ varphi    : chr "\\varphi"
#>  $ varepsilon: chr "\\varepsilon"
#>  $ Upsilon   : chr "\\Upsilon"
#>  $ upsilon   : chr "\\upsilon"
#>  $ Theta     : chr "\\Theta"
#>  $ theta     : chr "\\theta"
#>  $ tau       : chr "\\tau"
#>  $ Sigma     : chr "\\Sigma"
#>  $ sigma     : chr "\\sigma"
#>  $ rho       : chr "\\rho"
#>  $ Psi       : chr "\\Psi"
#>  $ psi       : chr "\\psi"
#>  $ Pi        : chr "\\Pi"
#>  $ pi        : chr "\\pi"
#>  $ Phi       : chr "\\Phi"
#>  $ phi       : chr "\\phi"
#>  $ Omega     : chr "\\Omega"
#>  $ omega     : chr "\\omega"
#>  $ nu        : chr "\\nu"
#>  $ mu        : chr "\\mu"
#>  $ Lambda    : chr "\\Lambda"
#>  $ lambda    : chr "\\lambda"
#>  $ kappa     : chr "\\kappa"
#>  $ iota      : chr "\\iota"
#>  $ Gamma     : chr "\\Gamma"
#>  $ gamma     : chr "\\gamma"
#>  $ eta       : chr "\\eta"
#>  $ epsilon   : chr "\\epsilon"
#>  $ Delta     : chr "\\Delta"
#>  $ delta     : chr "\\delta"
#>  $ chi       : chr "\\chi"
#>  $ beta      : chr "\\beta"
#>  $ alpha     : chr "\\alpha"