From 851f146e866817e48a7becf25b7d76f0ad45f1fe Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Fri, 14 Sep 2018 18:24:49 +0200 Subject: Skip some more tests on CRAN Static documentation rebuilt by pkgdown --- tests/testthat/test_FOCUS_chi2_error_level.R | 3 ++- tests/testthat/test_parent_only.R | 4 +++- tests/testthat/test_twa.R | 6 +----- 3 files changed, 6 insertions(+), 7 deletions(-) (limited to 'tests') diff --git a/tests/testthat/test_FOCUS_chi2_error_level.R b/tests/testthat/test_FOCUS_chi2_error_level.R index 2db2f4e6..1f1e2a06 100644 --- a/tests/testthat/test_FOCUS_chi2_error_level.R +++ b/tests/testthat/test_FOCUS_chi2_error_level.R @@ -1,4 +1,4 @@ -# Copyright (C) 2014-15 Johannes Ranke +# Copyright (C) 2014,2015,2018 Johannes Ranke # Contact: jranke@uni-bremen.de # This file is part of the R package mkin @@ -39,6 +39,7 @@ test_that("Chi2 error levels for FOCUS D are as in mkin 0.9-33", { }) test_that("Chi2 error levels for FOCUS E are as in mkin 0.9-33", { + skip_on_cran() fit <- mkinfit(SFO_SFO.ff, FOCUS_2006_E, quiet = TRUE) diff --git a/tests/testthat/test_parent_only.R b/tests/testthat/test_parent_only.R index 9a3844cf..ee0cc144 100644 --- a/tests/testthat/test_parent_only.R +++ b/tests/testthat/test_parent_only.R @@ -1,4 +1,4 @@ -# Copyright (C) 2015 Johannes Ranke +# Copyright (C) 2015,2018 Johannes Ranke # Contact: jranke@uni-bremen.de # This file is part of the R package mkin @@ -89,6 +89,7 @@ test_that("Fits for FOCUS A deviate less than 0.1% from median of values from FO }) test_that("Fits for FOCUS B deviate less than 0.1% from median of values from FOCUS report", { + skip_on_cran() fit.B.SFO <- list(mkinfit("SFO", FOCUS_2006_B, quiet = TRUE)) median.B.SFO <- as.numeric(lapply(subset(FOCUS_2006_SFO_ref_A_to_F, @@ -202,6 +203,7 @@ test_that("DFOP fits give approximately (0.001%) equal results with different so }) test_that("SFORB fits give approximately (0.002%) equal results with different solution methods", { + skip_on_cran() fit.B.SFORB.default <- mkinfit(SFORB, FOCUS_2006_B, quiet=TRUE)$bparms.optim fits.B.SFORB <- list() diff --git a/tests/testthat/test_twa.R b/tests/testthat/test_twa.R index 27a76ee8..d5c0b98b 100644 --- a/tests/testthat/test_twa.R +++ b/tests/testthat/test_twa.R @@ -1,4 +1,4 @@ -# Copyright (C) 2016,2017 Johannes Ranke +# Copyright (C) 2016,2017,2018 Johannes Ranke # Contact: jranke@uni-bremen.de # This file is part of the R package mkin @@ -22,10 +22,6 @@ twa_models <- c("SFO", "FOMC", "DFOP") fits <- mmkin(twa_models, list(FOCUS_D = FOCUS_2006_D), quiet = TRUE, cores = 1) -SFO_SFO <- mkinmod(parent = list(type = "SFO", to = "m1"), - m1 = list(type = "SFO"), quiet = TRUE) -fit.m1 <- mkinfit(SFO_SFO, FOCUS_2006_D, quiet = TRUE) - test_that("Time weighted average concentrations are correct", { outtimes_7 <- seq(0, 7, length.out = 10000) for (model in twa_models) { -- cgit v1.2.1