waterquality <- c(
"chla", "colora", "colort", "dkn", "doc", "nh4",
"no2", "no2no3", "srp", "tdn", "tdp", "tkn", "tn",
"toc", "ton", "tp", "secchi")
keyword_full_key <- function(){
res <- data.frame(rbind(
c("waterquality", "chla"),
c("waterquality", "colora"),
c("waterquality", "colort"),
c("waterquality", "dkn"),
c("waterquality", "doc"),
c("waterquality", "nh4"),
c("waterquality", "no2"),
c("waterquality", "no2no3"),
c("waterquality", "srp"),
c("waterquality", "tdn"),
c("waterquality", "tdp"),
c("waterquality", "tkn"),
c("waterquality", "tn"),
c("waterquality", "toc"),
c("waterquality", "ton"),
c("waterquality", "tp"),
c("waterquality", "secchi"),
c("id", "lagoslakeid")
), stringsAsFactors = FALSE)
names(res) <- c("keyword", "definition")
res
}
keyword_partial_key <- function(){
res <- data.frame(rbind(
c("id", "eventid"),
c("id", "_zoneid"),
c("deposition", "_dep_"),
c("climate", "prism"),
c("hydrology", "baseflowindex"),
c("hydrology", "groundwaterrecharge"),
c("hydrology", "runoff"),
c("hydrology", "saturationoverlandflow"),
c("geology", "surficialgeology"),
c("topography", "tri"),
c("topography", "slope"),
c("wetlands", "_wl_"),
c("lakes", "_lakes_"),
c("lulc1992", "nlcd1992"),
c("lulc2001", "nlcd2001"),
c("lulc2006", "nlcd2006"),
c("lulc2011", "nlcd2011"),
c("streams", "streamdensity")
# ,c("waterquality", "secchi")
), stringsAsFactors = FALSE)
names(res) <- c("keyword", "definition")
res
}
keyword_partial_match <- function(table_column, all_table_names){
match <- keyword_partial_key()[
keyword_partial_key()[,1] %in% table_column, 2]
if(!any(lapply(match, length) > 0 & !is.na(match))){
match <- table_column
}else{
match <- unlist(all_table_names)[grep(match, unlist(all_table_names))]
}
match
}
keyword_full_match <- function(table_column){
match <- keyword_full_key()[
table_column %in% keyword_full_key()[,1], 2]
if(!any(lapply(match, length) > 0 & !is.na(match))){
match <- table_column
}
match
}
expand_keywords <- function(table_column, all_table_names){
partial_matches <- unlist(lapply(table_column,
function(x) keyword_partial_match(x, all_table_names)))
full_matches <- unlist(lapply(partial_matches, keyword_full_match))
full_matches
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.