Combine_AIM_LMF_Species: Combine_AIM_LMF_Species

In R-Burke/SiteSummaryTool: Ecological Site Summaries using Assessment, Inventory, and Monitoring (AIM) and Landscape Monitoring Framework (LMF) data

Description

Combines species indicators for TerrADat and LMF datasets. Returns a dataframe.

Usage

Combine_AIM_LMF_Species(TerrADat_Path, Internal)

Arguments

TerrADat_Path	Path to TerrADat geodatabase. Set to NULL if on Bureau of Land Management network/vpn.
Internal	logical. TRUE if within BLM network/on vpn. FALSE if accessing TerrADat via external geodatabase.

Author(s)

Rachel Burke, ecologist/analyst @ Jornada

Examples

# If accessing TerrADat via external geodatabase:
Species_Indicator <- Combine_AIM_LMF_Species(TerrADat_Path = 
                     "TerrADat_Path"~/gdbs/TerrADat.gdb"", Internal = FALSE)
          
# If accessing TerrADat via BLM network:
Species_Indicator <- Combine_AIM_LMF_Species(TerrADat_Path = NULL, Internal = TRUE)
          
## The function is currently defined as
function (TerrADat_Path, Internal) 
{
    if (!Internal) {
        TerrADatSpecies <- sf::st_read(dsn = TerrADat_Path, layer = "TerrADatSpeciesIndicators")
        LMFSpecies <- sf::st_read(dsn = TerrADat_Path, layer = "LMFSpeciesIndicators")
        TerrADatSpecies <- as.data.frame(TerrADatSpecies)
        TerrADatSpecies <- dplyr::select(TerrADatSpecies, -Shape)
        LMFSpecies <- as.data.frame(LMFSpecies)
        LMFSpecies <- dplyr::select(LMFSpecies, -Shape)
    }
    if (Internal) {
        TerrADatSpecies <- TerrADatSpecies
        LMFSpecies <- LMFSpecies
        SpeciesList <- SpeciesList
    }
    LMFSpecies[setdiff(names(TerrADatSpecies), names(LMFSpecies))] <- NA
    TerrADatSpecies[setdiff(names(LMFSpecies), names(TerrADatSpecies))] <- NA
    output <- rbind(TerrADatSpecies, LMFSpecies)
    return(output)
  }

R-Burke/SiteSummaryTool documentation built on Oct. 15, 2020, 8:21 p.m.