# Get the station information of QTP
SID_info <- function(SID){
position <- which(Station_Info$SID==SID)
info <- Station_Info[position, ]
return(info)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.