data-raw/read_HydraFleets.R

In andybeet/cfdbs: Pulls data from the NEFSC commercial database

# reads in fleet structure by gear type
read_HydraFleets <- function() {
  fleets <- read.csv("data/HydraFleets.csv",header=TRUE,row.names = "names")
  fleets[fleets==""] <- NA
  fleets <- apply(fleets,2,sort,na.last=NA)
  
  return(fleets)
}