#' Load the fisheries group file
#'
#' Read in the fisheries group file, which is typically saved as
#' \code{fisheries.csv}.
#'
#' @template dir
#' @template file_fish
#'
#' @author Alexander Keth
#' @export
#' @family load functions
#'
#' @return A \code{data.frame} of functional group information.
#'
#' @examples
#' d <- system.file("extdata", "SETAS_Example", package = "atlantisom")
#' fleets <- load_fisheries(d, "Fisheries.csv")
#' rm(fleets)
#'
load_fisheries <- function(dir = getwd(), file_fish){
if (is.null(dir)) {
file.fish <- file_fish
} else {
file.fish <- file.path(dir, file_fish)
}
result <- read.table(file = file.fish, sep = ",",
header = TRUE, stringsAsFactors = FALSE)
return(result)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.