fix for macOS and older tidyr versions

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: AMR
 Version: 0.2.0.9010
-Date: 2018-07-10
+Date: 2018-07-11
 Title: Antimicrobial Resistance Analysis
 Authors@R: c(
     person(
@@ -44,7 +44,7 @@ Suggests:
     covr (>= 3.0.1),
     rmarkdown,
     rstudioapi,
-    tidyr (>= 0.8.0)
+    tidyr
 VignetteBuilder: knitr
 URL: https://github.com/msberends/AMR
 BugReports: https://github.com/msberends/AMR/issues

R/freq.R

@@ -166,18 +166,11 @@ frequency_tbl <- function(x,
     if (!"tidyr" %in% rownames(installed.packages())) {
       stop('transformation from `table` to frequency table requires the tidyr package.', call. = FALSE)
     }
-    values <- x %>%
+    x <- x %>%
       as.data.frame(stringsAsFactors = FALSE) %>%
-      # delete last variable: these are frequencies
-      select(-ncol(.)) %>%
-      # paste all other columns:
-      tidyr::unite(sep = sep) %>%
-      .[, 1]
-    counts <- x %>%
-      as.data.frame(stringsAsFactors = FALSE) %>%
-      # get last variable: these are frequencies
-      pull(ncol(.))
-    x <- rep(values, counts)
+      # paste first two columns
+      tidyr::unite(col = "Pasted", 1:2, sep = sep, remove = TRUE)
+    x <- rep(x %>% pull(Pasted), x %>% pull(Freq))
     x.name <- "a `table` object"
     cols <- NULL
     mult.columns <- 2

R/globals.R

@@ -30,6 +30,7 @@ globalVariables(c('abname',
                   'days_diff',
                   'fctlvl',
                   'first_isolate_row_index',
+                  'Freq',
                   'fullname',
                   'genus',
                   'gramstain',
@@ -46,6 +47,7 @@ globalVariables(c('abname',
                   'n',
                   'na.omit',
                   'other_pat_or_mo',
+                  'Pasted',
                   'patient_id',
                   'quantile',
                   'real_first_isolate',

tests/testthat/test-freq.R

@@ -18,9 +18,7 @@ test_that("frequency table works", {
   # factor
   expect_output(print(freq(septic_patients$hospital_id)))
   # table
-  #if (Sys.info()['sysname'] %in% c("Windows", "Linux")) {
-    expect_output(print(freq(table(septic_patients$sex, septic_patients$age))))
-  #}
+  expect_output(print(freq(table(septic_patients$sex, septic_patients$age))))
 
   library(dplyr)
   expect_output(septic_patients %>% select(1:2) %>% freq() %>% print())