r yr <- 2022 r version <- "01"

Pacific hake r yr Version r version Bridging models

links <- c("https://github.com/pacific-hake/hake-assessment/blob/947de55a5943aa6ca471e7e1077720c3c19682be/R/model-setup.R#L137",
           "https://github.com/pacific-hake/hake-assessment/blob/947de55a5943aa6ca471e7e1077720c3c19682be/R/model-setup.R#L137",
           "https://github.com/pacific-hake/hake-assessment/blob/947de55a5943aa6ca471e7e1077720c3c19682be/R/model-setup.R#L137",
           "https://github.com/pacific-hake/hake-assessment/blob/947de55a5943aa6ca471e7e1077720c3c19682be/R/model-setup.R#L137",
           "https://github.com/pacific-hake/hake-assessment/blob/947de55a5943aa6ca471e7e1077720c3c19682be/R/model-setup.R#L137",
           "https://github.com/pacific-hake/hake-assessment/blob/947de55a5943aa6ca471e7e1077720c3c19682be/R/model-setup.R#L137")

df <- tibble(`Model Name` = c("2022.01.01_newSSexe",
                              "2022.01.03_newcatchage",
                              "2022.01.05_updatesurvey",
                              "2022.01.06_newsurvey",
                              "2022.01.07_newwtatage",
                              "2022.01.09_age1index"),
             `Last changed by` = c("Aaron",
                                   "Aaron",
                                   "Aaron",
                                   "Aaron",
                                   "Aaron",
                                   "Aaron"),
             `Last changed date` = c("2022-01-08",
                                     "2022-01-08",
                                     "2022-01-08",
                                     "2022-01-08",
                                     "2022-01-08",
                                     "2022-01-08"),
             Description = c(
               "Version 3.30.18-safe, commit a0f982, ADMB 12.3, commit 1376cb",
               "Update catch and age-composition data",
               "Update acoustic survey biomass and age-composition data from years prior to 2021",
               "Add weight-at-age data for 2021 as well as update data for years prior",
               "Add the 2021 acoustic survey biomass and age-composition estimates",
               "Add weight-at-age data for 2021 as well as update data for years prior"),
             `Code link` = c("link to loading code",
                             "link to loading code",
                             "link to loading code",
                             "link to loading code",
                             "link to loading code",
                             "link to loading code")) %>%
  mutate(`Code link` = cell_spec(`Code link`, "html", link = links))

kbl(df, format = "html", escape = FALSE) |> 
  kable_styling(bootstrap_options = c("striped", "hover", "condensed", "responsive"),
                font_size = 16) |> 
  column_spec(1, width = "20em") |> 
  column_spec(2, width = "15em") |> 
  column_spec(3, width = "15em") |> 
  column_spec(4, width = "30em") |> 
  column_spec(5, width = "20em")


pacific-hake/hake-assessment documentation built on July 21, 2024, 8:19 a.m.