R/get_fn_portal_root.R

In AdamCottrill/glfishr: Fetch fisheries assessment data from the FN Portal

#' Internal function to url to the FN_Portal api.
#'
#' This function is intended to be used by all of the functions that
#' call an api endpoint exposed by fn_portal. Each of the portals
#' (tfat, sc_portal, fn_portal etc.)  all have a slightly different
#' access point, and each will have a similar function. If the api
#' endpoint for that portal changes in the future, (i.e.  the version
#' changes) we just need to update the value in this file and all of
#' the dependent functions will use it.  Note that the url string does
#' *NOT* include a trailing slash.
#'
#'
#' @author Adam Cottrill \email{adam.cottrill@@ontario.ca}
#'
#' @return string
#'
get_fn_portal_root <- function() {
  api_url <- "fn_portal/api/v1"

  domain <- get_domain()

  return(paste0(domain, api_url))
}