get_lots<-function(){
require(RMySQL)
db<-adminKraken::con_mysql()
dbquery<-dbSendQuery(db,"SELECT DISTINCT(Lot) from mvdata;")
dbLots<-dbFetch(dbquery)
dbClearResult(dbquery)
dbLots
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.