knitr::opts_chunk$set(eval = FALSE)
author: Sebastian Warnholz
date: r Sys.Date()
email: wahani@gmail.com
//empty
Try this now by typing 'e'
//code
hi <- "Hi\n" cat(hi)
//center
//code
//empty
//center type 'e' to see the source of this slide
//empty
//code
.fileName <- system.file("Introduction.Rmd", package = "REPLesentR") .allSlide <- readLines(.fileName) .thisSlidePosition <- grep("^# slide formats examples", .allSlide, TRUE) .thisSlide <- .allSlide[.thisSlidePosition:(.thisSlidePosition + 14)] for (row in .thisSlide) cat(row, "\n")
set.seed(2) x <- rnorm(20) y <- 1 + x * 5 + rnorm(20) txtplot::txtplot(x, y)
You can find the source of this presentation by typing 'e':
//code
print(system.file("Introduction.Rmd", package = "REPLesentR"))
//center https://github.com/marconilanna/REPLesent
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.