P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-09 04:02:19 +02:00
Code Releases Activity

(v1.0.0.9003) prepare for short update

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2020-02-21 13:13:34 +01:00
parent 6408911922
commit bb3728f023
13 changed files with 45 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
tests/testthat/test-rsi.R
View File

@ -34,6 +34,8 @@ test_that("rsi works", {
barplot(as.rsi(c("S", "I", "R")))
plot(as.rsi(c("S", "I", "R")))
print(as.rsi(c("S", "I", "R")))
expect_equal(as.character(as.rsi(c(1:3))), c("S", "I", "R"))
expect_equal(suppressWarnings(as.logical(as.rsi("INVALID VALUE"))), NA)
@ -55,9 +57,17 @@ test_that("rsi works", {
as.logical() %>%
sum(),
40)
expect_output(tibble(ab = as.rsi("S")))
expect_error(as.rsi.mic(as.mic(16)))
expect_error(as.rsi.disk(as.disk(16)))
expect_error(get_guideline("this one does not exist"))
})
test_that("mic2rsi works", {
skip_on_cran()