R/plotPlots.R

In HannaMeyer/Carbon4D: Functions for handling and analysing data of the Carbon4D project

#' Plot the Carbon4D plots
#' @description
#' @param url URL of the Carbon-4D data base
#' @details 
#' @return A mapview output
#' @author
#' Hanna Meyer
#' @examples
#' \dontrun{
#' plotPlots()
#' }
#' @export plotPlots
#' @aliases plotPlots
plotPlots <- function(url){
  plots <- readr::read_csv(gsheet::construct_download_url(url))
  plots <- plots[plots$PlotID!="P0000",]
  plots_sf <- sf::st_as_sf(plots,coords = c("Lon","Lat"))
  sf::st_crs(plots_sf) <- 4326
  mapview::mapview(plots_sf)
}