grouping var for freq

tests/testthat/test-freq.R

@@ -61,6 +61,9 @@ test_that("frequency table works", {
   expect_output(septic_patients %>% select(1:9) %>% freq() %>% print())
   expect_output(print(freq(septic_patients$age), nmax = 20))
 
+  # grouping variable
+  expect_output(print(septic_patients %>% group_by(gender) %>% freq(hospital_id)))
+
   # top 5
   expect_equal(
     septic_patients %>%

tests/testthat/test-mo_property.R

@@ -56,7 +56,7 @@ test_that("mo_property works", {
   # check vector with random values
   library(dplyr)
   df_sample <- AMR::microorganisms %>% sample_n(100)
-  expect_identical(df_sample %>% pull(mo) %>% mo_fullname(),
+  expect_identical(df_sample %>% pull(mo) %>% mo_fullname(language = "en"),
                    df_sample %>% pull(fullname))
 
 })