Nothing
# gets all veg records per site ID
get_veg_from_AK_Site <- function(dsn) {
# must have RODBC installed
if(!requireNamespace('RODBC'))
stop('please install the `RODBC` package', call.=FALSE)
# basic query
q <- "SELECT VegStop.usiteid as site_id, VegStop.fECOSITE as ecosite, localplant.lplantsym as plantsym, localplant.lplantname as plantname, vegetation.COVER as pct_cover
FROM
(VegStop INNER JOIN vegetation ON VegStop.vegstopdbid = vegetation.vegstodbiidref)
INNER JOIN localplant ON vegetation.lplantsym = localplant.lplantuid
ORDER BY VegStop.usiteid ASC;"
# setup connection to the AK Site database
channel <- RODBC::odbcConnectAccess(dsn, readOnlyOptimize=TRUE)
# exec query
d <- RODBC::sqlQuery(channel, q, stringsAsFactors=FALSE)
# close connection
RODBC::odbcClose(channel)
# done
return(d)
}
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.