Portuguese language updates

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: gtsummary
 Title: Presentation-Ready Data Summary and Analytic Result
     Tables
-Version: 1.5.0.9026
+Version: 1.5.0.9027
 Authors@R: 
     c(person(given = "Daniel D.",
              family = "Sjoberg",

NEWS.md

@@ -1,5 +1,7 @@
 # gtsummary (development version)
 
+* Updates and additions to Portuguese language translations. (#1098)
+
 * Added `add_p.tbl_cross(test.args=)` argument. (#1095)
 
 * The `tbl_strata(.combine_args=)` has been added that lets you control all arguments in the `tbl_merge()` or `tbl_stack()` that occurs in `tbl_strata()`. (#1090)

R/add_p.R

@@ -446,19 +446,14 @@ add_p.tbl_cross <- function(x, test = NULL, pvalue_fun = NULL,
                         include = -any_of("..total.."))
     ) %>%
     eval()
-  # replacing the input dataset with the original from the `tbl_cross()` call
+  # replacing the input data set with the original from the `tbl_cross()` call
   x$inputs$data <- x_copy$inputs$data
 
-  # updating footnote
-  test_name <- x$meta_data$stat_test_lbl %>% discard(is.na)
-  x <-
-    modify_table_styling(
-      x,
-      columns = "p.value",
-      footnote = test_name
-    )
-
   if (source_note == TRUE) {
+    test_name <-
+      x$meta_data$stat_test_lbl %>%
+      discard(is.na) %>%
+      translate_text()
     #  report p-value as a source_note
     # hiding p-value from output
     x <-

tests/testthat/test-add_p.tbl_cross.R

@@ -33,4 +33,47 @@ test_that("add_p.tbl_cross", {
     tbl$meta_data$stat_test_lbl[1],
     "Pearson's Chi-squared test"
   )
+
+
+  # oddly, the p-value is NA in this case, mcnemar.test() doesn't error
+  df <-
+    tibble::tibble(
+      before = trial$response,
+      after = rev(trial$response)
+    )
+
+  expect_error({
+    theme_gtsummary_language("pt")
+    tbl_pt <-
+      df %>%
+      tbl_cross() %>%
+      add_p(test = "mcnemar.test.wide", test.args = list(correct = FALSE))
+    reset_gtsummary_theme()
+  },
+  NA
+  )
+  expect_equal(
+    tbl_pt$table_styling$footnote %>%
+      dplyr::filter(column == "p.value") %>%
+      purrr::pluck("footnote", 1),
+    "Teste de McNemar"
+  )
+
+  expect_error({
+    theme_gtsummary_language("pt")
+    tbl_pt <-
+      df %>%
+      tbl_cross() %>%
+      add_p(test = "mcnemar.test.wide", test.args = list(correct = FALSE),
+            source_note = TRUE)
+    reset_gtsummary_theme()
+  },
+  NA
+  )
+  expect_equal(
+    tbl_pt$table_styling$source_note,
+    "Teste de McNemar, ",
+    ignore_attr = TRUE
+  )
+
 })