fix #15

use tibble::enframe() to convert named vectors to empty tibble in list_NA()

NAMESPACE

@@ -29,4 +29,6 @@ importFrom(stats,sd)
 importFrom(stats,var)
 importFrom(tibble,as.tibble)
 importFrom(tibble,as_tibble)
+importFrom(tibble,enframe)
+importFrom(tidyr,pivot_wider)
 importFrom(tidyr,unnest)

R/tbr_gmean.R

@@ -94,11 +94,13 @@ tbr_gmean_window <- function(x, tcolumn, unit = "years", n, i, ...) {
   dots <- list(...)
 
   if (is.na(dots$conf)) {
-    resultsColumns <- c("mean")
+    resultsColumns <- c("mean" = NA)
   }
 
   else {
-    resultsColumns <- c("mean", "lwr_ci", "upr_ci")
+    resultsColumns <- c("mean" = NA, 
+                        "lwr_ci" = NA,
+                        "upr_ci" = NA)
   }
 
   # do not calculate the first row, always returns NA

R/utils.R

@@ -1,12 +1,19 @@
 
-# function to return tibble with NAs as specified
-# list_NA(c("mean", "lwr.ci", "upr.ci"))
-list_NA <- function(...) {
-  names <- c(...)
-  results <- as.list(c(rep(NA, length(names))))
-  names(results) <- names
-  results <- tibble::as_tibble(results)
-  results[1:length(results)] <- as.numeric(results[1:length(results)])
+#' List NA
+#'
+#' function to return tibble with NAs as specified
+#' @param x named vector 
+#'
+#' @importFrom tibble enframe
+#' @importFrom tidyr pivot_wider
+#' @return empty tibble
+#' @keywords internal
+list_NA <- function(x) {
+  names <- x
+
+  results <- tibble::enframe(names) %>%
+    mutate(value = as.numeric(.data$value)) %>%
+    tidyr::pivot_wider()
   return(results)
 }
 

tbrf.Rproj

@@ -15,4 +15,5 @@ LaTeX: pdfLaTeX
 BuildType: Package
 PackageUseDevtools: Yes
 PackageInstallArgs: --no-multiarch --with-keep.source
+PackageCheckArgs: --as-cran
 PackageRoxygenize: rd,collate,namespace,vignette