Skip to content

Instantly share code, notes, and snippets.

@ramnathv

ramnathv/qrcode.Rmd

Last active December 11, 2015 19:48
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save ramnathv/4651052 to your computer and use it in GitHub Desktop.
Save ramnathv/4651052 to your computer and use it in GitHub Desktop.
Download ZIP
Slide with QR Code
Raw
qrcode.Rmd
---
## Read-And-Delete
```{r echo = F}
`%|%` <- function(x, f){
f(x)
}
qrcode <- function(x){
url = URLencode(x)
sprintf('<img src="http://chart.apis.google.com/chart?cht=qr&amp;chs=300x300&amp;chl=%s&amp;chld=H|0" alt="QR Code">', url)
}
```
--- &vcenter
`r "https://www.github.com/ramnathv/slidify" %|% qrcode`
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment