R/get_tfat_root.R

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

#' Internal function to url to the tfat api.
#'
#' This function is intended to be used by all of the functions that call an api
#' endpoint exposed by tfat. Each of the portals (tfat, sc_portal, fn_portal
#' etc.) all have a slightly different access points, 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_tfat_root <- function() {
  api_url <- "tfat/api/v1"

  domain <- get_domain()

  # tfat is still in the dev environment
  domain <- gsub("intra.glis", "intra.dev.glis", domain)

  return(paste0(domain, api_url))
}