In natureanalytics-ca/BycatchEstimator: Generic Model-Based Bycatch Estimation Procedure

knitr::opts_chunk$set(echo = FALSE)

load(paste0(outDir,"/","sumdatR"))
library(tidyverse)
library(kableExtra)

Summary of input data for r runName

r Sys.Date()

for(run in 1:numSp) {
  headerText<-paste0("Data summary for ",common[[run]]," (",sp[[run]],")")
  df1<-yearSum[[run]][,!names(yearSum[[run]]) %in% c("ratioMean",   "ratioSE",  "deltaMean",    "deltaSE")] %>%
  mutate_if(
    is.numeric,
    ~ ifelse(abs(.x) > 1, round(.x), round(.x, 2))
  )
  df1 %>%
   remove_rownames() %>%
   kbl(caption = headerText,format="latex",label=paste0("tablesummary",run)) %>%
   kable_styling(font_size = 8,
     latex_options = c("hold_position","basic","scale_down")) %>%
    print()
}

natureanalytics-ca/BycatchEstimator documentation built on Oct. 15, 2024, 10:28 p.m.