#'@title temp
#'@description temp
#'@return temp
#'@author Mike Vlah
#'@export
#'
plotLegend = function(){
par(mar=rep(0,4), oma=rep(0,4))
plot(1, 1, type='n', axes=FALSE, xlab='', ylab='')
legend(x='bottom', legend=c('O2', 'CO2', 'DIC', 'pH'),
col=c('blue', 'red', 'forestgreen', 'sienna1'), lty=1,
bty='n', seg.len=.8, adj=.3, horiz=TRUE, lwd=2)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.