#' This function will filter only research grade observations
#' @name research_grade_only
#' @description filters an iNaturalist search for research grade quality posts
#' @param x user data input
#' @return filtered_research data frame with research grade postings only
#' @export
#' @import dplyr
research_grade_only <- function(x){
loadNamespace("dplyr")
research_grade_only = dplyr::filter(x, quality_grade == "research")
filtered_research <<- research_grade_only
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.