1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
<!-- Bookdown before-body file -->
<!-- Hack to generate a proper cover and fix the missing index.html file -->
<!-- See https://stackoverflow.com/questions/58340924/bookdown-generates-index-file-with-a-chapter-title-instead-of-index-html-when -->
<!-- See https://bookdown.org/yihui/rmarkdown-cookbook/document-metadata.html -->
```{r echo=FALSE, results='asis'}
if (knitr::is_html_output()) {
cat('# Início {#index .unnumbered}')
cat("\n")
cat('<img src="images/cover.png">')
cat("\n")
cat("<h2>Sobre</h2>")
cat("\n")
cat('<em>')
cat(readLines('DISCLAIMER'), sep='\n')
cat('</em>')
cat('<br/><br/>')
cat('Livro Vivo - Versão <strong><em>')
cat(readLines('.metadata/revision.txt'), sep='\n')
cat('</em></strong> - compilada em <strong><em>')
cat(readLines('.metadata/date.txt'), sep='\n')
cat('</em></strong>.')
cat('<br/>')
cat('Versões anteriores disponíveis no <a href="/archive">arquivo</a>.')
cat('<br/>')
cat('Caderno de anotações disponível <a href="/notes">aqui</a>.')
cat('<br/><br/>')
cat(readLines('snippets/project.txt'))
cat(' - ')
cat(readLines('snippets/volume.txt'))
cat('<br/>')
cat('Publicado por ')
#cat(rmarkdown::metadata$publisher)
cat(readLines('snippets/publisher.txt'))
cat('<br/>')
cat('Publicado em ')
cat(readLines('snippets/url.txt'), sep='\n')
cat('<br/><br/>')
cat(readLines('snippets/keywords.txt'), sep='\n')
cat("\n")
cat("<h2>Créditos</h2>")
cat("\n")
cat(paste(rmarkdown::metadata$title, "<br/>", "Copyleft ©", readLines('.metadata/year.txt'), rmarkdown::metadata$author, readLines('snippets/contact.txt'), sep=' '))
cat('<br/><br/>')
cat(readLines('LICENSE'), sep='\n')
cat('<br/><br/>')
cat(readLines('snippets/cover.txt'), sep='\n')
cat("<h2>Versão PDF</h2>")
cat("\n")
cat('Baixe a versão PDF <a href="book.pdf">aqui</a>, ou navegue abaixo:')
cat("\n")
cat('<br/><br/>')
cat('<embed src="book.pdf" width="100%" height="375" type="application/pdf">')
cat('<br/><br/>')
}
```
<!-- Sample block for the LaTeX output -->
```{r echo=FALSE, results='asis'}
if (knitr::is_latex_output()) {
# Your code here
}
```
|
