(v0.6.1.9047) ggplot fix

tests/testthat/test-ggplot_rsi.R

@@ -59,9 +59,6 @@ test_that("ggplot_rsi works", {
       summarise_all(count_IR) %>% as.double()
   )
 
-  expect_equal(colnames(getlbls(septic_patients %>% select(AMC, CIP))),
-               c("Interpretation", "Antibiotic", "Value", "lbl"))
-
   expect_error(ggplot_rsi(septic_patients, fun = "invalid"))
   expect_error(geom_rsi(septic_patients, fun = "invalid"))