Add table with life history parameter inputs to PBR calculator tab #54

Author: mcsiple

R/app_server.R

@@ -857,7 +857,7 @@ app_server <- function(input, output, session) {
       kableExtra::kable_styling("striped", full_width = F, position = "center")
   }
 
-  output$SolverTable <- function() {
+  output$SolverTable1 <- function() {
     x <- as.data.frame(lh.params2()[c("S0", "S1plus", "AgeMat", "lambdaMax", "K1plus", "z")])
     x$z <- round(x$z, digits = 2)
     x$MNPL <- input$MNPL.usr
@@ -870,6 +870,18 @@ app_server <- function(input, output, session) {
       kableExtra::kable_styling("striped", full_width = F, position = "center")
   }
 
+  output$SolverTable2 <- function() {
+    x <- as.data.frame(lh.params2()[c("S0", "S1plus", "AgeMat", "lambdaMax", "K1plus", "z")])
+    x$z <- round(x$z, digits = 2)
+    x$MNPL <- input$MNPL.usr
+    kableExtra::kable(
+      col.names = c("S<sub>0</sub.", "S<sub>1+</sub>", "Age at maturity", "&#955 <sub>max</sub>", "K<sub>1+</sub>", "z", "MNPL"),
+      x, format = "html", # added format just now
+      escape = FALSE
+    ) %>%
+      kableExtra::column_spec(1, width = "10em") %>%
+      kableExtra::kable_styling("striped", full_width = F, position = "center")
+  }
 
   output$PMkite <- renderPlot({
     pt <- performance.table() %>%
@@ -1510,6 +1522,10 @@ app_server <- function(input, output, session) {
           helpText("$$ \\huge N_{MIN} \\cdot \\frac{1}{2}R_{MAX}\\cdot F_R$$"),
           tags$div(HTML(i18n$t("<span class='help-block'>Note: To use this feature you need to have run projections in the Advanced tab. The values you need in order to calculate PBR are available in that tab. While the Advanced tab automatically calculates N<sub>MIN</sub> from the numbers you entered, you can use your own abundance estimates here if you want. Knowing carrying capacity and depletion is not required, only the abundance estimate and the CV of that estimate.</span>"))),
           br(),
+          h4(i18n$t("Life history inputs")),
+          tableOutput("SolverTable1"),
+          br(),
+          h4(i18n$t("PBR inputs")),
           fluidRow(
             column(
               6,
@@ -1579,7 +1595,7 @@ app_server <- function(input, output, session) {
           h4(i18n$t("Calculate the bycatch rate necessary to achieve a recovery goal")),
           p(i18n$t("If you have a specific management goal for your marine mammal population of interest, put in the desired recovery goal and timeline below. This part of the app will calculate an approximate bycatch rate that will allow the population to reach that goal. This page uses information from the 'Advanced Projections' tab to make this calculation. Once the plot appears, the animation will show the bycatch rates that the solver has attempted in its search for the maximum bycatch rate that will allow you to achieve your goal.")),
           br(),
-          tableOutput("SolverTable"),
+          tableOutput("SolverTable2"),
           p(
             strong(i18n$t("NOTE:")),
             i18n$t("This will take a while! Make sure you are sure of your goals before clicking"),

inst/Documentation/translation_m.json

@@ -406,6 +406,16 @@
       	"es": "El enfoque PBR",
             "fr": "L’approche du PBR"
       },
+      {
+            "en": "Life history inputs",
+            "es": "Parámetros de historia de vida ingresados",
+            "fr": "Paramètres d’histoire de vie entrées"
+      },
+      {
+            "en": "PBR inputs",
+            "es": "PBR datos ingresados",
+            "fr": "PBR entrées saisies"
+      },      
       {
       	"en": "Potential Biological Removal (PBR) is the maximum number of animals, excluding natural mortalities, that may be removed from a marine mammal stock while allowing that stock to be at its optimum sustainable population (MMPA, sec. 3(20)).",
       	"es": "La remoción biológica potencial (PBR en inglés) corresponde al número máximo de animales, excluyendo las mortalidades naturales, que se pueden eliminar de una población o stock de mamíferos marinos mientras se permite que dicha población se encuentre en su población óptima sostenible (MMPA, sec. 3 (20)).",