R/ebx_GetEBXCodeLists.R

In bergertom/fishstatr: fishstatr: an R package to access fishstat reference data from EBX5

#' @title Get the index of EBX5 code-lists
#'
#' @description This function returns the index of code lists
#' defined in the folder 'Metadata', table name 'EBXCodelist'.
#' Requires that the EBX5 connection was configured using \code{\link{SetupEBXConnection}}.
#'
#' @param connection is optional
#'
#' @seealso \code{\link{ReadEBXCodeList}} \code{\link{GetEBXGroups}}
#'
#' @return Returns an object of the class \code{\link[data.table]{data.table}}
#'
#' @import data.table
#' @importFrom faoebx5 GetEBXConnection EBXRead
#'
#' @examples
#'
#' \dontrun{
#' library(faoebx5)
#' library(fishstatr)
#' GetEBXCodeLists()
#' }
#'
#' @export
#'
#' @author Thomas Berger, \email{thomas.berger@fao.org}
GetEBXCodeLists <- function(connection = NA) {

  #-- EBX5: connection ----
  if (missing(connection)) {
    connection <- getEbxConnection()
  }

  #-- check if the ebx5.cl_data is loaded already
  ebx5.cl_data <- get("ebx5.cl_data", envir = ebx5_env)
  if(is.null(ebx5.cl_data) || is.na(ebx5.cl_data)) {
    ebx5.cl_data <- EBXRead(
      branch = connection$meta_branch,
      instance = connection$meta_instance,
      folder='Metadata',
      table='EBXCodelist',
      connection=connection)

    if (is.null(ebx5.cl_data)) {
      stop('Cannot load [ebx5.cl_data]')
    }
    assign("ebx5.cl_data", ebx5.cl_data, envir = ebx5_env)
  }

  return (ebx5.cl_data)
}