tests/testthat/test_per_2015.R

In vismeteor: Analysis of Visual Meteor Data

test_that("per_2015", {

    if (FALSE) {
        Sys.setenv(TZ="UTC")
        library(RPostgreSQL)

        # create a connection to the data base
        con <- dbConnect(
            PostgreSQL(),
            dbname = "vmdb",
            host = "localhost",
            user = "vmdb"
        )

        data_dir <- system.file('data', package = 'vismeteor')

        # load rate observations including
        # session data and magnitude observations
        PER_2015_rates <- load_vmdb_rates(
            con,
            shower = 'PER',
            period = c('2015-01-01', '2015-12-31'),
            withMagnitudes = TRUE,
            withSessions = TRUE
        )
        save(
            PER_2015_rates,
            file = normalizePath(paste0(data_dir, '/PER_2015_rates.RData')),
            compress = 'xz'
        )

        # load magnitude observations including
        # session data and magnitude observations
        PER_2015_magn <- load_vmdb_magnitudes(
            con,
            shower = 'PER',
            period = c('2015-01-01', '2015-12-31'),
            withMagnitudes = TRUE,
            withSessions = TRUE
        )
        save(
            PER_2015_magn,
            file = normalizePath(paste0(data_dir, '/PER_2015_magn.RData')),
            compress = 'xz'
        )
    }

    expect_type(PER_2015_rates, 'list')
    sessions <- PER_2015_rates$sessions
    expect_type(sessions, 'list')
    expect_true(is(sessions, 'data.frame'))
    observations <- PER_2015_rates$observations
    expect_type(observations, 'list')
    expect_true(is(observations, 'data.frame'))
    magnitudes <- PER_2015_rates$magnitudes
    expect_type(magnitudes, 'double')
    expect_true(is(magnitudes, 'table'))

    expect_type(PER_2015_magn, 'list')
    sessions <- PER_2015_magn$sessions
    expect_type(sessions, 'list')
    expect_true(is(sessions, 'data.frame'))
    observations <- PER_2015_magn$observations
    expect_type(observations, 'list')
    expect_true(is(observations, 'data.frame'))
    magnitudes <- PER_2015_magn$magnitudes
    expect_type(magnitudes, 'double')
    expect_true(is(magnitudes, 'table'))
})