list_mvlots <- function() {
nms_con <- adminKraken::con_mysql()
nms <- RMySQL::dbSendQuery(nms_con, 'Select Distinct(Lot) from mvdata;')
x <- RMySQL::dbFetch(nms)
RMySQL::dbClearResult(nms)
RMySQL::dbDisconnect(nms_con)
x
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.