1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
library(pfm)
context("Read and analyse TOXSWA cwa files")
zipfile_test = system.file("testdata/SwashProjects.zip", package = "pfm")
basedir_test = "SwashProjects/project_H_sw/TOXSWA"
H_sw_D4_pond <- read.TOXSWA_cwa("00001p_pa.cwa",
basedir = basedir_test,
zipfile = zipfile_test)
H_sw_R1_stream <- read.TOXSWA_cwa("00003s_pa.cwa",
basedir = basedir_test,
zipfile = zipfile_test)
test_that("TOXSWA cwa file is correctly read and printed", {
# This was the setting when printing the output into text files
options(width = 100)
# Most content of the R6 object is at least partially printed
H_sw_D4_pond_printed <- capture.output(print(H_sw_D4_pond))
expect_equal(H_sw_D4_pond_printed, readLines("H_sw_D4_pond_printed.txt"))
H_sw_R1_stream_printed <- capture.output(print(H_sw_R1_stream))
expect_equal(H_sw_R1_stream_printed, readLines("H_sw_R1_stream_printed.txt"))
# The basedir is not printed, therefore tested separately
expect_equal(H_sw_D4_pond$basedir, basedir_test)
})
test_that("Getting events and moving window analysis works", {
# Event analysis with two different thresholds
H_sw_R1_stream$get_events(c(2, 10))
expect_equal_to_reference(H_sw_R1_stream$events, file = "H_sw_R1_stream_events.rds")
# Moving window analysis
H_sw_R1_stream$moving_windows(c(7, 21))
expect_equal_to_reference(H_sw_R1_stream$windows, file = "H_sw_R1_stream_windows.rds")
})
|