In NOAA-EDAB/assessmentdata: Provides access to NOAAs stock SMART data

knitr::opts_chunk$set(echo = TRUE)

Summary

a <- readLines(con=here::here("data-raw/datapull.txt"))
writeLines(a)

Summary data changes

Species Added

if(nrow(params$sumrowAdd)>0) {
  params$sumrowAdd %>%
    dplyr::mutate(`ITIS Taxon Serial Number` = paste0("(",`ITIS Taxon Serial Number`,"):")) %>%
    kableExtra::kable()
}

Species Removed

if(nrow(params$sumrowRem)>0){
params$sumrowRem %>%
  dplyr::mutate(`ITIS Taxon Serial Number` = paste0("(",`ITIS Taxon Serial Number`,"):")) %>%
  kableExtra::kable(col.names =NULL)
}

Columns added

kableExtra::kable(params$sumcolAdd,col.names =NULL)

Columns removed

kableExtra::kable(params$sumcolRem,col.names =NULL)

Time series data changes

Species Added

if(nrow(params$datrowAdd)>0){
  params$datrowAdd %>% 
    dplyr::mutate(ITIS = paste0("(",ITIS,"):")) %>%
    kableExtra::kable()
}

Species Removed

if(nrow(params$datrowRem)>0) {
  params$datrowRem %>% 
    dplyr::mutate(ITIS = paste0("(",ITIS,"):")) %>%
    kableExtra::kable(col.names =NULL)
}

Columns added

kableExtra::kable(params$datcolAdd,col.names =NULL)

Columns removed

kableExtra::kable(params$datcolRem,col.names =NULL)

Links to repos:

• test Stocksmart

• main stocksmart

NOAA-EDAB/assessmentdata documentation built on Nov. 30, 2024, 8:48 p.m.