R/get_survey_stations.R

Defines functions get_survey_stations

Documented in get_survey_stations

#' Character vector of EBS/NBS bottom trawl survey station IDs
#'
#' Returns a character vector of station id codes in a region.
#'
#' @param select.region Choice of region. Options are "ebs", "bs.all", "sebs", "bs.south", "nbs", "bs.north"
#' @param include.corners Logical. Should corner stations be returned in the survey grid? Only for the EBS.
#' @return A character vector of RACE station ID codes.
#' @export

get_survey_stations <- function(select.region, include.corners = TRUE) {
  if(select.region %in% c("sebs", "bs.south")) {
   stns <- c("A-02","A-03","A-04","A-05","A-06","AZ0504","B-01","B-02","B-03","B-04","B-05","B-06","B-07","B-08",
                 "C-01","C-02","C-03","C-04","C-05","C-06","C-07","C-08","C-09","C-18","D-01","D-02","D-03","D-04","D-05",
                 "D-06","D-07","D-08","D-09","D-10","D-18","E-01","E-02","E-03","E-04","E-05","E-06","E-07","E-08",
                 "E-09","E-10","E-11","E-12","E-18","E-19","E-20","E-21","E-22","F-01","F-02","F-03","F-04","F-05",
                 "F-06","F-07","F-08","F-09","F-10","F-11","F-12","F-13","F-14","F-18","F-19","F-20","F-21","F-22",
                 "F-23","F-24","F-25","G-01","G-02","G-03","G-04","G-05","G-06","G-07","G-08","G-09","G-10","G-11",
                 "G-12","G-13","G-14","G-15","G-18","G-19","G-20","G-21","G-22","G-23","G-24","G-25","G-26",
                 "H-01","H-02","H-03","H-04","H-05","H-06","H-07","H-08","H-09","H-10","H-11",
                 "H-12","H-13","H-14","H-15","H-16","H-18","H-19","H-20","H-21","H-22","H-23","H-24","H-25","H-26",
                 "I-01","I-02","I-03","I-04","I-05","I-06","I-07","I-08","I-09",
                 "I-10","I-11","I-12","I-13","I-14","I-15","I-16","I-18","I-19","I-20","I-21","I-22","I-23","I-24","I-25",
                 "I-26","J-01","J-02","J-03","J-04","J-05","J-06","J-07","J-08",
                 "J-09","J-10","J-11","J-12","J-13","J-14","J-15","J-16","J-18","J-19","J-20","J-21","J-22","J-23","J-24",
                 "J-25","J-26","K-01","K-02","K-03","K-04","K-05","K-06","K-07","K-08",
                 "K-09","K-10","K-11","K-12","K-13","K-14","K-18","K-19","K-20","K-21","K-22","K-23","K-24","K-25","K-26",
                 "K-27","L-01","L-02","L-03","L-04","L-05","L-06","L-07","L-08","L-09","L-18","L-19","L-20","L-21","L-22",
                 "L-23","L-24","L-25","L-26","L-27","L-28","L-29","L-30","L-31","M-01","M-02","M-03","M-04","M-05","M-06",
                 "M-07","M-08","M-18","M-19","M-20","M-21","M-22","M-23","M-24","M-25","M-26","M-27","M-28","M-29","M-30",
                 "M-31","M-32","N-01","N-02","N-03","N-04","N-05","N-06","N-07","N-18","N-19","N-20","N-21","N-22","N-23",
                 "N-24","N-25","N-26","N-27","N-28","N-29","N-30","N-31","O-01","O-02","O-03","O-04","O-18","O-19","O-20",
                 "O-21","O-22","O-23","O-24","O-25","O-26","O-27","O-28","O-29","O-30","O-31","P-01",
                 "P-18","P-19","P-20","P-21","P-22","P-23","P-24","P-25","P-26","P-27","P-28","P-29","P-30","P-31","P-32",
                 "Q-01","Q-02","Q-18","Q-19","Q-20","Q-21","Q-22","Q-23","Q-25","Q-26",
                 "Q-27","Q-28","Q-29","Q-30","Q-31","R-22","R-23","R-24","R-25","R-26",
                 "R-27","R-28","R-29","R-30","R-31","R-32","S-22","S-23","S-24","S-25","S-26","S-27","S-28","S-29","S-30",
                 "S-31","T-25","T-26","T-27","T-28","T-29","T-30","U-25","U-26","U-27","U-28","U-29","V-25","V-26","V-27",
                 "V-28","Z-05")
  } else if(select.region %in% c("ebs", "bs.all")) {
    stns <- c("A-02","A-03","A-04","A-05","A-06","AZ0504","B-01","B-02","B-03","B-04","B-05","B-06","B-07","B-08",
              "C-01","C-02","C-03","C-04","C-05","C-06","C-07","C-08","C-09","C-18","D-01","D-02","D-03","D-04","D-05",
              "D-06","D-07","D-08","D-09","D-10","D-18","E-01","E-02","E-03","E-04","E-05","E-06","E-07","E-08",
              "E-09","E-10","E-11","E-12","E-18","E-19","E-20","E-21","E-22","F-01","F-02","F-03","F-04","F-05",
              "F-06","F-07","F-08","F-09","F-10","F-11","F-12","F-13","F-14","F-18","F-19","F-20","F-21","F-22",
              "F-23","F-24","F-25","G-01","G-02","G-03","G-04","G-05","G-06","G-07","G-08","G-09","G-10","G-11",
              "G-12","G-13","G-14","G-15","G-18","G-19","G-20","G-21","G-22","G-23","G-24","G-25","G-26",
              "H-01","H-02","H-03","H-04","H-05","H-06","H-07","H-08","H-09","H-10","H-11",
              "H-12","H-13","H-14","H-15","H-16","H-18","H-19","H-20","H-21","H-22","H-23","H-24","H-25","H-26",
              "I-01","I-02","I-03","I-04","I-05","I-06","I-07","I-08","I-09",
              "I-10","I-11","I-12","I-13","I-14","I-15","I-16","I-18","I-19","I-20","I-21","I-22","I-23","I-24","I-25",
              "I-26","J-01","J-02","J-03","J-04","J-05","J-06","J-07","J-08",
              "J-09","J-10","J-11","J-12","J-13","J-14","J-15","J-16","J-18","J-19","J-20","J-21","J-22","J-23","J-24",
              "J-25","J-26","K-01","K-02","K-03","K-04","K-05","K-06","K-07","K-08",
              "K-09","K-10","K-11","K-12","K-13","K-14","K-18","K-19","K-20","K-21","K-22","K-23","K-24","K-25","K-26",
              "K-27","L-01","L-02","L-03","L-04","L-05","L-06","L-07","L-08","L-09","L-18","L-19","L-20","L-21","L-22",
              "L-23","L-24","L-25","L-26","L-27","L-28","L-29","L-30","L-31","M-01","M-02","M-03","M-04","M-05","M-06",
              "M-07","M-08","M-18","M-19","M-20","M-21","M-22","M-23","M-24","M-25","M-26","M-27","M-28","M-29","M-30",
              "M-31","M-32","N-01","N-02","N-03","N-04","N-05","N-06","N-07","N-18","N-19","N-20","N-21","N-22","N-23",
              "N-24","N-25","N-26","N-27","N-28","N-29","N-30","N-31","O-01","O-02","O-03","O-04","O-18","O-19","O-20",
              "O-21","O-22","O-23","O-24","O-25","O-26","O-27","O-28","O-29","O-30","O-31","P-01",
              "P-18","P-19","P-20","P-21","P-22","P-23","P-24","P-25","P-26","P-27","P-28","P-29","P-30","P-31","P-32",
              "Q-01","Q-02","Q-18","Q-19","Q-20","Q-21","Q-22","Q-23","Q-25","Q-26",
              "Q-27","Q-28","Q-29","Q-30","Q-31","R-22","R-23","R-24","R-25","R-26",
              "R-27","R-28","R-29","R-30","R-31","R-32","S-22","S-23","S-24","S-25","S-26","S-27","S-28","S-29","S-30",
              "S-31","T-25","T-26","T-27","T-28","T-29","T-30","U-25","U-26","U-27","U-28","U-29","V-25","V-26","V-27",
              "V-28","Z-05","AA-01","AA-02","AA-03","AA-04","AA-05","AA-06","AA-07","AA-08","AA-18","AA-19","AA-21",
              "AA-22", "AA-23","BB-01", "BB-02", "BB-03", "BB-04","BB-05","BB-06","BB-07","BB-08","BB-09","BB-10","BB-18",
              "BB-19","BB-20","BB-21","BB-22","CC-01","CC-02","CC-03","CC-04","CC-05","CC-06","CC-07","CC-08","CC-09",
              "CC-10","CC-18","CC-19","CC-20","CC-21","DD-01","DD-02","DD-03","DD-18","DD-19","DD-20","EE-01","EE-02",
              "EE-18","EE-19","FF-01","FF-02","FF-18","R-01","R-02","R-03","R-18","R-19","R-20","R-21","S-01",
              "S-02","S-03","S-18","S-19","S-20","S-21","T-01","T-02","T-03","T-18","T-19","T-20","T-21","T-22","T-23",
              "T-24","U-01","U-02","U-03","U-18","U-19","U-20","U-21","U-22","U-23","U-24","V-01","V-02","V-03","V-18",
              "V-19","V-20","V-21","V-22","V-23","V-24","W-01","W-02","W-03","W-18","W-19","W-20","W-21","W-22","W-23",
              "W-24","W-25","W-26","W-27","X-01","X-02","X-03","X-18","X-19","X-20","X-21","X-22","X-23","X-24","X-25",
              "X-26","Y-01","Y-02","Y-03","Y-04","Y-18","Y-20","Y-21","Y-22","Y-23","Y-24","Y-25","ZZ-01","ZZ-02","ZZ-03",
              "ZZ-04","ZZ-05","ZZ-21","ZZ-22","ZZ-23","ZZ-24")
  } else if(select.region %in% c("nbs", "bs.north")) {
    stns <- c("AA-01","AA-02","AA-03","AA-04","AA-05","AA-06","AA-07","AA-08","AA-18","AA-19","AA-21",
    "AA-22", "AA-23","BB-01", "BB-02", "BB-03", "BB-04","BB-05","BB-06","BB-07","BB-08","BB-09","BB-10","BB-18",
    "BB-19","BB-20","BB-21","BB-22","CC-01","CC-02","CC-03","CC-04","CC-05","CC-06","CC-07","CC-08","CC-09",
    "CC-10","CC-18","CC-19","CC-20","CC-21","DD-01","DD-02","DD-03","DD-18","DD-19","DD-20","EE-01","EE-02",
    "EE-18","EE-19","FF-01","FF-02","FF-18","R-01","R-02","R-03","R-18","R-19","R-20","R-21","S-01",
    "S-02","S-03","S-18","S-19","S-20","S-21","T-01","T-02","T-03","T-18","T-19","T-20","T-21","T-22","T-23",
    "T-24","U-01","U-02","U-03","U-18","U-19","U-20","U-21","U-22","U-23","U-24","V-01","V-02","V-03","V-18",
    "V-19","V-20","V-21","V-22","V-23","V-24","W-01","W-02","W-03","W-18","W-19","W-20","W-21","W-22","W-23",
    "W-24","W-25","W-26","W-27","X-01","X-02","X-03","X-18","X-19","X-20","X-21","X-22","X-23","X-24","X-25",
    "X-26","Y-01","Y-02","Y-03","Y-04","Y-18","Y-20","Y-21","Y-22","Y-23","Y-24","Y-25","ZZ-01","ZZ-02","ZZ-03",
    "ZZ-04","ZZ-05","ZZ-21","ZZ-22","ZZ-23","ZZ-24")
  }

  if(include.corners & select.region %in% c("sebs", "bs.south", "ebs", "bs.all")) {
    stns <- c(stns, "GF1918",
              "GF2019","GF2120","GF2221", "HG1918","HG2019","HG2120","HG2221", "IH1918","IH2019",
              "IH2120","IH2221", "JI1918","JI2019","JI2120","JI2221", "ON2524","ON2625", "PO2423","PO2524","PO2625","PO2726",
              "QP2423","QP2524","QP2625","QP2726")
  }

return(stns)
}
afsc-gap-products/akgfmaps documentation built on April 14, 2025, 7:13 p.m.