tests/testthat.R

In business-science/modeltime.gluonts: 'GluonTS' Deep Learning

library(testthat)

library(tidymodels)
library(modeltime.gluonts)
library(timetk)
library(reticulate)
library(tidyverse)
library(rlang)
library(readr)

# gluonts   <- import("gluonts", convert = FALSE)
# np        <- import("numpy", convert = FALSE)
# pd        <- import("pandas", convert = FALSE)

skip_if_no_gluonts <- function() {

    gluonts_available <- FALSE

    try({
        gluonts_available <- reticulate::py_module_available("gluonts")
    }, silent = TRUE)

    if (!gluonts_available) {
        skip("gluonts not available for testing")
    }
}


test_check("modeltime.gluonts")