Merge pull request #8 from FRAMverse/hotfixes

Hotfixes
FRAMverse · Mar 7, 2024 · f33340f · f33340f
2 parents 612db6d + 5891e21
commit f33340f
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/compare_inputs.R b/R/compare_inputs.R
@@ -48,7 +48,7 @@ compare_inputs_chart <- function(.data){
     #dplyr::filter(!is.na(.data$percent_diff)) |>
     ggplot2::ggplot(ggplot2::aes(factor(.data$fishery_id), .data$time_step, fill = dplyr::if_else(.data$percent_diff > 0, 'pos', 'neg'), alpha=abs(.data$percent_diff))) +
     ggplot2::geom_tile() +
-    ggplot2::geom_text(ggplot2::aes(label = paste0(scales::percent(.data$percent_diff), '\n', .data$reg_change ))) +
+    ggplot2::geom_text(ggplot2::aes(label = paste0(scales::percent(round(.data$percent_diff,3)), '\n', .data$reg_change ))) +
     ggplot2::theme(legend.position = 'none') +
     ggplot2::labs(
       subtitle = 'FRAM input comparison heatmap',

diff --git a/R/report_fishery_mortality.R b/R/report_fishery_mortality.R
@@ -168,7 +168,7 @@ coho_stock_mortality <- function(fram_db, run_id = NULL, stock_id = NULL, top_n
     ggplot2::ggplot(ggplot2::aes(.data$total_mort, stats::reorder(.data$fishery_name, .data$total_mort))) +
     ggplot2::geom_col() +
     ggplot2::labs(
-      subtitle = glue::glue('Top motality for stock {stock_name} ({run_name})'),
+      subtitle = glue::glue('Top mortality for stock {stock_name} ({run_name})'),
       x = 'Mortalities',
       y = 'Fishery'
     )