Skip to content
Snippets Groups Projects
Commit e22a792d authored by Amelie Lucker's avatar Amelie Lucker
Browse files

Goodpractice use <- instead of = in vignettes

parent 311d9c9e
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
vignettes/contacts.Rmd
+ 5
− 5
View file @ e22a792d
...@@ -21,18 +21,18 @@ knitr::opts_chunk$set( ...@@ -21,18 +21,18 @@ knitr::opts_chunk$set(
knitr::knit_hooks$set( knitr::knit_hooks$set(
source = function(x, options) { source = function(x, options) {
hook.r = function(x, options) { hook.r <- function(x, options) {
fence <- "```" fence <- "```"
language = tolower(options$engine) language <- tolower(options$engine)
if (language == 'node') language = 'javascript' if (language == 'node') language <- 'javascript'
if (!options$highlight) language = 'text' if (!options$highlight) language <- 'text'
if(!is.null(options$foldcode)) { if(!is.null(options$foldcode)) {
paste0('\n\n', "<details><summary>Source</summary>\n", fence, language, '\n', x, fence, '\n\n', "</details>\n") paste0('\n\n', "<details><summary>Source</summary>\n", fence, language, '\n', x, fence, '\n\n', "</details>\n")
} else { } else {
paste0('\n\n', fence, language, '\n', x, fence, '\n\n') paste0('\n\n', fence, language, '\n', x, fence, '\n\n')
} }
} }
x = knitr:::hilight_source(x, 'markdown', options) x <- knitr:::hilight_source(x, 'markdown', options)
hook.r( hook.r(
paste(c( paste(c(
x, x,
......
vignettes/contagious_period.Rmd
+ 5
− 5
View file @ e22a792d
...@@ -21,18 +21,18 @@ knitr::opts_chunk$set( ...@@ -21,18 +21,18 @@ knitr::opts_chunk$set(
knitr::knit_hooks$set( knitr::knit_hooks$set(
source = function(x, options) { source = function(x, options) {
hook.r = function(x, options) { hook.r <- function(x, options) {
fence <- "```" fence <- "```"
language = tolower(options$engine) language <- tolower(options$engine)
if (language == 'node') language = 'javascript' if (language == 'node') language <- 'javascript'
if (!options$highlight) language = 'text' if (!options$highlight) language <- 'text'
if(!is.null(options$foldcode)) { if(!is.null(options$foldcode)) {
paste0('\n\n', "<details><summary>Source</summary>\n", fence, language, '\n', x, fence, '\n\n', "</details>\n") paste0('\n\n', "<details><summary>Source</summary>\n", fence, language, '\n', x, fence, '\n\n', "</details>\n")
} else { } else {
paste0('\n\n', fence, language, '\n', x, fence, '\n\n') paste0('\n\n', fence, language, '\n', x, fence, '\n\n')
} }
} }
x = knitr:::hilight_source(x, 'markdown', options) x <- knitr:::hilight_source(x, 'markdown', options)
hook.r( hook.r(
paste(c( paste(c(
x, x,
......
vignettes/future_infections.Rmd
+ 5
− 5
View file @ e22a792d
...@@ -21,18 +21,18 @@ knitr::opts_chunk$set( ...@@ -21,18 +21,18 @@ knitr::opts_chunk$set(
knitr::knit_hooks$set( knitr::knit_hooks$set(
source = function(x, options) { source = function(x, options) {
hook.r = function(x, options) { hook.r <- function(x, options) {
fence <- "```" fence <- "```"
language = tolower(options$engine) language <- tolower(options$engine)
if (language == 'node') language = 'javascript' if (language == 'node') language <- 'javascript'
if (!options$highlight) language = 'text' if (!options$highlight) language <- 'text'
if(!is.null(options$foldcode)) { if(!is.null(options$foldcode)) {
paste0('\n\n', "<details><summary>Source</summary>\n", fence, language, '\n', x, fence, '\n\n', "</details>\n") paste0('\n\n', "<details><summary>Source</summary>\n", fence, language, '\n', x, fence, '\n\n', "</details>\n")
} else { } else {
paste0('\n\n', fence, language, '\n', x, fence, '\n\n') paste0('\n\n', fence, language, '\n', x, fence, '\n\n')
} }
} }
x = knitr:::hilight_source(x, 'markdown', options) x <- knitr:::hilight_source(x, 'markdown', options)
hook.r( hook.r(
paste(c( paste(c(
x, x,
......
vignettes/infection_period.Rmd
+ 5
− 5
View file @ e22a792d
...@@ -21,18 +21,18 @@ knitr::opts_chunk$set( ...@@ -21,18 +21,18 @@ knitr::opts_chunk$set(
knitr::knit_hooks$set( knitr::knit_hooks$set(
source = function(x, options) { source = function(x, options) {
hook.r = function(x, options) { hook.r <- function(x, options) {
fence <- "```" fence <- "```"
language = tolower(options$engine) language <- tolower(options$engine)
if (language == 'node') language = 'javascript' if (language == 'node') language <- 'javascript'
if (!options$highlight) language = 'text' if (!options$highlight) language <- 'text'
if(!is.null(options$foldcode)) { if(!is.null(options$foldcode)) {
paste0('\n\n', "<details><summary>Source</summary>\n", fence, language, '\n', x, fence, '\n\n', "</details>\n") paste0('\n\n', "<details><summary>Source</summary>\n", fence, language, '\n', x, fence, '\n\n', "</details>\n")
} else { } else {
paste0('\n\n', fence, language, '\n', x, fence, '\n\n') paste0('\n\n', fence, language, '\n', x, fence, '\n\n')
} }
} }
x = knitr:::hilight_source(x, 'markdown', options) x <- knitr:::hilight_source(x, 'markdown', options)
hook.r( hook.r(
paste(c( paste(c(
x, x,
......
vignettes/risk_assessment_group_quarantine.Rmd
+ 5
− 5
View file @ e22a792d
...@@ -21,18 +21,18 @@ knitr::opts_chunk$set( ...@@ -21,18 +21,18 @@ knitr::opts_chunk$set(
knitr::knit_hooks$set( knitr::knit_hooks$set(
source = function(x, options) { source = function(x, options) {
hook.r = function(x, options) { hook.r <- function(x, options) {
fence <- "```" fence <- "```"
language = tolower(options$engine) language <- tolower(options$engine)
if (language == 'node') language = 'javascript' if (language == 'node') language <- 'javascript'
if (!options$highlight) language = 'text' if (!options$highlight) language <- 'text'
if(!is.null(options$foldcode)) { if(!is.null(options$foldcode)) {
paste0('\n\n', "<details><summary>Source</summary>\n", fence, language, '\n', x, fence, '\n\n', "</details>\n") paste0('\n\n', "<details><summary>Source</summary>\n", fence, language, '\n', x, fence, '\n\n', "</details>\n")
} else { } else {
paste0('\n\n', fence, language, '\n', x, fence, '\n\n') paste0('\n\n', fence, language, '\n', x, fence, '\n\n')
} }
} }
x = knitr:::hilight_source(x, 'markdown', options) x <- knitr:::hilight_source(x, 'markdown', options)
hook.r( hook.r(
paste(c( paste(c(
x, x,
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Datenschutz und Impressum