andreas/PAaSO
Watch
1
0
Fork
You've already forked PAaSO
 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

transfer from old repo

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2026-08-19 09:27:27 +02:00
commit 277e2b8cf3
No known key found for this signature in database
1111 changed files with 83736 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

37
apps/shinyDAG-1.0.0/R/tests/test-escape_latex.R Normal file
View file

@ -0,0 +1,37 @@
source("../node.R")
latex_text <- list(
list(t = "$m^2$", e = "$m^2$"),
list(t = "a $m^2$", e = "a $m^2$"),
list(t = "$m^2$ b", e = "$m^2$ b"),
list(t = "a $m^2$ b", e = "a $m^2$ b"),
list(t = "a $e=$$m^2$ b", e = "a $e=$$m^2$ b"),
list(t = "a $$ math", e = "a \\$\\$ math"),
list(t = "\\textbackslash", e = "\\textbackslash textbackslash"),
list(t = "# of", e = "\\# of"),
list(t = "$ amount", e = "\\$ amount"),
list(t = "my $$ is", e = "my \\$\\$ is"),
list(t = "$m $$ m$", e = "$m $$ m$"),
list(t = "$$ is $mc^2$", e = "\\$\\$ is $mc^2$"),
list(t = "a > b", e = "a \\textgreater b"), #<< extra space before b
list(t = "a < b", e = "a \\textless b"), #<< same
list(t = "a % b", e = "a \\% b"),
list(t = "a_b", e = "a\\_b"),
list(t = "a & b", e = "a \\& b"),
list(t = "a & b \\ c", e = "a \\& b \\textbackslash c"), #<< + space
list(t = "{a}", e = "\\{a\\}"),
list(t = "a ~ b", e = "a \\~{} b")
)
passed_test <- purrr::map_lgl(latex_text, function(x) {
identical(escape_latex(x$t), x$e)
})
if (all(passed_test)) {
cat('\nAll (', sum(passed_test), ') tests passed!', sep = '')
} else {
cat('\nThere were', sum(!passed_test), "failures...")
purrr::walk(latex_text[!passed_test], function(x) {
cat("\n'", x$t, "' returned '", escape_latex(x$t), "' not '", x$e, "'", sep = "")
})
}