(v0.7.1.9107) v0.8.0

tests/testthat/test-bug_drug_combinations.R

@@ -22,6 +22,9 @@
 context("bug_drug_combinations.R")
 
 test_that("bug_drug_combinations works", {
+  
+  skip_on_cran()
+  
   b <- suppressWarnings(bug_drug_combinations(example_isolates))
   expect_s3_class(b, "bug_drug_combinations")
   expect_output(print(b))

tests/testthat/test-eucast_rules.R

@@ -22,6 +22,8 @@
 context("eucast_rules.R")
 
 test_that("EUCAST rules work", {
+  
+  skip_on_cran()
 
   # thoroughly check input table
   expect_equal(colnames(eucast_rules_file),

tests/testthat/test-first_isolate.R

@@ -22,6 +22,9 @@
 context("first_isolate.R")
 
 test_that("first isolates work", {
+  
+  skip_on_cran()
+  
   # first isolates
   expect_equal(
     sum(

tests/testthat/test-mdro.R

@@ -22,6 +22,9 @@
 context("mdro.R")
 
 test_that("mdro works", {
+  
+  skip_on_cran()
+  
   library(dplyr)
 
   expect_error(suppressWarnings(mdro(example_isolates, country = "invalid", col_mo = "mo", info = TRUE)))

tests/testthat/test-mo.R

@@ -23,6 +23,8 @@ context("mo.R")
 
 test_that("as.mo works", {
   
+  skip_on_cran()
+  
   clear_mo_history(force = TRUE)
   
   library(dplyr)

tests/testthat/test-mo_property.R

@@ -22,6 +22,9 @@
 context("mo_property.R")
 
 test_that("mo_property works", {
+  
+  skip_on_cran()
+  
   expect_equal(mo_kingdom("Escherichia coli"), "Bacteria")
   expect_equal(mo_phylum("Escherichia coli"), "Proteobacteria")
   expect_equal(mo_class("Escherichia coli"), "Gammaproteobacteria")

tests/testthat/test-rsi.R

@@ -22,6 +22,9 @@
 context("rsi.R")
 
 test_that("rsi works", {
+  
+  skip_on_cran()
+  
   expect_true(as.rsi("S") < as.rsi("I"))
   expect_true(as.rsi("I") < as.rsi("R"))
   expect_true(as.rsi("R") > as.rsi("S"))
@@ -56,6 +59,9 @@ test_that("rsi works", {
 })
 
 test_that("mic2rsi works", {
+  
+  skip_on_cran()
+  
   expect_equal(as.character(
     as.rsi(x = as.mic(0.125),
                       mo = "B_STRPT_PNMN",
@@ -78,6 +84,9 @@ test_that("mic2rsi works", {
 })
 
 test_that("disk2rsi works", {
+  
+  skip_on_cran()
+  
   expect_equal(as.character(
     as.rsi(x = as.disk(22),
            mo = "B_STRPT_PNMN",