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")
-  )
-
 })