ggplot_rsi improvements

tests/testthat/test-ggplot_rsi.R

@@ -29,16 +29,4 @@ test_that("ggplot_rsi works", {
       summarise_all(portion_IR) %>% as.double()
   )
 
-  expect_error(geom_rsi(x = "test"))
-  expect_error(facet_rsi(facet = "test"))
-
-  # support for groups
-  print(
-    septic_patients %>%
-      select(hospital_id, amox, cipr) %>%
-      group_by(hospital_id) %>%
-      ggplot_rsi() +
-      facet_grid("hospital_id")
-  )
-
 })

tests/testthat/test-portion.R

@@ -111,7 +111,7 @@ test_that("old rsi works", {
 
   # portion_df
   expect_equal(
-    septic_patients %>% select(amox) %>% portion_df(TRUE) %>% pull(Percentage),
+    septic_patients %>% select(amox) %>% portion_df() %>% pull(Percentage),
     c(septic_patients$amox %>% portion_S(),
       septic_patients$amox %>% portion_I(),
       septic_patients$amox %>% portion_R())