Compare commits

...

3 Commits

Author SHA1 Message Date
Yihui Xie d994ad582a also consider .Rmarkdown source files 2018-03-21 10:37:41 -05:00
Yihui Xie 02c0a8d661 add an Rmarkdown post for demo purposes 2018-03-21 10:37:41 -05:00
Yihui Xie 15e14d207e implement the Github edit link 2018-03-21 10:35:35 -05:00
6 changed files with 71 additions and 4 deletions

View File

@ -16,11 +16,11 @@ find . -not -path '*/exampleSite/*' \( -name '*.html' -o -name '*.css' \) | xarg
16 ./layouts/_default/terms.html
0 ./layouts/partials/foot_custom.html
0 ./layouts/partials/head_custom.html
9 ./layouts/partials/footer.html
20 ./layouts/partials/footer.html
20 ./layouts/partials/header.html
51 ./static/css/style.css
7 ./static/css/fonts.css
138 total
149 total
```
I can certainly further reduce the code, for example, by eliminating the CSS, but I believe a tiny bit CSS can greatly improve readability. You cannot really find many CSS frameworks that only contain 50 lines of code.

View File

@ -34,4 +34,5 @@ footnotereturnlinkcontents = "↩"
[params]
description = "A website built through Hugo and blogdown."
GithubEdit = "https://github.com/yihui/hugo-xmin/edit/feature/github-edit/exampleSite/content/"
footer = "© [Yihui Xie](https://yihui.name) 2017 -- 2018 | [Github](https://github.com/yihui) | [Twitter](https://twitter.com/xieyihui)"

View File

@ -22,11 +22,11 @@ find . -not -path '*/exampleSite/*' \( -name '*.html' -o -name '*.css' \) | xarg
16 ./layouts/_default/terms.html
0 ./layouts/partials/foot_custom.html
0 ./layouts/partials/head_custom.html
9 ./layouts/partials/footer.html
20 ./layouts/partials/footer.html
20 ./layouts/partials/header.html
51 ./static/css/style.css
7 ./static/css/fonts.css
138 total
149 total
```
I can certainly further reduce the code, for example, by eliminating the CSS, but I believe a tiny bit CSS can greatly improve readability. You cannot really find many CSS frameworks that only contain 50 lines of code.

View File

@ -0,0 +1,19 @@
---
title: An R Markdown Example
author: Yihui Xie
date: '2017-06-21'
categories:
- Example
- R
tags:
- blogdown
slug: an-r-markdown-example
---
This is a simple R Markdown example, with a single R code chunk below.
```{r}
knitr::kable(head(mtcars))
```
The table shows the first 6 rows of the `mtcars` dataset in base R.

View File

@ -0,0 +1,31 @@
---
title: An R Markdown Example
author: Yihui Xie
date: '2017-06-21'
categories:
- Example
- R
tags:
- blogdown
slug: an-r-markdown-example
---
This is a simple R Markdown example, with a single R code chunk below.
```r
knitr::kable(head(mtcars))
```
| | mpg| cyl| disp| hp| drat| wt| qsec| vs| am| gear| carb|
|:-----------------|----:|---:|----:|---:|----:|-----:|-----:|--:|--:|----:|----:|
|Mazda RX4 | 21.0| 6| 160| 110| 3.90| 2.620| 16.46| 0| 1| 4| 4|
|Mazda RX4 Wag | 21.0| 6| 160| 110| 3.90| 2.875| 17.02| 0| 1| 4| 4|
|Datsun 710 | 22.8| 4| 108| 93| 3.85| 2.320| 18.61| 1| 1| 4| 1|
|Hornet 4 Drive | 21.4| 6| 258| 110| 3.08| 3.215| 19.44| 1| 0| 3| 1|
|Hornet Sportabout | 18.7| 8| 360| 175| 3.15| 3.440| 17.02| 0| 0| 3| 2|
|Valiant | 18.1| 6| 225| 105| 2.76| 3.460| 20.22| 1| 0| 3| 1|
The table shows the first 6 rows of the `mtcars` dataset in base R.

View File

@ -4,6 +4,22 @@
<hr/>
{{ . | markdownify }}
{{ end }}
{{ if .File.Path }}
{{ $.Scratch.Set "FilePath" .File.Path }}
{{ $RmdFile := (print .File.BaseFileName ".Rmd") }}
{{ $Files := readDir (print "content/" .File.Dir) }}
{{ if (where $Files "Name" $RmdFile) }}
{{ $.Scratch.Set "FilePath" (print .File.Dir $RmdFile) }}
{{ else }}
{{ $RmdFile := (print .File.BaseFileName ".Rmarkdown") }}
{{ if (where $Files "Name" $RmdFile) }}
{{ $.Scratch.Set "FilePath" (print .File.Dir $RmdFile) }}
{{ end }}
{{ end }}
{{ with .Site.Params.GithubEdit}}
| <a href="{{ . }}{{ $.Scratch.Get "FilePath" }}">Edit this page</a>
{{ end }}
{{ end }}
</footer>
</body>
</html>