context("sunshine")
## TODO: Rename context
## TODO: Add more tests
#library(foreach)
#library(iterators)
library(visDec)
properties <- fread(system.file("extdata/properties.csv", package = "visDec"))
files <- c("./Input/Meetterrein_20151009_0000.jpg", # midnight
"./Input/Meetterrein_20151009_0610.jpg", # pre sunrise
"./Input/Meetterrein_20151009_1200.jpg") # midday
# files <- c("./tests/testthat/Input/Meetterrein_20151009_0000.jpg", # midnight
# "./tests/testthat/Input/Meetterrein_20151009_0610.jpg", # pre sunrise
# "./tests/testthat/Input/Meetterrein_20151009_1200.jpg") # midday
test_that("check day", {
fileInfo <- data.table::rbindlist(lapply(files, FileNameParser,
pattern = "na*me_yyyymmdd_hhmm.jpg"))
fileInfo2 <- merge(fileInfo, properties,
by.x = "filePrefix", by.y = "filePrefix")
expect_equal_to_reference(fileInfo2[IsDayLightImage(dateTime, lon, lat), ],
file = "./Reference/DayLightImages.rds")
tmp <- FilterDayLightHours(fileInfo, properties, 0, 0)
expect_equal(tmp$dateTime[1], as.POSIXct("2015-10-09 06:10:00", tz = "UTC"))
expect_equal(tmp$dateTime[2], as.POSIXct("2015-10-09 12:00:00", tz = "UTC"))
expect_equal_to_reference(tmp, file = "./Reference/DaylightHours.rds")
})
test_that("check time window", {
fileInfo <- data.table::rbindlist(lapply(files, FileNameParser,
pattern = "na*me_yyyymmdd_hhmm.jpg"))
tmp2 <- WindowFilterDayLightHours(fileInfo, properties, 120, 60, 60, 60)
#for the day and location the sunrise is at 05:53:02 UTC
#for the day the and location sunset is at 16:59:18 UTC
expect_equal(tmp2$dateTime[1], as.POSIXct("2015-10-09 06:10:00", tz = "UTC"))
expect_equal_to_reference(tmp2, file = "./Reference/SunriseSunsetHoursFilter.rds")
setkey(fileInfo, filePrefix, dateOnly) # This is to keep the old reference but
# has no real effect
selected <- TimeWindowFilter(fileInfo, "00:00", "07:00")
expect_equal(selected$dateTime[1], as.POSIXct("2015-10-09 00:00:00", tz = "UTC"))
expect_equal(selected$dateTime[2], as.POSIXct("2015-10-09 06:10:00", tz = "UTC"))
expect_equal_to_reference(selected, file = "./Reference/TimeWindowFilter.rds")
}
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.