## ----setup, include=FALSE-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
header_con <- file("vignette_header.html")
writeLines('<meta name="flattr:id" content="4zdzgd" />', header_con)
close(header_con)
## ---- eval=FALSE--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
# sampleText <- c("This", "is", "a", "rather", "stupid", "demonstration")
# library(sylly.en)
# hyph.txt.en <- hyphen(sampleText, hyph.pattern="en")
## ---- eval=FALSE--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
# url.is.pattern <- url("http://tug.ctan.org/tex-archive/language/hyph-
# utf8/tex/generic/hyph-utf8/patterns/txt/hyph-is.pat.txt")
# hyph.is <- read.hyph.pat(url.is.pattern, lang="is")
# close(url.is.pattern)
# hyph.txt.is <- hyphen(icelandicSampleText, hyph.pattern=hyph.is)
## ---- eval=FALSE--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
# hyphenText(hyph.txt.en)
## ---- eval=FALSE--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
# hyph.txt.en <- correct.hyph(hyph.txt.en)
## ---- eval=FALSE--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
# hyph.txt.en <- correct.hyph(hyph.txt.en, word="primary", hyphen="pri-ma-ry")
## ---- eval=FALSE--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
# set.sylly.env(hyph.cache.file="~/sylly_cache.Rdata")
## ---- eval=FALSE--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
# options(
# sylly=list(
# hyph.cache.file="~/sylly_cache.RData"
# )
# )
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.