From 36e7d3d2a3238dd21d2b4b785fb75633d828d15d Mon Sep 17 00:00:00 2001
From: kapsner <lorenz.kapsner@gmail.com>
Date: Wed, 5 Feb 2025 11:24:29 +0100
Subject: [PATCH] fix: fixing yet another issue introduced with new r-devel

---
 .Rbuildignore      | 1 +
 .gitignore         | 1 +
 DESCRIPTION        | 3 ++-
 NEWS.md            | 9 +++++++--
 R/simple_summary.R | 6 +++++-
 5 files changed, 16 insertions(+), 4 deletions(-)

diff --git a/.Rbuildignore b/.Rbuildignore
index 4ba9f9f..af10410 100644
--- a/.Rbuildignore
+++ b/.Rbuildignore
@@ -35,3 +35,4 @@
 ^man/figures$
 ^Rplots\.pdf$
 ^/dqa-dqastats\.wiki$
+^\.Rproj\.user$
diff --git a/.gitignore b/.gitignore
index 98bb43f..bb41029 100644
--- a/.gitignore
+++ b/.gitignore
@@ -41,3 +41,4 @@ inst/doc
 .~lock.*.csv#
 !/manifests/
 !cran-comments.md
+.Rproj.user
diff --git a/DESCRIPTION b/DESCRIPTION
index ab430d9..e78ee2f 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: DQAstats
 Title: Core Functions for Data Quality Assessment
 Version: 0.3.7
-Date: 2025-02-04
+Date: 2025-02-05
 Authors@R: c(
     person("Lorenz A.", "Kapsner", , "lorenz.kapsner@gmail.com", role = c("cre", "aut"),
            comment = c(ORCID = "0000-0003-1866-860X")),
@@ -45,3 +45,4 @@ Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
 SystemRequirements: Quarto command line tools
     (https://github.com/quarto-dev/quarto-cli).
+RoxygenNote: 7.3.2
diff --git a/NEWS.md b/NEWS.md
index e72d58c..9ee6d02 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -2,7 +2,12 @@
 
 # DQAstats NEWS
 
-## Unreleased (2025-01-27)
+## Unreleased (2025-02-04)
+
+#### Bug fixes
+
+-   fixed cran issue showing up in r-devel
+    ([ae0ed6b](https://git.uk-erlangen.de/mik-diz/mik-diz-phd/DQA/dqastats/tree/ae0ed6b69966eee8643ffa1341d083690ad5cb5f))
 
 #### Other changes
 
@@ -16,7 +21,7 @@
     ([9ee9e59](https://git.uk-erlangen.de/mik-diz/mik-diz-phd/DQA/dqastats/tree/9ee9e594d651dd048b6389ad96b1c6e761050435))
 
 Full set of changes:
-[`v0.3.6...e8fd8ff`](https://git.uk-erlangen.de/mik-diz/mik-diz-phd/DQA/dqastats/compare/v0.3.6...e8fd8ff)
+[`v0.3.6...ae0ed6b`](https://git.uk-erlangen.de/mik-diz/mik-diz-phd/DQA/dqastats/compare/v0.3.6...ae0ed6b)
 
 ## v0.3.6 (2024-11-27)
 
diff --git a/R/simple_summary.R b/R/simple_summary.R
index e5f1580..5b8d63f 100644
--- a/R/simple_summary.R
+++ b/R/simple_summary.R
@@ -17,7 +17,11 @@
 #
 # simple summary
 simple_summary <- function(vector) {
-  ar <- as.data.frame(as.array(summary(vector)))
+  ar <- data.table::as.data.table(
+    as.array(summary(vector)),
+    keep.rownames = TRUE,
+    na.rm = FALSE
+  )
   ar[, 2] <- as.character(ar[, 2])
   colnames(ar) <- c(" ", " ")
   return(ar)