17 - Comunicar sus resultados
François Rebaudo, IRD francois.rebaudo@ird.fr
Marzo 2019 ; PUCE-Quito-Ecuador http://myrbooksp.netlify.com/
CC BY-NC-ND 3.0
Reproducibilidad
Reproducibilidad
Reproducir los resultados publicados… que opinan?
Reproducibilidad
rmarkdown
rmarkdown
Communicar sus resultados.
rmarkdown
#---
#title: "titulo del documento"
#author: "quien ha hecho el documento"
#date: "fecha del documento" # o "`r format(Sys.time(), '%d %B, %Y')`"
#output: html_document # tipo
#---rmarkdown
pkgCheck <- function(x){
if (!require(x, character.only = TRUE)){
install.packages(x, dependencies = TRUE)
if(!require(x, character.only = TRUE)) {
stop()
}
}
}
pkgCheck("rmarkdown")rmarkdown
rmarkdown::render(
input = "myData/rmarkdown_ex.Rmd",
output_format = "html_document",
output_file = "rmarkdown_res01.html")##
##
## processing file: rmarkdown_ex.Rmd##
|
| | 0%
|
|............. | 20%
## inline R code fragments
##
##
|
|.......................... | 40%
## label: cars
##
|
|....................................... | 60%
## ordinary text without R code
##
##
|
|.................................................... | 80%
## label: pressure (with options)
## List of 1
## $ echo: logi FALSE##
|
|.................................................................| 100%
## ordinary text without R code## output file: rmarkdown_ex.knit.md## "C:/Program Files/RStudio/bin/pandoc/pandoc" +RTS -K512m -RTS rmarkdown_ex.utf8.md --to html4 --from markdown+autolink_bare_uris+ascii_identifiers+tex_math_single_backslash --output rmarkdown_res01.html --smart --email-obfuscation none --self-contained --standalone --section-divs --template "C:\Users\nous\Documents\R\win-library\3.5\rmarkdown\rmd\h\default.html" --no-highlight --variable highlightjs=1 --variable "theme:bootstrap" --include-in-header "C:\Users\nous\AppData\Local\Temp\RtmpmqK7nm\rmarkdown-str2fb4576834c3.html" --mathjax --variable "mathjax-url:https://mathjax.rstudio.com/latest/MathJax.js?config=TeX-AMS-MML_HTMLorMML"##
## Output created: rmarkdown_res01.htmlrmarkdown
flexdashboard
flexdashboard
flexdashboard
#---
#title: ""
#output:
# flexdashboard::flex_dashboard:
# orientation: rows
#---flexdashboard
pkgCheck <- function(x){
if (!require(x, character.only = TRUE)){
install.packages(x, dependencies = TRUE)
if(!require(x, character.only = TRUE)) {
stop()
}
}
}
pkgCheck("flexdashboard")flexdashboard
rmarkdown::render(
input = "myData/dashboard_ex.Rmd",
output_file = "dashboard_res01.html")##
##
## processing file: dashboard_ex.Rmd##
|
| | 0%
|
|... | 5%
## ordinary text without R code
##
##
|
|....... | 11%
## label: setup (with options)
## List of 1
## $ include: logi FALSE
##
##
|
|.......... | 16%
## ordinary text without R code
##
##
|
|.............. | 21%
## label: overview
##
|
|................. | 26%
## ordinary text without R code
##
##
|
|..................... | 32%
## label: x1
##
|
|........................ | 37%
## ordinary text without R code
##
##
|
|........................... | 42%
## label: x2
##
|
|............................... | 47%
## ordinary text without R code
##
##
|
|.................................. | 53%
## label: x3
##
|
|...................................... | 58%
## ordinary text without R code
##
##
|
|......................................... | 63%
## label: x4
##
|
|............................................ | 68%
## ordinary text without R code
##
##
|
|................................................ | 74%
## label: x5
##
|
|................................................... | 79%
## ordinary text without R code
##
##
|
|....................................................... | 84%
## label: x6
##
|
|.......................................................... | 89%
## ordinary text without R code
##
##
|
|.............................................................. | 95%
## label: figure (with options)
## List of 2
## $ fig.width : num 7
## $ fig.height: num 7##
|
|.................................................................| 100%
## ordinary text without R code## output file: dashboard_ex.knit.md## "C:/Program Files/RStudio/bin/pandoc/pandoc" +RTS -K512m -RTS dashboard_ex.utf8.md --to html4 --from markdown+autolink_bare_uris+ascii_identifiers+tex_math_single_backslash --output dashboard_res01.html --smart --email-obfuscation none --self-contained --standalone --section-divs --template "C:\Users\nous\Documents\R\win-library\3.5\flexdashboard\rmarkdown\templates\flex_dashboard\resources\default.html" --variable "theme:cosmo" --include-in-header "C:\Users\nous\AppData\Local\Temp\RtmpmqK7nm\rmarkdown-str2fb45dd3451.html" --mathjax --variable "mathjax-url:https://mathjax.rstudio.com/latest/MathJax.js?config=TeX-AMS-MML_HTMLorMML" --include-in-header "C:\Users\nous\AppData\Local\Temp\RtmpmqK7nm\file2fb4687135c7html" --include-before-body "C:\Users\nous\AppData\Local\Temp\RtmpmqK7nm\file2fb44536204.html" --highlight-style pygments --include-before-body "C:\Users\nous\AppData\Local\Temp\RtmpmqK7nm\file2fb44af2915.html" --include-after-body "C:\Users\nous\AppData\Local\Temp\RtmpmqK7nm\file2fb457aa62ff.html"##
## Output created: dashboard_res01.htmlflexdashboard
revealjs
revealjs
revealjs
revealjs
pkgCheck <- function(x){
if (!require(x, character.only = TRUE)){
install.packages(x, dependencies = TRUE)
if(!require(x, character.only = TRUE)) {
stop()
}
}
}
pkgCheck("revealjs")revealjs
rmarkdown::render(
input = "myData/revealjs_ex.Rmd",
output_file = "revealjs_res01.html")##
##
## processing file: revealjs_ex.Rmd##
|
| | 0%
|
|................ | 25%
## ordinary text without R code
##
##
|
|................................ | 50%
## label: codigo
##
|
|................................................. | 75%
## ordinary text without R code
##
##
|
|.................................................................| 100%
## label: grafico (with options)
## List of 1
## $ echo: logi FALSE## output file: revealjs_ex.knit.md## "C:/Program Files/RStudio/bin/pandoc/pandoc" +RTS -K512m -RTS revealjs_ex.utf8.md --to revealjs --from markdown+autolink_bare_uris+ascii_identifiers+tex_math_single_backslash-implicit_figures --output revealjs_res01.html --smart --email-obfuscation none --self-contained --template "C:\Users\nous\Documents\R\win-library\3.5\revealjs\rmarkdown\templates\revealjs_presentation\resources\default.html" --variable center=false --slide-level 2 --variable theme=simple --variable transition=default --variable backgroundTransition=default --variable history=true --mathjax --variable "mathjax-url:https://mathjax.rstudio.com/latest/MathJax.js?config=TeX-AMS-MML_HTMLorMML" --variable revealjs-url=revealjs_res01_files/reveal.js-3.3.0.1 --highlight-style pygments##
## Output created: revealjs_res01.html