also consider .Rmarkdown source files

README.md

@@ -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.

exampleSite/config.toml

@@ -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)"

exampleSite/content/_index.markdown

@@ -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.

exampleSite/content/post/2017-06-21-an-r-markdown-example.Rmarkdown

@@ -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.

exampleSite/content/post/2017-06-21-an-r-markdown-example.markdown

@@ -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.

layouts/_default/list.html

@@ -6,7 +6,6 @@
 
 {{ .Content }}
 
-{{if not .IsHome }}
 <ul>
   {{ range (where .Data.Pages "Section" "!=" "") }}
   <li>
@@ -15,6 +14,5 @@
   </li>
   {{ end }}
 </ul>
-{{ end }}
 
 {{ partial "footer.html" . }}

layouts/partials/footer.html

@@ -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>