In Gedevan-Aleksizde/rmdja: R Markdown Formats for Japanese

options(huxtable.bookdown = T)
# アンダースコアを確実に回避するためコピーするしかない
file.copy(system.file("resources/bibliography/rmdja.bib", package="rmdja"), "./")
# 画像をコピー
img_dir <- "img/"
if(!file.exists(img_dir)) dir.create(img_dir, recursive = T)
file.copy(file.path(system.file("resources/img", package = "rmdja"),
                    c("Johannes_Gutenberg.jpg", "build-pane.png", "build-pane-build.png",
                      "tategaki.png", "rmd-templates.png", "new-file.png", "citr.png",
                      "kableExtra.svg", "kableExtra.pdf", "gt.svg", "gt.pdf")), img_dir)

# epub 用にスタイルファイルをコピー
if(!file.exists("_epub/css")) dir.create("_epub/css", recursive = T)
file.copy(file.path(system.file("resources/style/css/", package = "rmdja"), c("style.css", "toc.css")), "_epub/css")
file.copy(file.path(system.file("resources/style/img/", package = "rmdja"), c("caution.png", "important.png", "note.png", "tip.png", "warning.png")), "_epub/css")

require(knitr)
require(kableExtra)
opts_chunk$set(
  echo = F,
  comment = "",
  error = F,
  warning = F
  )
par(family = "Noto Serif CJK JP")
rmdja::set_graphics_font("Noto Serif CJK JP")

(PART) イントロダクション {-}

序文 {-}

rmdja::get_CC("yes", F, "normal")

::::::{.infobox .caution data-latex="{caution}"} ::: {.center data-latex=""} 注意! ::: 現在, このドキュメントは煩雑でパッケージの更新に対して追いついていません. あまり信用しないでください. ::::::

Gedevan-Aleksizde/rmdja documentation built on Sept. 28, 2021, 2:49 a.m.