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`,"):")) |> 
    gt::gt()
}

Species Removed

if(nrow(params$sumrowRem)>0){
params$sumrowRem |> 
  dplyr::mutate(`ITIS Taxon Serial Number` = paste0("(",`ITIS Taxon Serial Number`,"):")) |> 
  gt::gt()
}

Columns added

if(nrow(params$sumcolAdd)>0) {
  params$sumcolAdd |> 
    gt::gt()
}

Columns removed

if(nrow(params$sumcolRem)>0) {
  params$sumcolRem |> 
    gt::gt()
}

Time series data changes

Species Added

if(nrow(params$datrowAdd)>0){
  params$datrowAdd |>  
    dplyr::mutate(ITIS = paste0("(",ITIS,"):")) |>
    gt::gt()
}

Species Removed

if(nrow(params$datrowRem)>0) {
  params$datrowRem  |>  
    dplyr::mutate(ITIS = paste0("(",ITIS,"):")) |> 
    gt::gt()
}

Columns added

if(nrow(params$datcolAdd)>0) {
  params$datcolAdd |> 
    gt::gt()
}

Columns removed

if(nrow(params$datcolRem)>0) {
  params$datcolRem |> 
    gt::gt()
}

Links to repos:

• test Stocksmart

• main stocksmart

NOAA-EDAB/assessmentdata documentation built on Jan. 21, 2025, 4:16 p.m.