if (FALSE) {
dtaFrm <- jmvReadWrite::ToothGrowth[, c("len", "supp", "dose")]
nmeOut <- tempfile(fileext = ".omv")
# the paste's underneath are only for readability (without them, the vignettes are misformatted)
lstDsc <- list(description = paste("The response is the length of odontoblasts (cells responsible",
"for tooth growth) in 60 guinea pigs. Each animal received one",
"of three dose levels of vitamin C (0.5, 1, and 2 mg / day) by",
"one of two delivery methods, orange juice or ascorbic acid (a",
"form of vitamin C and coded as VC)."),
variables = list(len = "Tooth length",
supp = "Supplement type (VC or OJ)",
dose = "Dose (in milligrams / day"),
references = paste("Crampton, E. W. (1947). The growth of the odontoblast of the",
"incisor teeth as a criterion of vitamin C intake of the guinea",
"pig. The Journal of Nutrition, 33(5), 491-504.",
"https://doi.org/10.1093/jn/33.5.491"),
license = "")
jmvReadWrite::describe_omv(dtaInp = dtaFrm, fleOut = nmeOut, dtaTtl = "ToothGrowth",
dtaDsc = lstDsc)
# don't include the unlink, if you copy the code and want to look at the resulting output file
unlink(nmeOut)
# the code underneath should cover all formatting options jamovi is able to use (paste0 is only
# for readability)
chrDsc <- paste0("Trial – all formattings:bold",
"bold, italicsitalicsunderlined",
"link:https://",
"jamovi.orgstrikethroughC2H5",
"OHR2background ",
"colour: redforeground color: red",
"centered",
"rightjustify justify justify justify justify ",
"justify justify justify justify justify justify justify justify justify justify ",
"justify justify justify justify justify justify justify justify justify justify",
"numbered listnumbered list",
"bullet pointbullet point",
"indented onceindented twiceindented onceFormula: ",
"e=mc^2Preformattednormal againHeading")
jmvReadWrite::describe_omv(dtaInp = dtaFrm, fleOut = nmeOut, dtaTtl = "ToothGrowth",
dtaDsc = chrDsc)
unlink(nmeOut)
}
Run the code above in your browser using DataLab