SubsetEcologicalSite_Species <- function(EcoSitePlots, Species_Indicator){
EcoSite_PKs <- EcoSitePlots$PrimaryKey
Species_plots_ecosite <- Species_Indicator[(Species_Indicator[["PrimaryKey"]] %in% EcoSite_PKs), ]
return(Species_plots_ecosite)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.