muriyari.R

unlockBinding("to_deck", asNamespace("slidify"))
f <- function (doc) 
{
    txt = str_split_fixed(read_file(doc), "\n---", 2)
    meta = yaml.load(gsub("^---\n+", "", txt[1]))
    meta <- lapply(meta, iconv, "utf8", "sjis")
    cfile = ifelse(is.null(meta$config), "config.yml", meta$config)
    deck = modifyList(get_config(cfile), c(meta, slides = txt[2]))
    deck$standalone = ifelse(deck$mode == "standalone", TRUE, 
        FALSE)
    return(deck)
}
environment(f) <- asNamespace("slidify")
assign("to_deck", f, asNamespace("slidify"))

Sys.setlocale(locale="Japanese_Japan.932")
#knit("index.Rmd", encoding="utf8")
knit("index2.Rmd")
#Sys.setlocale(locale="C")
slidify("index2.md", knit_deck=F)
Sys.setlocale(locale="Japanese_Japan.932")
writeLines(iconv(readLines("index2.html"), from="sjis", to="utf8"), "output.html")