From 388a649285980ed50129a0f7c01438119914e363 Mon Sep 17 00:00:00 2001 From: sbreitbart-NOAA Date: Wed, 30 Sep 2026 11:02:04 -0400 Subject: [PATCH 1/2] Adjust how index table is labelled in create_rda() to resolve https://github.com/nmfs-ost/stockplotr/issues/372 --- R/table_index.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/table_index.R b/R/table_index.R index 12d11862..50e39baf 100644 --- a/R/table_index.R +++ b/R/table_index.R @@ -155,7 +155,7 @@ table_index <- function( create_rda( object = final[[1]], # get name of function and remove "table_" from it - topic_label = gsub("table_", "", as.character(sys.call()[[1]])), + topic_label = gsub("table_", "", utils::tail(as.character(sys.call()[[1]]), n = 1)), fig_or_table = "table", dat = dat, dir = tables_dir, From 008cf53eb481338eef93f982aebf0d45083961ca Mon Sep 17 00:00:00 2001 From: sbreitbart-NOAA Date: Wed, 30 Sep 2026 11:04:00 -0400 Subject: [PATCH 2/2] Adjust bnc table to mirror how topic label is extracted --- R/table_biomass_abundance_catch.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/table_biomass_abundance_catch.R b/R/table_biomass_abundance_catch.R index cbeac771..8831b27d 100644 --- a/R/table_biomass_abundance_catch.R +++ b/R/table_biomass_abundance_catch.R @@ -169,7 +169,7 @@ table_biomass_abundance_catch <- function( create_rda( object = final_table, # get name of function and remove "table_" from it - topic_label = gsub("table_", "", as.character(sys.call()[[1]])), + topic_label = gsub("table_", "", utils::tail(as.character(sys.call()[[1]]), n = 1)), fig_or_table = "table", dat = dat, dir = tables_dir,