small bugs

Author: wjschne

CRAN-SUBMISSION

@@ -1,3 +1,3 @@
 Version: 0.1.0
-Date: 2025-08-20 01:18:48 UTC
-SHA: da76a978e9a823001eadebb1cbae68dd8eb6635e
+Date: 2025-09-05 18:05:50 UTC
+SHA: 2aadd12809085f1cd9aea7b53198c5b042eccbaf

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: apa7
 Title: Facilitate Writing Documents in American Psychological Association
     Style, Seventh Edition
-Version: 0.1.0
+Version: 0.1.1
 Authors@R: 
     person("W. Joel", "Schneider", , "w.joel.schneider@gmail.com", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0002-8393-5316"))

NEWS.md

@@ -1,3 +1,9 @@
+# apa7 0.1.1 _2025-09-07_
+
+* Fix `align_chr` so that setting `format_numeric_character = FALSE` works. 
+* `list_column` gains a `unite` parameter that joins list and text columns. 
+* `add_star_column` no longer add stars if the column value is missing.
+
 # apa7 0.1.0 _2025-08-19_
 
 * Initial Cran Release

R/formating.R

@@ -48,7 +48,7 @@ align_chr <- function(
 
   side <- match.arg(side, c("both", "left", "right"))
 
-  if (is.character(xx)) {
+  if (is.character(xx) && format_numeric_character) {
     if (all(grepl("^[-0-9.]+$", xx))) xx <- as.numeric(xx)
   }
 
@@ -642,7 +642,8 @@ the$pvalue_formatter <- \(x, accuracy = the$accuracy, ...) {
       x,
       markdown = TRUE,
       min_digits = min_digits,
-      max_digits = max_digits, ...))
+      max_digits = max_digits, ...),
+    format_numeric_character = FALSE)
 }
 
 the$trim_leading_zero <- \(x, accuracy = the$accuracy, ...) {

R/tables.R

@@ -72,19 +72,23 @@ add_break_columns <- function(d,
 #' @param ... Column name or tidyselect function. Select columns. Default is first column
 #' @param type list type. Can be "1" (numeric), "a" (lowercase alphabetical), or "ABC" (uppercase alphabetical), "i" (lowercase Roman numerals), "I" (uppercase Roman numerals)
 #' @param sep separator
+#' @param merge If `TRUE`, list columns will be united with their respective text columns.
 #'
 #' @return data.frame
 #' @export
 #'
 #' @examples
 #' d <- data.frame(x = letters[1:5], y = letters[2:6])
 #' # default is first column
-#' add_list_column(d)
+#' add_list_column(d) |>
+#'   apa_flextable()
 #' # select any column
-#' add_list_column(d, y)
+#' add_list_column(d, y) |>
+#'   apa_flextable()
 #' add_list_column(d, type = "a", sep = ") ") |>
 #'  apa_flextable()
-add_list_column <- function(data, ..., type = c("1", "a", "A", "I", "i"), sep = ".\u00A0") {
+#' add_list_column(d, merge = TRUE)
+add_list_column <- function(data, ..., type = c("1", "a", "A", "I", "i"), sep = ".\u00A0", merge = FALSE) {
   type <- match.arg(type)
   # l <- rlang::list2(...)
   nn <- colnames(dplyr::select(data, ...))
@@ -106,8 +110,13 @@ add_list_column <- function(data, ..., type = c("1", "a", "A", "I", "i"), sep =
 
   for (n in nn) {
     vn <- paste0(n, "apa7listcolumn")
-    data[vn] <- vl
-    data <- dplyr::relocate(data, vn, .before = n)
+    if (merge) {
+      data[n] <- paste0(vl, data[[n]])
+    } else {
+      data[vn] <- vl
+      data <- dplyr::relocate(data, vn, .before = n)
+    }
+
   }
   data
 }
@@ -174,7 +183,13 @@ add_star_column <- function(
   keys <- R.utils::insert(colnames(data),
                           ats = where_numbers + 1,
                           values = star_names)
-  data[,star_names] <- p2stars(data[[p_names]], first_alpha_marginal = first_alpha_marginal, superscript = superscript, alpha = alpha, add_trailing_space = add_trailing_space, prefix = prefix)
+  p_stars <- p2stars(data[[p_names]], first_alpha_marginal = first_alpha_marginal, superscript = superscript, alpha = alpha, add_trailing_space = add_trailing_space, prefix = prefix)
+
+  for (wn in where_names) {
+    sn <- paste0(wn, "apa7starcolumn")
+    data[,sn] <- ifelse(data[[wn]] == "" | is.na(data[[wn]]), "", p_stars)
+  }
+
   data <- data[,keys]
 
   if (merge) {
@@ -409,7 +424,7 @@ dd |>
 #' @param star_significant start significant correlations
 #' @param significance_note If TRUE, place note at bottom of table that significant correlations are bolded.
 #' @param output output type. Can be "flextable" or "tibble"
-#' @param summary_functions A named list of functions that summarize data columns (e.g., mean, sd)
+#' @param summary_functions Any named list of functions that summarize data columns (e.g., `list(Mean = mean, SD = sd)`). Can also be a character vector of function names (e.g., `c("n", "M", "SD")`). Functions available in a character vector: IQR, Interquartile Range, Kurtosis, MAD, Median Absolute Deviation, M, Mean, Med, Median, n, N, Quantile, Range, SD, Skewness, Var, Variance
 #' @param keep_empty_star_columns Keep remove empty star columns (Default: `TRUE`)
 #' @param column_formats column_formats object
 #' @inheritParams apa_style
@@ -420,8 +435,10 @@ dd |>
 #' @export
 #'
 #' @examples
-#' apa_cor(mtcars[, c("mpg", "am", "gear", "carb")], output = "flextable")
-#' apa_cor(mtcars[, c("mpg", "am", "gear", "carb")], output = "tibble")
+#' apa_cor(mtcars[, c("mpg", "am", "gear", "carb")])
+#' apa_cor(mtcars[, c("mpg", "am", "gear", "carb")],
+#'         output = "tibble",
+#'         star_significant = FALSE)
 apa_cor <- function(data,
                     note = NULL,
                     p_value = c(.05, .01, .001),

man/add_list_column.Rd

@@ -143,6 +143,9 @@ test_that("align_chr", {
 
   align_chr(c(".1", ".12^\\*\\*^")) |> align_chr()
 
+  expect_equal(align_chr(apa_p(posnum, min_digits = 3),
+                         format_numeric_character = FALSE), c(".010", ".511"))
+
 
 })