data-raw/scratch.R

In pbs-assess/ggmse: Tools for Working with openMSE (Including DLMtool, MSEtool, and SAMtool)

library(tidyverse)

#' Make a default custom descriptions CSV file in the pbs2dlm/inst directory
#' This shouldn't be run unless you want to change the structure of the file
generate_default_custom_descriptions_file <- function() {
  ds <- as_tibble(MSEtool::StockDescription) %>% mutate(SlotType = "Stock")
  df <- as_tibble(MSEtool::FleetDescription) %>% mutate(SlotType = "Fleet")
  do <- as_tibble(MSEtool::ObsDescription) %>% mutate(SlotType = "Obs")
  di <- as_tibble(MSEtool::ImpDescription) %>% mutate(SlotType = "Imp")

  d <- bind_rows(ds, df, do, di) %>%
    transmute(
      slot_type = SlotType,
      slot = Slot,
      slot_order = row_number(),
      show_slot = TRUE,
      use_custom_description = FALSE,
      custom_description = Description
    )
  readr::write_csv(d, here::here("pbs2dlm/inst/alt-slot-descriptions.csv"))
}