Last updated on 2022-08-15 08:50:20 CEST.
| Package | ERROR | OK |
|---|---|---|
| linea | 1 | 12 |
Current CRAN status: ERROR: 1, OK: 12
Version: 0.0.2
Check: examples
Result: ERROR
Running examples in 'linea-Ex.R' failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: gt_f
> ### Title: apply_normalisation
> ### Aliases: gt_f
>
> ### ** Examples
>
> data = read_xcsv("https://raw.githubusercontent.com/paladinic/data/main/ecomm_data.csv") %>%
+ gt_f(kw = 'covid') %>%
+ gt_f(kw = 'bitcoin')
Rows: 261 Columns: 8
-- Column specification --------------------------------------------------------
Delimiter: ","
dbl (7): ecommerce, black.friday, christmas, covid, online_media, offline_m...
date (1): date
i Use `spec()` to retrieve the full column specification for this data.
i Specify the column types or set `show_col_types = FALSE` to quiet this message.
Error in interest_over_time(widget, comparison_item, tz) :
Status code was not 200. Returned status code:429
Calls: %>% ... as.Date -> pull -> gt_f -> gtrends -> interest_over_time
Execution halted
Flavor: r-devel-linux-x86_64-debian-clang
Version: 0.0.2
Check: tests
Result: ERROR
Running 'testthat.R' [150s/178s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
> # libs ####
> library(testthat)
> library(linea)
Attaching package: 'linea'
The following object is masked from 'package:stats':
lag
> library(dplyr)
Attaching package: 'dplyr'
The following object is masked from 'package:linea':
lag
The following object is masked from 'package:testthat':
matches
The following objects are masked from 'package:stats':
filter, lag
The following objects are masked from 'package:base':
intersect, setdiff, setequal, union
> library(tidyr)
Attaching package: 'tidyr'
The following object is masked from 'package:testthat':
matches
>
> # test_check("linea")
>
> # set up ####
> ### NOT POOLED ----
>
> # import data
> data = read_xcsv(verbose = FALSE,
+ file = "https://raw.githubusercontent.com/paladinic/data/main/ecomm_data.csv") %>%
+ check_ts(verbose = FALSE,
+ allow_non_num = TRUE,
+ date_col = "date") %>%
+ get_seasonality(verbose = FALSE,
+ date_col_name = "date",
+ date_type = "weekly starting")
Rows: 261 Columns: 8
-- Column specification --------------------------------------------------------
Delimiter: ","
dbl (7): ecommerce, black.friday, christmas, covid, online_media, offline_m...
date (1): date
i Use `spec()` to retrieve the full column specification for this data.
i Specify the column types or set `show_col_types = FALSE` to quiet this message.
>
>
> # vars
> dv = "ecommerce"
> ivs = c("black.friday", "christmas", "covid")
> id_var = "date"
>
> # model table
> model_table = build_model_table(ivs)
> model_table$dec[1] = '0.5'
>
> # category
> category = tibble(
+ variable = c("christmas" , "christmas"),
+ category = c("a", "a"),
+ calc = c("", "")
+ )
>
> # run model
> model = run_model(
+ verbose = FALSE,
+ data = data,
+ dv = dv,
+ model_table = model_table,
+ normalise_by_pool = FALSE
+ )
>
>
>
> ### POOLED ----
>
> # import data
> pooled_data = read_xcsv(verbose = FALSE,
+ file = "https://raw.githubusercontent.com/paladinic/data/main/pooled%20data.csv") %>%
+ check_ts(verbose = FALSE,
+ allow_non_num = TRUE,
+ date_col = "Week") %>%
+ get_seasonality(verbose = FALSE,
+ date_col_name = "Week",
+ date_type = "weekly starting")
Rows: 783 Columns: 6
-- Column specification --------------------------------------------------------
Delimiter: ","
chr (1): country
dbl (4): christmas, amazon, rakhi, diwali
date (1): Week
i Use `spec()` to retrieve the full column specification for this data.
i Specify the column types or set `show_col_types = FALSE` to quiet this message.
>
> # meta data
> pooled_meta_data = tibble(
+ variable = c("amazon", "rakhi", "country", "Week"),
+ meta = c("STA", "STA", "POOL", "ID")
+ )
>
> # vars
> pooled_dv = "amazon"
> pooled_ivs = c("rakhi", "christmas", "diwali")
> pooled_id_var = "Week"
>
> # model table
> pooled_model_table = build_model_table(c(pooled_ivs, "", ""))
>
> # category
> pooled_category = tibble(
+ variable = c("rakhi" , "christmas"),
+ category = c("a", "a"),
+ calc = c("", "")
+ )
>
> # run model
> pooled_model = run_model(
+ verbose = FALSE,
+ data = pooled_data,
+ dv = pooled_dv,
+ meta_data = pooled_meta_data,
+ model_table = pooled_model_table,
+ normalise_by_pool = TRUE
+ )
>
>
>
> # tests ####
> ### read data ####
>
> test_that('read data',{
+
+
+ data = read_xcsv(verbose = FALSE,
+ file = "https://raw.githubusercontent.com/paladinic/data/main/ecomm_data.csv")%>%
+ is.data.frame() %>%
+ expect_equal(TRUE)
+
+ })
Test passed
> test_that('read data - pooled',{
+
+ pooled_data = read_xcsv(verbose = FALSE,
+ file = "https://raw.githubusercontent.com/paladinic/data/main/pooled%20data.csv")%>%
+ is.data.frame() %>%
+ expect_equal(TRUE)
+
+ })
Test passed
> test_that('read data - pooled ts',{
+
+ pooled_data = read_xcsv(verbose = FALSE,
+ file = "https://raw.githubusercontent.com/paladinic/data/main/pooled%20data.csv")%>%
+ check_ts(date_col = 'Week') %>%
+ is.data.frame() %>%
+ expect_equal(TRUE)
+
+ })
Test passed
>
>
> ### seasonality ####
>
> test_that('seasonality',{
+
+ pooled_data = read_xcsv(verbose = FALSE,
+ file = "https://raw.githubusercontent.com/paladinic/data/main/ecomm_data.csv")%>%
+ check_ts(date_col = 'date') %>%
+ get_seasonality(date_col_name = 'date',
+ date_type = 'weekly starting') %>%
+ is.data.frame() %>%
+ expect_equal(TRUE)
+
+ })
Test passed
> test_that('seasonality - pooled',{
+
+ pooled_data = read_xcsv(verbose = FALSE,
+ file = "https://raw.githubusercontent.com/paladinic/data/main/pooled%20data.csv")%>%
+ check_ts(date_col = 'Week') %>%
+ get_seasonality(date_col_name = 'Week',
+ pool_var = 'country',
+ date_type = 'weekly starting') %>%
+ is.data.frame() %>%
+ expect_equal(TRUE)
+
+ })
Test passed
>
>
> ### run model ####
>
> test_that('run_model ivs, dv',{
+
+ run_model(data = data, dv = dv, ivs = ivs) %>%
+ class() %>%
+ expect_equal('lm')
+
+ })
Test passed
>
> ### next steps ---------------------------------------------------------------
>
> test_that("what next - output dataframe", {
+ model %>%
+ what_next() %>%
+ is.data.frame() %>%
+ expect_equal(TRUE)
+ })
Test passed
> test_that("what next - output not all na", {
+ model %>%
+ what_next() %>%
+ select(-variable) %>%
+ is.na() %>%
+ all() %>%
+ expect_equal(FALSE)
+ })
Test passed
>
> test_that("what next - output dataframe - diff FALSE - not pooled", {
+ model %>%
+ what_next(r2_diff = FALSE) %>%
+ is.data.frame() %>%
+ expect_equal(TRUE)
+ })
Test passed
> test_that("what next - output not all na - diff FALSE - not pooled", {
+ model %>%
+ what_next(r2_diff = FALSE) %>%
+ select(-variable) %>%
+ is.na() %>%
+ all() %>%
+ expect_equal(FALSE)
+ })
Test passed
>
> test_that("what next - pooled - output dataframe", {
+ pooled_model %>%
+ what_next() %>%
+ is.data.frame() %>%
+ expect_equal(TRUE)
+ })
Test passed
> test_that("what next - pooled - output not all na", {
+ pooled_model %>%
+ what_next() %>%
+ select(-variable) %>%
+ is.na() %>%
+ all() %>%
+ expect_equal(FALSE)
+ })
Test passed
>
> test_that("what trans - output dataframe", {
+ run_model(data = mtcars,dv = 'mpg',ivs = c('disp','cyl')) %>%
+ what_trans(variable = 'cyl',trans_df = data.frame(
+ name = c('diminish', 'decay', 'lag', 'ma', 'log', 'hill', 'sin', 'exp'),
+ ts = c(FALSE,TRUE,TRUE,TRUE,FALSE,FALSE,FALSE,FALSE),
+ func = c('linea::diminish(x,a)',
+ 'linea::decay(x,a)',
+ 'linea::lag(x,a)',
+ 'linea::ma(x,a)',
+ 'log(x,a)',
+ "linea::hill_function(x,a,b,c)",
+ 'sin(x*a)',
+ '(x^a)'),order = 1:8) %>%
+ dplyr::mutate(val = '') %>%
+ dplyr::mutate(val = dplyr::if_else(condition = name == 'hill',
+ '(1,5,50),(1 ,5,50),(1,5,50)',
+ val))) %>%
+ is.data.frame() %>%
+ expect_equal(TRUE)
+ })
Test passed
> test_that("what trans - output not all na", {
+ run_model(data = mtcars,dv = 'mpg',ivs = c('disp','cyl')) %>%
+ what_trans(variable = 'cyl',trans_df = data.frame(
+ name = c('diminish', 'decay', 'lag', 'ma', 'log', 'hill', 'sin', 'exp'),
+ ts = c(FALSE,TRUE,TRUE,TRUE,FALSE,FALSE,FALSE,FALSE),
+ func = c('linea::diminish(x,a)',
+ 'linea::decay(x,a)',
+ 'linea::lag(x,a)',
+ 'linea::ma(x,a)',
+ 'log(x,a)',
+ "linea::hill_function(x,a,b,c)",
+ 'sin(x*a)',
+ '(x^a)'),order = 1:8) %>%
+ dplyr::mutate(val = '') %>%
+ dplyr::mutate(val = dplyr::if_else(condition = name == 'hill',
+ '(1,5,50),(1 ,5,50),(1,5,50)',
+ val))) %>%
+ is.na() %>%
+ all() %>%
+ expect_equal(FALSE)
+ })
Test passed
>
> test_that("what combo - output dataframe", {
+ data = read_xcsv("https://raw.githubusercontent.com/paladinic/data/main/ecomm_data.csv")
+ dv = 'ecommerce'
+ ivs = c('christmas','black.friday')
+ combo_trans_df = data.frame(
+ name = c('diminish', 'decay', 'hill', 'exp'),
+ ts = c(FALSE,TRUE,FALSE,FALSE),
+ func = c(
+ 'linea::diminish(x,a)',
+ 'linea::decay(x,a)',
+ "linea::hill_function(x,a,b,c)",
+ '(x^a)'
+ ),
+ order = 1:4
+ ) %>%
+ dplyr::mutate(offline_media = dplyr::if_else(condition = name == 'hill',
+ '(1,5,50),(1,5,50),( 1,5,50)',
+ '')) %>%
+ dplyr::mutate(online_media = dplyr::if_else(condition = name == 'diminish',
+ '.1,.5, 10 ',
+ '')) %>%
+ dplyr::mutate(online_media = dplyr::if_else(condition = name == 'decay',
+ '.1,.7 ',
+ online_media)) %>%
+ dplyr::mutate(online_media = dplyr::if_else(condition = name == 'exp',
+ '.5,2,3',
+ online_media)) %>%
+ dplyr::mutate(promo = '') %>%
+ {what_combo(trans_df = .,dv = dv,data = data)} %>%
+ {.[['results']]} %>%
+ is.data.frame() %>%
+ expect_equal(TRUE)
+ })
Test passed
> test_that("what combo - output not all na", {
+ data = read_xcsv("https://raw.githubusercontent.com/paladinic/data/main/ecomm_data.csv")
+ dv = 'ecommerce'
+ ivs = c('christmas','black.friday')
+ combo_trans_df = data.frame(
+ name = c('diminish', 'decay', 'hill', 'exp'),
+ ts = c(FALSE,TRUE,FALSE,FALSE),
+ func = c(
+ 'linea::diminish(x,a)',
+ 'linea::decay(x,a)',
+ "linea::hill_function(x,a,b,c)",
+ '(x^a)'
+ ),
+ order = 1:4
+ ) %>%
+ dplyr::mutate(offline_media = dplyr::if_else(condition = name == 'hill',
+ '(1,5,50),(1,5,50),( 1,5,50)',
+ '')) %>%
+ dplyr::mutate(online_media = dplyr::if_else(condition = name == 'diminish',
+ '.1,.5, 10 ',
+ '')) %>%
+ dplyr::mutate(online_media = dplyr::if_else(condition = name == 'decay',
+ '.1,.7 ',
+ online_media)) %>%
+ dplyr::mutate(online_media = dplyr::if_else(condition = name == 'exp',
+ '.5,2,3',
+ online_media)) %>%
+ dplyr::mutate(promo = '') %>%
+ {what_combo(trans_df = .,dv = dv,data = data)} %>%
+ {.[['results']]} %>%
+ is.na() %>%
+ all() %>%
+ expect_equal(FALSE)
+ })
Test passed
>
> ### get gt ------------------------------------------------------------------
>
> test_that("gtrends_f - pooled - output dataframe",{
+ gt_f(data = pooled_data,
+ kw = 'bitcoin',
+ date_col = pooled_id_var) %>%
+ is.data.frame() %>%
+ expect_equal(TRUE)
+ })
-- Error (???): gtrends_f - pooled - output dataframe --------------------------
Error in `interest_over_time(widget, comparison_item, tz)`: Status code was not 200. Returned status code:429
Backtrace:
1. ... %>% expect_equal(TRUE)
6. linea::gt_f(data = pooled_data, kw = "bitcoin", date_col = pooled_id_var)
7. gtrendsR::gtrends(keyword = kw, time = time_str, onlyInterest = TRUE)
8. gtrendsR:::interest_over_time(widget, comparison_item, tz)
Error in reporter$stop_if_needed() : Test failed
Calls: test_that -> <Anonymous>
Execution halted
Flavor: r-devel-linux-x86_64-debian-clang