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"