From 1f93dde7a31ef0b2e4be7561ba614604732f4696 Mon Sep 17 00:00:00 2001
From: Collin Edwards <collin.edwards@dfw.wa.gov>
Date: Fri, 13 Dec 2024 15:49:01 -0800
Subject: [PATCH] Adding  behavior to fetch_table to allow fetch_table_bkchin
 to turn off warning

---
 R/fetch_data.R     | 8 +++++---
 man/fetch_table.Rd | 4 +++-
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/R/fetch_data.R b/R/fetch_data.R
index 66a5a0b..14eded5 100644
--- a/R/fetch_data.R
+++ b/R/fetch_data.R
@@ -2,12 +2,13 @@
 #' tibble.
 #' @param fram_db FRAM database object
 #' @param table_name Table to be fetched. If not given, a list of options will be printed
+#' @param warn Print a warning when fetching BackwardsFRAM table from a Chinook database? Defaults to `TRUE`.
 #' @export
 #' @examples
 #' \dontrun{fram_db |> fetch_table('Mortality')}
 #'
 
-fetch_table <- function(fram_db, table_name = NULL){
+fetch_table <- function(fram_db, table_name = NULL, warn = TRUE){
   ## adding input checking
   validate_fram_db(fram_db)
   all_tables = provide_table_names(is_full = TRUE)
@@ -56,7 +57,7 @@ fetch_table <- function(fram_db, table_name = NULL){
       fram_clean_tables()
     attr(output_table, 'species') <- fram_db$fram_db_species
 
-    if(fram_db$fram_db_species == "CHINOOK" & table_name == "BackwardsFRAM"){
+    if(warn & fram_db$fram_db_species == "CHINOOK" & table_name == "BackwardsFRAM"){
       cli::cli_alert_danger("Chinook BackwardsFRAM tables use different numbering for stock_id!\n This can cause problems when merging with other tables!\n Recommend fetch_table_bkchin() instead.")
     }
 
@@ -96,7 +97,8 @@ fetch_table_bkchin <- function(fram_db){
     cli::cli_abort("`fetch_table_bkchin()` only appropriate for CHINOOK databases, not {fram_db$fram_db_species} database.")
   }
 
-  output_table <- fetch_table(fram_db, table_name = "BackwardsFRAM") |>
+  output_table <- fetch_table(fram_db, table_name = "BackwardsFRAM",
+                              warn = FALSE) |>
     dplyr::rename(bk_stock_id = .data$stock_id) |>
     dplyr::left_join(framrosetta::bk_lookup_chin, by = "bk_stock_id")
 
diff --git a/man/fetch_table.Rd b/man/fetch_table.Rd
index 757a8ca..2e454dc 100644
--- a/man/fetch_table.Rd
+++ b/man/fetch_table.Rd
@@ -5,12 +5,14 @@
 \title{Fetches a complete table from a FRAM database. Returns a cleaned
 tibble.}
 \usage{
-fetch_table(fram_db, table_name = NULL)
+fetch_table(fram_db, table_name = NULL, warn = TRUE)
 }
 \arguments{
 \item{fram_db}{FRAM database object}
 
 \item{table_name}{Table to be fetched. If not given, a list of options will be printed}
+
+\item{warn}{Print a warning when fetching BackwardsFRAM table from a Chinook database? Defaults to \code{TRUE}.}
 }
 \description{
 Fetches a complete table from a FRAM database. Returns a cleaned