From 107d640238c784b1379e062b9ffd4dbde63f690f Mon Sep 17 00:00:00 2001 From: Matthieu Date: Tue, 14 Jan 2025 21:32:33 +0100 Subject: [PATCH 1/2] Update extract.R: use drop+FALSE for broom::glance --- R/extract.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/extract.R b/R/extract.R index 2059592..d9be249 100644 --- a/R/extract.R +++ b/R/extract.R @@ -553,7 +553,7 @@ extract.broom <- function(model, ...) { silent = TRUE) gof <- try({ # extract - out <- broom::glance(model)[1, ] + out <- broom::glance(model)[1, , drop=FALSE] gof.decimal <- sapply(out, function(k) class(k)[1]) # type inference gof.decimal <- ifelse(gof.decimal %in% c("integer", "logical"), FALSE, TRUE) out <- data.frame("gof.names" = colnames(out), From 7652ef896c14dedd723fc99bfc0c28255c98ff25 Mon Sep 17 00:00:00 2001 From: Matthieu Date: Tue, 14 Jan 2025 21:33:48 +0100 Subject: [PATCH 2/2] Increment version --- DESCRIPTION | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index 6cda738..0d0aeaa 100755 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: texreg -Version: 1.39.4.3 -Date: 2025-01-03 +Version: 1.39.4.4 +Date: 2025-01-14 Title: Conversion of R Regression Output to LaTeX or HTML Tables Authors@R: c(person(given = "Philip", family = "Leifeld", email = "philip.leifeld@manchester.ac.uk", role = c("aut", "cre")), person(given = "Claudia", family = "Zucca", email = "c.zucca@jads.nl", role = "ctb"))