library("knitr")
library("devtools")
##
## Attaching package: 'devtools'
##
## The following objects are masked from 'package:utils':
##
## ?, help
##
## The following object is masked from 'package:base':
##
## system.file
url<-"https://plot.ly/~MattSundquist/1971"
plotly_iframe <- paste("<center><iframe scrolling='no' seamless='seamless' style='border:none' src='", url,
"/800/1200' width='800' height='1200'></iframe><center>", sep = "")