tests/testthat/test-3-auto-discovery.R

In readysignal: 'Ready Signal' API Wrapper

test_that("Auto Discovery No Arguments", {
    expect_error(auto_discover())
})

if (authenticated) {
    test_that("Invalid Grain", {
        expect_error(
            auto_discover(token, geo_grain = "City", filename = "cities.csv")
        )
    })

    test_that("Missing Arguments", {
        expect_error(auto_discover(token, geo_grain = "State"))
    })

    s1 <- NULL
    test_that("State Array Upload", {
        df <- read.csv("./data/states.csv")
        expect_no_error(
            s1 <<- auto_discover(
                token,
                geo_grain = "State",
                date_grain = "Month",
                df = df
            )$signal_id
        )
    })

    s2 <- NULL
    test_that("Country Array Upload", {
        df <- read.csv("./data/country.csv")
        expect_no_error(
            s2 <<- auto_discover(
                token,
                geo_grain = "Country",
                date_grain = "Month",
                df = df
            )$signal_id
        )
    })

    s3 <- NULL
    test_that("State File Upload", {
        expect_no_error(
            s3 <<- auto_discover(
                token,
                geo_grain = "State",
                date_grain = "Month",
                filename = "./data/states.csv"
            )$signal_id
        )
    })

    s4 <- NULL
    test_that("Country File Upload", {
        expect_no_error(
            s4 <<- auto_discover(
                token,
                geo_grain = "Country",
                date_grain = "Month",
                filename = "./data/country.csv"
            )$signal_id
        )
    })

    s5 <- NULL
    test_that("Day File Upload", {
        expect_no_error(
            s5 <<- auto_discover(
                token,
                geo_grain = "Country",
                date_grain = "Day",
                filename = "./data/day.csv"
            )$signal_id
        )
    })

    s6 <- NULL
    test_that("Non-Default Create Custom Features", {
        df <- read.csv("./data/states.csv")
        expect_no_error(
            s6 <<- auto_discover(
                token,
                geo_grain = "State",
                date_grain = "Month",
                df = df,
                create_custom_features = 0,
            )$signal_id
        )
    })

    # Delete Signals
    test_that("Delete Signals", {
        expect_no_error(delete_signal(token, s1))
        expect_no_error(delete_signal(token, s2))
        expect_no_error(delete_signal(token, s3))
        expect_no_error(delete_signal(token, s4))
        expect_no_error(delete_signal(token, s5))
        expect_no_error(delete_signal(token, s6))
    })
}