記事投稿のサンプル

Alternative description of the image Image credit: (https://www.pexels.com/ja-jp/photo/3772623/)

1 Theme

Academicを使用.

2 基本

2.1 コメントアウト

htmlと同じ形式

<!-- コメントアウト -->

2.2 コード

コードをコメントアウトさせる.

ファイル形式を.mdではなく.rmdにすれば,rを実行させられる.

x <- seq(0,10,0.01)
y <- sin(x)
plot(x,y, type = "l")

2.3 書式

  • 立体
  • 斜体
  • 太字
  • code

3 数式

\(\LaTeX\)と同じ形式で書ける. config/_default/params.tomlmathオプションも注意.

行中の数式は $...$ ,別行立ての数式は $$...$$, で囲う.

$$
\gamma_{n} = \frac{ 
\left | \left (\mathbf x_{n} - \mathbf x_{n-1} \right )^T 
\left [\nabla F (\mathbf x_{n}) - \nabla F (\mathbf x_{n-1}) \right ] \right |}
{\left \|\nabla F(\mathbf{x}_{n}) - \nabla F(\mathbf{x}_{n-1}) \right \|^2}
$$

\[ \gamma_{n} = \frac{ \left | \left (\mathbf x_{n} - \mathbf x_{n-1} \right )^T \left [\nabla F (\mathbf x_{n}) - \nabla F (\mathbf x_{n-1}) \right ] \right |}{\left \|\nabla F(\mathbf{x}_{n}) - \nabla F(\mathbf{x}_{n-1}) \right \|^2} \]

複数行になるときには \\\\ で改行する

$$f(k;p_0^*) = \begin{cases} p_0^* & \text{if }k=1, \\\\
1-p_0^* & \text {if }k=0.\end{cases}$$

\[f(k;p_0^*) = \begin{cases} p_0^* & \text{if }k=1, \\\\ 1-p_0^* & \text {if }k=0.\end{cases}\]

4

4.1 markdown形式

| First Header  | Second Header |
| ------------- | ------------- |
| Content Cell  | Content Cell  |
| Content Cell  | Content Cell  |
First Header Second Header
Content Cell Content Cell
Content Cell Content Cell

4.2 Rから出力

込み入った表を使うときには,Rから出力した方が簡単かもしれない.

data("ToothGrowth")
knitr::kable(head(ToothGrowth))
len supp dose
4.2 VC 0.5
11.5 VC 0.5
7.3 VC 0.5
5.8 VC 0.5
6.4 VC 0.5
10.0 VC 0.5

ただ,インタラクティブに表示するのはちょっと厄介.

d <- DT::datatable(ToothGrowth, width = "100%")
htmlwidgets::saveWidget(d, file = "d.html", selfcontained = T)
<iframe seamless src="./d.html" width = "100%" height = "700"></iframe>

heightはピクセルで指定しないといけない仕様.

5

同じフォルダに配置しておいて,参照

![Caption](featured.jpg) 

Caption

ちなみに,フリー写真素材はpexelsあたりに多い.

6 外部ファイル

6.1 外部ファイルリンク

[記事(pdf)](article.pdf)

記事(pdf)

6.2 iframeで読み込み

<iframe seamless src="./article.pdf" width = "100%" height = "800"></iframe>

6.3 データをRで読み込み

同じフォルダにおいて,参照

# write.csv(ToothGrowth,file = "data.csv", row.names = F)
d <- read.csv("data.csv")
summary(d)
##       len            supp                dose      
##  Min.   : 4.20   Length:60          Min.   :0.500  
##  1st Qu.:13.07   Class :character   1st Qu.:0.500  
##  Median :19.25   Mode  :character   Median :1.000  
##  Mean   :18.81                      Mean   :1.167  
##  3rd Qu.:25.27                      3rd Qu.:2.000  
##  Max.   :33.90                      Max.   :2.000

7 その他

いまひとつ使い道が不明だが・・・

7.1 警告

こんな感じで警告を表示することもできる

{{% alert note %}}
A Markdown aside is useful for displaying notices, hints, or definitions to your readers.
{{% /alert %}}

A Markdown aside is useful for displaying notices, hints, or definitions to your readers.

7.2 スポイラーSpoilers

問題をだすことができるらしい.

{{</* spoiler text="Click to view the spoiler" */>}}
You found me!
{{</* /spoiler */>}}

{{< spoiler text=“Click to view the spoiler” >}} You found me! {{< /spoiler >}}

7.3 アイコン

色々アイコンが出せる. icons from Font Awesome and Academicons

絵文字も emojis

ただし,.md形式限定..rmdではできない.

{{</* icon name="terminal" pack="fas" */>}} Terminal  
{{</* icon name="python" pack="fab" */>}} Python  
{{</* icon name="r-project" pack="fab" */>}} R