R/loadVGIS.R

In bcgov/BCForestGroundSample: BC forest ground sample compilation

#' Load the data from Oracle database
#'
#'
#' @description This function is to read the data from VGIS Oracle database
#'
#' @param userName character, Specifies a valid user name in VGIS Oracle database.
#' @param password character, Specifies the password to the user name.
#' @param saveThem logical, Specifies whether the loaded data should be saved or returned.
#'                 The default value is FALSE, which means the function will not save files
#'                 for you.
#' @param savePath character, Specifies the path that directs to the VRI original data soruce, i.e.,
#'                                  \code{//Mayhem/GIS_TIB/RDW/RDW_Data2/Work_Areas/VRI_ASCII_PROD/vri_sa}.
#'
#' @return no files
#'
#'
#' @rdname loadVGIS
#' @author Yong Luo
loadVGIS <- function(userName, password,
                     saveThem = FALSE, savePath = "."){
  loadVGISSample(userName = userName,
                 password = password,
                 saveThem = saveThem,
                 savePath = savePath)
  loadVGISCrew(userName = userName,
               password = password,
               saveThem = saveThem,
               savePath = savePath)
  loadVGISSampleAccess(userName = userName,
                       password = password,
                       saveThem = saveThem,
                       savePath = savePath)
  loadVGISPlot(userName = userName,
               password = password,
               saveThem = saveThem,
               savePath = savePath)
  loadVGISRange(userName = userName,
                password = password,
                saveThem = saveThem,
                savePath = savePath)
  loadVGISCWD(userName = userName,
              password = password,
              saveThem = saveThem,
              savePath = savePath)
  loadVGISTreeC(userName = userName,
                password = password,
                saveThem = saveThem,
                savePath = savePath)
  loadVGISLossIndicator(userName = userName,
                        password = password,
                        saveThem = saveThem,
                        savePath = savePath)
  loadVGISSiteTree(userName = userName,
                   password = password,
                   saveThem = saveThem,
                   savePath = savePath)
  loadVGISStumpSTree(userName = userName,
                     password = password,
                     saveThem = saveThem,
                     savePath = savePath)
  loadVGISTreeI(userName = userName,
                password = password,
                saveThem = saveThem,
                savePath = savePath)
  loadVGISEcology(userName = userName,
                  password = password,
                  saveThem = saveThem,
                  savePath = savePath)
  loadVGISVeg(userName = userName,
              password = password,
              saveThem = saveThem,
              savePath = savePath)
  loadVGISSuccession(userName = userName,
                     password = password,
                     saveThem = saveThem,
                     savePath = savePath)
  loadVGISNotes(userName = userName,
                password = password,
                saveThem = saveThem,
                savePath = savePath)
  loadVGISPhoto(userName = userName,
                password = password,
                saveThem = saveThem,
                savePath = savePath)
}