Nothing
## ---- eval=FALSE---------------------------------------------------------
# install.packages('Rpoet')
## ---- eval=FALSE---------------------------------------------------------
# devtools::install_github('aschleg/Rpoet')
## ---- eval=FALSE---------------------------------------------------------
# library(Rpoet)
## ---- eval=FALSE---------------------------------------------------------
# get.poetry('author', 'William Shakespeare')
## ---- eval=FALSE---------------------------------------------------------
# get.poetry('title', 'Paradise Lost')
## ---- eval=FALSE---------------------------------------------------------
# get.poetry('lines', 'But thou contracted to thine own bright eyes,')
## ---- eval=FALSE---------------------------------------------------------
# get.poetry('author', 'William Shakespeare', 'title,linecount')
## ---- eval=FALSE---------------------------------------------------------
# get.poetry('title', 'Paradise Lost', 'lines')
## ---- eval=FALSE---------------------------------------------------------
# get.poetry('title,author', 'Paradise Lost;Milton', 'title,linecount')
## ---- eval=FALSE---------------------------------------------------------
# fourteen_lines <- get.poetry('author,linecount', 'William Shakespeare;14', 'title,linecount')
# nrow(fourteen_lines)
## ---- eval=FALSE---------------------------------------------------------
# authors <- get.poetry('author')
# titles <- get.poetry('title')
#
# print(c(paste('Number of authors:', length(authors$authors), sep = ' '),
# paste('Number of titles:', length(titles$titles), sep = ' ')))
## ---- eval=FALSE---------------------------------------------------------
# length(titles$titles) / length(authors$authors)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.