CRAN Package Check Results for Maintainer ‘Matt Dancho <mdancho at business-science.io>’

Last updated on 2019-09-20 01:48:16 CEST.

Package ERROR NOTE OK
alphavantager 12
anomalize 10 2
correlationfunnel 8 4
tidyquant 11 1

Package alphavantager

Current CRAN status: OK: 12

Package anomalize

Current CRAN status: ERROR: 10, NOTE: 2

Version: 0.1.1
Check: examples
Result: ERROR
    Running examples in 'anomalize-Ex.R' failed
    The error most likely occurred in:
    
    > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
    > ### Name: anomalize
    > ### Title: Detect anomalies using the tidyverse
    > ### Aliases: anomalize
    >
    > ### ** Examples
    >
    >
    > library(dplyr)
    
    Attaching package: 'dplyr'
    
    The following objects are masked from 'package:stats':
    
     filter, lag
    
    The following objects are masked from 'package:base':
    
     intersect, setdiff, setequal, union
    
    >
    > # Needed to pass CRAN check / This is loaded by default
    > set_time_scale_template(time_scale_template())
    >
    > data(tidyverse_cran_downloads)
    >
    > tidyverse_cran_downloads %>%
    + time_decompose(count, method = "stl") %>%
    + anomalize(remainder, method = "iqr")
    Warning: Detecting old grouped_df format, replacing `vars` attribute by `groups`
    Warning: `cols` is now required.
    Please use `cols = c(nested.col)`
    Error in !.key : invalid argument type
    Calls: %>% ... <Anonymous> -> nest.grouped_df -> check_key -> is_missing
    Execution halted
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-patched-linux-x86_64, r-release-linux-x86_64

Version: 0.1.1
Check: tests
Result: ERROR
     Running 'testthat.R' [4s/5s]
    Running the tests in 'tests/testthat.R' failed.
    Complete output:
     > library(testthat)
     > library(anomalize)
     > library(dplyr)
    
     Attaching package: 'dplyr'
    
     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(ggplot2)
     > library(tibble)
     >
     > # set_time_scale_template(time_scale_template())
     >
     > test_check("anomalize")
     -- 1. Error: iqr_grouped_df works (@test-anomalize.R#32) ----------------------
     invalid argument type
     1: tidyverse_cran_downloads %>% dplyr::ungroup() %>% dplyr::filter(package %in% c("tidyquant",
     "tidytext")) %>% dplyr::group_by(package) %>% anomalize(count, method = "iqr") at testthat/test-anomalize.R:32
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: anomalize(., count, method = "iqr")
     10: anomalize.grouped_df(., count, method = "iqr")
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     -- 2. Error: gesd_grouped_df works (@test-anomalize.R#45) ---------------------
     invalid argument type
     1: tidyverse_cran_downloads %>% dplyr::ungroup() %>% dplyr::filter(package %in% c("tidyquant",
     "tidytext")) %>% dplyr::group_by(package) %>% anomalize(count, method = "gesd") at testthat/test-anomalize.R:45
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: anomalize(., count, method = "gesd")
     10: anomalize.grouped_df(., count, method = "gesd")
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     -- 3. Error: returns a ggplot (@test-plot_anomalies.R#8) ----------------------
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "stl") %>% anomalize(remainder,
     method = "iqr") %>% time_recompose() %>% plot_anomalies(time_recomposed = TRUE,
     ncol = 3) at testthat/test-plot_anomalies.R:8
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: function_list[[i]](value)
     8: time_decompose(., count, method = "stl")
     9: time_decompose.grouped_tbl_time(., count, method = "stl")
     10: data %>% grouped_mapper(.f = time_decompose, target = !!target_expr, method = method[[1]],
     frequency = frequency, trend = trend, ... = ..., merge = merge, message = message)
     ...
     22: eval(quote(`_fseq`(`_lhs`)), env, env)
     23: `_fseq`(`_lhs`)
     24: freduce(value, `_function_list`)
     25: function_list[[i]](value)
     26: tidyr::nest(.)
     27: nest.tbl_time(.)
     28: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     29: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     30: check_key(.key)
     31: is_missing(.key)
    
     -- 4. Error: grouped_tbl_time works (@test-time_apply.R#11) -------------------
     invalid argument type
     1: tidyverse_cran_downloads %>% time_apply(count, period = "1 week", .fun = mean, na.rm = TRUE) at testthat/test-time_apply.R:11
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_apply(., count, period = "1 week", .fun = mean, na.rm = TRUE)
     10: time_apply.grouped_df(., count, period = "1 week", .fun = mean, na.rm = TRUE)
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     -- 5. Error: grouped tbl_df (@test-time_decompose.R#26) -----------------------
     invalid argument type
     1: tidyverse_cran_downloads %>% as.tibble() %>% time_decompose(count, method = "stl",
     frequency = "auto", trend = "auto") at testthat/test-time_decompose.R:26
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, method = "stl", frequency = "auto", trend = "auto")
     10: time_decompose.grouped_df(., count, method = "stl", frequency = "auto", trend = "auto")
     ...
     25: eval(quote(`_fseq`(`_lhs`)), env, env)
     26: `_fseq`(`_lhs`)
     27: freduce(value, `_function_list`)
     28: function_list[[i]](value)
     29: tidyr::nest(.)
     30: nest.tbl_time(.)
     31: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     32: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     33: check_key(.key)
     34: is_missing(.key)
    
     -- 6. Error: method = stl, auto freq/trend (@test-time_decompose.R#36) --------
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "stl", frequency = "auto",
     trend = "auto") at testthat/test-time_decompose.R:36
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, method = "stl", frequency = "auto", trend = "auto")
     10: time_decompose.grouped_tbl_time(., count, method = "stl", frequency = "auto", trend = "auto")
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     -- 7. Error: method = stl, character freq/trend (@test-time_decompose.R#46) ---
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "stl", frequency = "1 month",
     trend = "3 months") at testthat/test-time_decompose.R:46
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, method = "stl", frequency = "1 month", trend = "3 months")
     10: time_decompose.grouped_tbl_time(., count, method = "stl", frequency = "1 month",
     trend = "3 months")
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     -- 8. Error: method = stl, numeric freq/trend (@test-time_decompose.R#56) -----
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "stl", frequency = 7,
     trend = 30) at testthat/test-time_decompose.R:56
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, method = "stl", frequency = 7, trend = 30)
     10: time_decompose.grouped_tbl_time(., count, method = "stl", frequency = 7, trend = 30)
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     -- 9. Error: method = twitter, auto freq/trend (@test-time_decompose.R#66) ----
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "twitter", frequency = "auto",
     trend = "auto") at testthat/test-time_decompose.R:66
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, method = "twitter", frequency = "auto", trend = "auto")
     10: time_decompose.grouped_tbl_time(., count, method = "twitter", frequency = "auto",
     trend = "auto")
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     -- 10. Error: method = twitter, character freq/trend (@test-time_decompose.R#76)
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "twitter", frequency = "1 week",
     trend = "1 month") at testthat/test-time_decompose.R:76
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, method = "twitter", frequency = "1 week", trend = "1 month")
     10: time_decompose.grouped_tbl_time(., count, method = "twitter", frequency = "1 week",
     trend = "1 month")
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     -- 11. Error: method = twitter, numeric freq/trend (@test-time_decompose.R#86)
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "twitter", frequency = 7,
     trend = 90) at testthat/test-time_decompose.R:86
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, method = "twitter", frequency = 7, trend = 90)
     10: time_decompose.grouped_tbl_time(., count, method = "twitter", frequency = 7, trend = 90)
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     -- 12. Error: grouped_df works (@test-time_decompose.R#126) -------------------
     invalid argument type
     1: tidyverse_cran_downloads %>% as.tibble() %>% time_decompose(count) at testthat/test-time_decompose.R:126
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count)
     10: time_decompose.grouped_df(., count)
     ...
     25: eval(quote(`_fseq`(`_lhs`)), env, env)
     26: `_fseq`(`_lhs`)
     27: freduce(value, `_function_list`)
     28: function_list[[i]](value)
     29: tidyr::nest(.)
     30: nest.tbl_time(.)
     31: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     32: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     33: check_key(.key)
     34: is_missing(.key)
    
     -- 13. Error: time_recompose works on grouped_tbl_time (@test-time_recompose.R#9
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "stl") %>% anomalize(remainder,
     method = "iqr") %>% time_recompose() at testthat/test-time_recompose.R:9
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: function_list[[i]](value)
     8: time_decompose(., count, method = "stl")
     9: time_decompose.grouped_tbl_time(., count, method = "stl")
     10: data %>% grouped_mapper(.f = time_decompose, target = !!target_expr, method = method[[1]],
     frequency = frequency, trend = trend, ... = ..., merge = merge, message = message)
     ...
     22: eval(quote(`_fseq`(`_lhs`)), env, env)
     23: `_fseq`(`_lhs`)
     24: freduce(value, `_function_list`)
     25: function_list[[i]](value)
     26: tidyr::nest(.)
     27: nest.tbl_time(.)
     28: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     29: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     30: check_key(.key)
     31: is_missing(.key)
    
     -- 14. Error: utils: time_decompose `merge = T` works (@test-utils.R#4) -------
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, merge = T) at testthat/test-utils.R:4
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, merge = T)
     10: time_decompose.grouped_tbl_time(., count, merge = T)
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     == testthat results ===========================================================
     [ OK: 33 | SKIPPED: 0 | WARNINGS: 1 | FAILED: 14 ]
     1. Error: iqr_grouped_df works (@test-anomalize.R#32)
     2. Error: gesd_grouped_df works (@test-anomalize.R#45)
     3. Error: returns a ggplot (@test-plot_anomalies.R#8)
     4. Error: grouped_tbl_time works (@test-time_apply.R#11)
     5. Error: grouped tbl_df (@test-time_decompose.R#26)
     6. Error: method = stl, auto freq/trend (@test-time_decompose.R#36)
     7. Error: method = stl, character freq/trend (@test-time_decompose.R#46)
     8. Error: method = stl, numeric freq/trend (@test-time_decompose.R#56)
     9. Error: method = twitter, auto freq/trend (@test-time_decompose.R#66)
     1. ...
    
     Error: testthat unit tests failed
     Execution halted
Flavor: r-devel-linux-x86_64-debian-clang

Version: 0.1.1
Check: re-building of vignette outputs
Result: WARN
    Error(s) in re-building vignettes:
     ...
    --- re-building 'anomalize_methods.Rmd' using rmarkdown
    Warning: Detecting old grouped_df format, replacing `vars` attribute by `groups`
    --- finished re-building 'anomalize_methods.Rmd'
    
    --- re-building 'anomalize_quick_start_guide.Rmd' using rmarkdown
    Warning: Detecting old grouped_df format, replacing `vars` attribute by `groups`
    Warning: Detecting old grouped_df format, replacing `vars` attribute by `groups`
    Quitting from lines 68-74 (anomalize_quick_start_guide.Rmd)
    Error: processing vignette 'anomalize_quick_start_guide.Rmd' failed with diagnostics:
    invalid argument type
    --- failed re-building 'anomalize_quick_start_guide.Rmd'
    
    SUMMARY: processing the following file failed:
     'anomalize_quick_start_guide.Rmd'
    
    Error: Vignette re-building failed.
    Execution halted
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-patched-linux-x86_64, r-release-linux-x86_64

Version: 0.1.1
Check: tests
Result: ERROR
     Running ‘testthat.R’ [3s/5s]
    Running the tests in ‘tests/testthat.R’ failed.
    Complete output:
     > library(testthat)
     > library(anomalize)
     > library(dplyr)
    
     Attaching package: 'dplyr'
    
     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(ggplot2)
     > library(tibble)
     >
     > # set_time_scale_template(time_scale_template())
     >
     > test_check("anomalize")
     ── 1. Error: iqr_grouped_df works (@test-anomalize.R#32) ──────────────────────
     invalid argument type
     1: tidyverse_cran_downloads %>% dplyr::ungroup() %>% dplyr::filter(package %in% c("tidyquant",
     "tidytext")) %>% dplyr::group_by(package) %>% anomalize(count, method = "iqr") at testthat/test-anomalize.R:32
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: anomalize(., count, method = "iqr")
     10: anomalize.grouped_df(., count, method = "iqr")
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     ── 2. Error: gesd_grouped_df works (@test-anomalize.R#45) ─────────────────────
     invalid argument type
     1: tidyverse_cran_downloads %>% dplyr::ungroup() %>% dplyr::filter(package %in% c("tidyquant",
     "tidytext")) %>% dplyr::group_by(package) %>% anomalize(count, method = "gesd") at testthat/test-anomalize.R:45
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: anomalize(., count, method = "gesd")
     10: anomalize.grouped_df(., count, method = "gesd")
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     ── 3. Error: returns a ggplot (@test-plot_anomalies.R#8) ──────────────────────
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "stl") %>% anomalize(remainder,
     method = "iqr") %>% time_recompose() %>% plot_anomalies(time_recomposed = TRUE,
     ncol = 3) at testthat/test-plot_anomalies.R:8
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: function_list[[i]](value)
     8: time_decompose(., count, method = "stl")
     9: time_decompose.grouped_tbl_time(., count, method = "stl")
     10: data %>% grouped_mapper(.f = time_decompose, target = !!target_expr, method = method[[1]],
     frequency = frequency, trend = trend, ... = ..., merge = merge, message = message)
     ...
     22: eval(quote(`_fseq`(`_lhs`)), env, env)
     23: `_fseq`(`_lhs`)
     24: freduce(value, `_function_list`)
     25: function_list[[i]](value)
     26: tidyr::nest(.)
     27: nest.tbl_time(.)
     28: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     29: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     30: check_key(.key)
     31: is_missing(.key)
    
     ── 4. Error: grouped_tbl_time works (@test-time_apply.R#11) ───────────────────
     invalid argument type
     1: tidyverse_cran_downloads %>% time_apply(count, period = "1 week", .fun = mean, na.rm = TRUE) at testthat/test-time_apply.R:11
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_apply(., count, period = "1 week", .fun = mean, na.rm = TRUE)
     10: time_apply.grouped_df(., count, period = "1 week", .fun = mean, na.rm = TRUE)
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     ── 5. Error: grouped tbl_df (@test-time_decompose.R#26) ───────────────────────
     invalid argument type
     1: tidyverse_cran_downloads %>% as.tibble() %>% time_decompose(count, method = "stl",
     frequency = "auto", trend = "auto") at testthat/test-time_decompose.R:26
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, method = "stl", frequency = "auto", trend = "auto")
     10: time_decompose.grouped_df(., count, method = "stl", frequency = "auto", trend = "auto")
     ...
     25: eval(quote(`_fseq`(`_lhs`)), env, env)
     26: `_fseq`(`_lhs`)
     27: freduce(value, `_function_list`)
     28: function_list[[i]](value)
     29: tidyr::nest(.)
     30: nest.tbl_time(.)
     31: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     32: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     33: check_key(.key)
     34: is_missing(.key)
    
     ── 6. Error: method = stl, auto freq/trend (@test-time_decompose.R#36) ────────
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "stl", frequency = "auto",
     trend = "auto") at testthat/test-time_decompose.R:36
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, method = "stl", frequency = "auto", trend = "auto")
     10: time_decompose.grouped_tbl_time(., count, method = "stl", frequency = "auto", trend = "auto")
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     ── 7. Error: method = stl, character freq/trend (@test-time_decompose.R#46) ───
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "stl", frequency = "1 month",
     trend = "3 months") at testthat/test-time_decompose.R:46
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, method = "stl", frequency = "1 month", trend = "3 months")
     10: time_decompose.grouped_tbl_time(., count, method = "stl", frequency = "1 month",
     trend = "3 months")
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     ── 8. Error: method = stl, numeric freq/trend (@test-time_decompose.R#56) ─────
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "stl", frequency = 7,
     trend = 30) at testthat/test-time_decompose.R:56
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, method = "stl", frequency = 7, trend = 30)
     10: time_decompose.grouped_tbl_time(., count, method = "stl", frequency = 7, trend = 30)
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     ── 9. Error: method = twitter, auto freq/trend (@test-time_decompose.R#66) ────
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "twitter", frequency = "auto",
     trend = "auto") at testthat/test-time_decompose.R:66
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, method = "twitter", frequency = "auto", trend = "auto")
     10: time_decompose.grouped_tbl_time(., count, method = "twitter", frequency = "auto",
     trend = "auto")
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     ── 10. Error: method = twitter, character freq/trend (@test-time_decompose.R#76)
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "twitter", frequency = "1 week",
     trend = "1 month") at testthat/test-time_decompose.R:76
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, method = "twitter", frequency = "1 week", trend = "1 month")
     10: time_decompose.grouped_tbl_time(., count, method = "twitter", frequency = "1 week",
     trend = "1 month")
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     ── 11. Error: method = twitter, numeric freq/trend (@test-time_decompose.R#86)
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "twitter", frequency = 7,
     trend = 90) at testthat/test-time_decompose.R:86
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, method = "twitter", frequency = 7, trend = 90)
     10: time_decompose.grouped_tbl_time(., count, method = "twitter", frequency = 7, trend = 90)
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     ── 12. Error: grouped_df works (@test-time_decompose.R#126) ───────────────────
     invalid argument type
     1: tidyverse_cran_downloads %>% as.tibble() %>% time_decompose(count) at testthat/test-time_decompose.R:126
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count)
     10: time_decompose.grouped_df(., count)
     ...
     25: eval(quote(`_fseq`(`_lhs`)), env, env)
     26: `_fseq`(`_lhs`)
     27: freduce(value, `_function_list`)
     28: function_list[[i]](value)
     29: tidyr::nest(.)
     30: nest.tbl_time(.)
     31: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     32: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     33: check_key(.key)
     34: is_missing(.key)
    
     ── 13. Error: time_recompose works on grouped_tbl_time (@test-time_recompose.R#9
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "stl") %>% anomalize(remainder,
     method = "iqr") %>% time_recompose() at testthat/test-time_recompose.R:9
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: function_list[[i]](value)
     8: time_decompose(., count, method = "stl")
     9: time_decompose.grouped_tbl_time(., count, method = "stl")
     10: data %>% grouped_mapper(.f = time_decompose, target = !!target_expr, method = method[[1]],
     frequency = frequency, trend = trend, ... = ..., merge = merge, message = message)
     ...
     22: eval(quote(`_fseq`(`_lhs`)), env, env)
     23: `_fseq`(`_lhs`)
     24: freduce(value, `_function_list`)
     25: function_list[[i]](value)
     26: tidyr::nest(.)
     27: nest.tbl_time(.)
     28: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     29: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     30: check_key(.key)
     31: is_missing(.key)
    
     ── 14. Error: utils: time_decompose `merge = T` works (@test-utils.R#4) ───────
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, merge = T) at testthat/test-utils.R:4
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, merge = T)
     10: time_decompose.grouped_tbl_time(., count, merge = T)
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     ══ testthat results ═══════════════════════════════════════════════════════════
     [ OK: 33 | SKIPPED: 0 | WARNINGS: 1 | FAILED: 14 ]
     1. Error: iqr_grouped_df works (@test-anomalize.R#32)
     2. Error: gesd_grouped_df works (@test-anomalize.R#45)
     3. Error: returns a ggplot (@test-plot_anomalies.R#8)
     4. Error: grouped_tbl_time works (@test-time_apply.R#11)
     5. Error: grouped tbl_df (@test-time_decompose.R#26)
     6. Error: method = stl, auto freq/trend (@test-time_decompose.R#36)
     7. Error: method = stl, character freq/trend (@test-time_decompose.R#46)
     8. Error: method = stl, numeric freq/trend (@test-time_decompose.R#56)
     9. Error: method = twitter, auto freq/trend (@test-time_decompose.R#66)
     1. ...
    
     Error: testthat unit tests failed
     Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc

Version: 0.1.1
Check: installed package size
Result: NOTE
     installed size is 5.4Mb
     sub-directories of 1Mb or more:
     help 4.7Mb
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-windows-ix86+x86_64, r-patched-solaris-x86, r-release-windows-ix86+x86_64, r-release-osx-x86_64, r-oldrel-windows-ix86+x86_64, r-oldrel-osx-x86_64

Version: 0.1.1
Check: examples
Result: ERROR
    Running examples in ‘anomalize-Ex.R’ failed
    The error most likely occurred in:
    
    > ### Name: anomalize
    > ### Title: Detect anomalies using the tidyverse
    > ### Aliases: anomalize
    >
    > ### ** Examples
    >
    >
    > library(dplyr)
    
    Attaching package: ‘dplyr’
    
    The following objects are masked from ‘package:stats’:
    
     filter, lag
    
    The following objects are masked from ‘package:base’:
    
     intersect, setdiff, setequal, union
    
    >
    > # Needed to pass CRAN check / This is loaded by default
    > set_time_scale_template(time_scale_template())
    >
    > data(tidyverse_cran_downloads)
    >
    > tidyverse_cran_downloads %>%
    + time_decompose(count, method = "stl") %>%
    + anomalize(remainder, method = "iqr")
    Warning: Detecting old grouped_df format, replacing `vars` attribute by `groups`
    Warning: `cols` is now required.
    Please use `cols = c(nested.col)`
    Error in !.key : invalid argument type
    Calls: %>% ... <Anonymous> -> nest.grouped_df -> check_key -> is_missing
    Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-devel-windows-ix86+x86_64, r-patched-solaris-x86, r-release-windows-ix86+x86_64, r-oldrel-windows-ix86+x86_64

Version: 0.1.1
Check: tests
Result: ERROR
     Running ‘testthat.R’
    Running the tests in ‘tests/testthat.R’ failed.
    Complete output:
     > library(testthat)
     > library(anomalize)
     > library(dplyr)
    
     Attaching package: 'dplyr'
    
     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(ggplot2)
     > library(tibble)
     >
     > # set_time_scale_template(time_scale_template())
     >
     > test_check("anomalize")
     ── 1. Error: iqr_grouped_df works (@test-anomalize.R#32) ──────────────────────
     invalid argument type
     1: tidyverse_cran_downloads %>% dplyr::ungroup() %>% dplyr::filter(package %in% c("tidyquant",
     "tidytext")) %>% dplyr::group_by(package) %>% anomalize(count, method = "iqr") at testthat/test-anomalize.R:32
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: anomalize(., count, method = "iqr")
     10: anomalize.grouped_df(., count, method = "iqr")
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     ── 2. Error: gesd_grouped_df works (@test-anomalize.R#45) ─────────────────────
     invalid argument type
     1: tidyverse_cran_downloads %>% dplyr::ungroup() %>% dplyr::filter(package %in% c("tidyquant",
     "tidytext")) %>% dplyr::group_by(package) %>% anomalize(count, method = "gesd") at testthat/test-anomalize.R:45
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: anomalize(., count, method = "gesd")
     10: anomalize.grouped_df(., count, method = "gesd")
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     ── 3. Error: returns a ggplot (@test-plot_anomalies.R#8) ──────────────────────
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "stl") %>% anomalize(remainder,
     method = "iqr") %>% time_recompose() %>% plot_anomalies(time_recomposed = TRUE,
     ncol = 3) at testthat/test-plot_anomalies.R:8
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: function_list[[i]](value)
     8: time_decompose(., count, method = "stl")
     9: time_decompose.grouped_tbl_time(., count, method = "stl")
     10: data %>% grouped_mapper(.f = time_decompose, target = !!target_expr, method = method[[1]],
     frequency = frequency, trend = trend, ... = ..., merge = merge, message = message)
     ...
     22: eval(quote(`_fseq`(`_lhs`)), env, env)
     23: `_fseq`(`_lhs`)
     24: freduce(value, `_function_list`)
     25: function_list[[i]](value)
     26: tidyr::nest(.)
     27: nest.tbl_time(.)
     28: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     29: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     30: check_key(.key)
     31: is_missing(.key)
    
     ── 4. Error: grouped_tbl_time works (@test-time_apply.R#11) ───────────────────
     invalid argument type
     1: tidyverse_cran_downloads %>% time_apply(count, period = "1 week", .fun = mean, na.rm = TRUE) at testthat/test-time_apply.R:11
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_apply(., count, period = "1 week", .fun = mean, na.rm = TRUE)
     10: time_apply.grouped_df(., count, period = "1 week", .fun = mean, na.rm = TRUE)
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     ── 5. Error: grouped tbl_df (@test-time_decompose.R#26) ───────────────────────
     invalid argument type
     1: tidyverse_cran_downloads %>% as.tibble() %>% time_decompose(count, method = "stl",
     frequency = "auto", trend = "auto") at testthat/test-time_decompose.R:26
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, method = "stl", frequency = "auto", trend = "auto")
     10: time_decompose.grouped_df(., count, method = "stl", frequency = "auto", trend = "auto")
     ...
     25: eval(quote(`_fseq`(`_lhs`)), env, env)
     26: `_fseq`(`_lhs`)
     27: freduce(value, `_function_list`)
     28: function_list[[i]](value)
     29: tidyr::nest(.)
     30: nest.tbl_time(.)
     31: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     32: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     33: check_key(.key)
     34: is_missing(.key)
    
     ── 6. Error: method = stl, auto freq/trend (@test-time_decompose.R#36) ────────
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "stl", frequency = "auto",
     trend = "auto") at testthat/test-time_decompose.R:36
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, method = "stl", frequency = "auto", trend = "auto")
     10: time_decompose.grouped_tbl_time(., count, method = "stl", frequency = "auto", trend = "auto")
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     ── 7. Error: method = stl, character freq/trend (@test-time_decompose.R#46) ───
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "stl", frequency = "1 month",
     trend = "3 months") at testthat/test-time_decompose.R:46
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, method = "stl", frequency = "1 month", trend = "3 months")
     10: time_decompose.grouped_tbl_time(., count, method = "stl", frequency = "1 month",
     trend = "3 months")
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     ── 8. Error: method = stl, numeric freq/trend (@test-time_decompose.R#56) ─────
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "stl", frequency = 7,
     trend = 30) at testthat/test-time_decompose.R:56
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, method = "stl", frequency = 7, trend = 30)
     10: time_decompose.grouped_tbl_time(., count, method = "stl", frequency = 7, trend = 30)
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     ── 9. Error: method = twitter, auto freq/trend (@test-time_decompose.R#66) ────
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "twitter", frequency = "auto",
     trend = "auto") at testthat/test-time_decompose.R:66
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, method = "twitter", frequency = "auto", trend = "auto")
     10: time_decompose.grouped_tbl_time(., count, method = "twitter", frequency = "auto",
     trend = "auto")
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     ── 10. Error: method = twitter, character freq/trend (@test-time_decompose.R#76)
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "twitter", frequency = "1 week",
     trend = "1 month") at testthat/test-time_decompose.R:76
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, method = "twitter", frequency = "1 week", trend = "1 month")
     10: time_decompose.grouped_tbl_time(., count, method = "twitter", frequency = "1 week",
     trend = "1 month")
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     ── 11. Error: method = twitter, numeric freq/trend (@test-time_decompose.R#86)
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "twitter", frequency = 7,
     trend = 90) at testthat/test-time_decompose.R:86
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, method = "twitter", frequency = 7, trend = 90)
     10: time_decompose.grouped_tbl_time(., count, method = "twitter", frequency = 7, trend = 90)
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     ── 12. Error: grouped_df works (@test-time_decompose.R#126) ───────────────────
     invalid argument type
     1: tidyverse_cran_downloads %>% as.tibble() %>% time_decompose(count) at testthat/test-time_decompose.R:126
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count)
     10: time_decompose.grouped_df(., count)
     ...
     25: eval(quote(`_fseq`(`_lhs`)), env, env)
     26: `_fseq`(`_lhs`)
     27: freduce(value, `_function_list`)
     28: function_list[[i]](value)
     29: tidyr::nest(.)
     30: nest.tbl_time(.)
     31: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     32: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     33: check_key(.key)
     34: is_missing(.key)
    
     ── 13. Error: time_recompose works on grouped_tbl_time (@test-time_recompose.R#9
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "stl") %>% anomalize(remainder,
     method = "iqr") %>% time_recompose() at testthat/test-time_recompose.R:9
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: function_list[[i]](value)
     8: time_decompose(., count, method = "stl")
     9: time_decompose.grouped_tbl_time(., count, method = "stl")
     10: data %>% grouped_mapper(.f = time_decompose, target = !!target_expr, method = method[[1]],
     frequency = frequency, trend = trend, ... = ..., merge = merge, message = message)
     ...
     22: eval(quote(`_fseq`(`_lhs`)), env, env)
     23: `_fseq`(`_lhs`)
     24: freduce(value, `_function_list`)
     25: function_list[[i]](value)
     26: tidyr::nest(.)
     27: nest.tbl_time(.)
     28: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     29: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     30: check_key(.key)
     31: is_missing(.key)
    
     ── 14. Error: utils: time_decompose `merge = T` works (@test-utils.R#4) ───────
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, merge = T) at testthat/test-utils.R:4
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, merge = T)
     10: time_decompose.grouped_tbl_time(., count, merge = T)
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     ══ testthat results ═══════════════════════════════════════════════════════════
     [ OK: 33 | SKIPPED: 0 | WARNINGS: 1 | FAILED: 14 ]
     1. Error: iqr_grouped_df works (@test-anomalize.R#32)
     2. Error: gesd_grouped_df works (@test-anomalize.R#45)
     3. Error: returns a ggplot (@test-plot_anomalies.R#8)
     4. Error: grouped_tbl_time works (@test-time_apply.R#11)
     5. Error: grouped tbl_df (@test-time_decompose.R#26)
     6. Error: method = stl, auto freq/trend (@test-time_decompose.R#36)
     7. Error: method = stl, character freq/trend (@test-time_decompose.R#46)
     8. Error: method = stl, numeric freq/trend (@test-time_decompose.R#56)
     9. Error: method = twitter, auto freq/trend (@test-time_decompose.R#66)
     1. ...
    
     Error: testthat unit tests failed
     Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-patched-solaris-x86

Version: 0.1.1
Check: re-building of vignette outputs
Result: WARN
    Error(s) in re-building vignettes:
    --- re-building ‘anomalize_methods.Rmd’ using rmarkdown
    Warning: Detecting old grouped_df format, replacing `vars` attribute by `groups`
    --- finished re-building ‘anomalize_methods.Rmd’
    
    --- re-building ‘anomalize_quick_start_guide.Rmd’ using rmarkdown
    Warning: Detecting old grouped_df format, replacing `vars` attribute by `groups`
    Warning: Detecting old grouped_df format, replacing `vars` attribute by `groups`
    Quitting from lines 68-74 (anomalize_quick_start_guide.Rmd)
    Error: processing vignette 'anomalize_quick_start_guide.Rmd' failed with diagnostics:
    invalid argument type
    --- failed re-building ‘anomalize_quick_start_guide.Rmd’
    
    SUMMARY: processing the following file failed:
     ‘anomalize_quick_start_guide.Rmd’
    
    Error: Vignette re-building failed.
    Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-devel-windows-ix86+x86_64, r-release-windows-ix86+x86_64

Version: 0.1.1
Check: tests
Result: ERROR
     Running 'testthat.R' [4s]
    Running the tests in 'tests/testthat.R' failed.
    Complete output:
     > library(testthat)
     > library(anomalize)
     > library(dplyr)
    
     Attaching package: 'dplyr'
    
     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(ggplot2)
     > library(tibble)
     >
     > # set_time_scale_template(time_scale_template())
     >
     > test_check("anomalize")
     -- 1. Error: iqr_grouped_df works (@test-anomalize.R#32) ----------------------
     invalid argument type
     1: tidyverse_cran_downloads %>% dplyr::ungroup() %>% dplyr::filter(package %in% c("tidyquant",
     "tidytext")) %>% dplyr::group_by(package) %>% anomalize(count, method = "iqr") at testthat/test-anomalize.R:32
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: anomalize(., count, method = "iqr")
     10: anomalize.grouped_df(., count, method = "iqr")
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     -- 2. Error: gesd_grouped_df works (@test-anomalize.R#45) ---------------------
     invalid argument type
     1: tidyverse_cran_downloads %>% dplyr::ungroup() %>% dplyr::filter(package %in% c("tidyquant",
     "tidytext")) %>% dplyr::group_by(package) %>% anomalize(count, method = "gesd") at testthat/test-anomalize.R:45
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: anomalize(., count, method = "gesd")
     10: anomalize.grouped_df(., count, method = "gesd")
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     -- 3. Error: returns a ggplot (@test-plot_anomalies.R#8) ----------------------
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "stl") %>% anomalize(remainder,
     method = "iqr") %>% time_recompose() %>% plot_anomalies(time_recomposed = TRUE,
     ncol = 3) at testthat/test-plot_anomalies.R:8
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: function_list[[i]](value)
     8: time_decompose(., count, method = "stl")
     9: time_decompose.grouped_tbl_time(., count, method = "stl")
     10: data %>% grouped_mapper(.f = time_decompose, target = !!target_expr, method = method[[1]],
     frequency = frequency, trend = trend, ... = ..., merge = merge, message = message)
     ...
     22: eval(quote(`_fseq`(`_lhs`)), env, env)
     23: `_fseq`(`_lhs`)
     24: freduce(value, `_function_list`)
     25: function_list[[i]](value)
     26: tidyr::nest(.)
     27: nest.tbl_time(.)
     28: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     29: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     30: check_key(.key)
     31: is_missing(.key)
    
     -- 4. Error: grouped_tbl_time works (@test-time_apply.R#11) -------------------
     invalid argument type
     1: tidyverse_cran_downloads %>% time_apply(count, period = "1 week", .fun = mean, na.rm = TRUE) at testthat/test-time_apply.R:11
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_apply(., count, period = "1 week", .fun = mean, na.rm = TRUE)
     10: time_apply.grouped_df(., count, period = "1 week", .fun = mean, na.rm = TRUE)
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     -- 5. Error: grouped tbl_df (@test-time_decompose.R#26) -----------------------
     invalid argument type
     1: tidyverse_cran_downloads %>% as.tibble() %>% time_decompose(count, method = "stl",
     frequency = "auto", trend = "auto") at testthat/test-time_decompose.R:26
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, method = "stl", frequency = "auto", trend = "auto")
     10: time_decompose.grouped_df(., count, method = "stl", frequency = "auto", trend = "auto")
     ...
     25: eval(quote(`_fseq`(`_lhs`)), env, env)
     26: `_fseq`(`_lhs`)
     27: freduce(value, `_function_list`)
     28: function_list[[i]](value)
     29: tidyr::nest(.)
     30: nest.tbl_time(.)
     31: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     32: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     33: check_key(.key)
     34: is_missing(.key)
    
     -- 6. Error: method = stl, auto freq/trend (@test-time_decompose.R#36) --------
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "stl", frequency = "auto",
     trend = "auto") at testthat/test-time_decompose.R:36
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, method = "stl", frequency = "auto", trend = "auto")
     10: time_decompose.grouped_tbl_time(., count, method = "stl", frequency = "auto", trend = "auto")
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     -- 7. Error: method = stl, character freq/trend (@test-time_decompose.R#46) ---
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "stl", frequency = "1 month",
     trend = "3 months") at testthat/test-time_decompose.R:46
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, method = "stl", frequency = "1 month", trend = "3 months")
     10: time_decompose.grouped_tbl_time(., count, method = "stl", frequency = "1 month",
     trend = "3 months")
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     -- 8. Error: method = stl, numeric freq/trend (@test-time_decompose.R#56) -----
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "stl", frequency = 7,
     trend = 30) at testthat/test-time_decompose.R:56
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, method = "stl", frequency = 7, trend = 30)
     10: time_decompose.grouped_tbl_time(., count, method = "stl", frequency = 7, trend = 30)
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     -- 9. Error: method = twitter, auto freq/trend (@test-time_decompose.R#66) ----
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "twitter", frequency = "auto",
     trend = "auto") at testthat/test-time_decompose.R:66
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, method = "twitter", frequency = "auto", trend = "auto")
     10: time_decompose.grouped_tbl_time(., count, method = "twitter", frequency = "auto",
     trend = "auto")
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     -- 10. Error: method = twitter, character freq/trend (@test-time_decompose.R#76)
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "twitter", frequency = "1 week",
     trend = "1 month") at testthat/test-time_decompose.R:76
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, method = "twitter", frequency = "1 week", trend = "1 month")
     10: time_decompose.grouped_tbl_time(., count, method = "twitter", frequency = "1 week",
     trend = "1 month")
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     -- 11. Error: method = twitter, numeric freq/trend (@test-time_decompose.R#86)
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "twitter", frequency = 7,
     trend = 90) at testthat/test-time_decompose.R:86
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, method = "twitter", frequency = 7, trend = 90)
     10: time_decompose.grouped_tbl_time(., count, method = "twitter", frequency = 7, trend = 90)
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     -- 12. Error: grouped_df works (@test-time_decompose.R#126) -------------------
     invalid argument type
     1: tidyverse_cran_downloads %>% as.tibble() %>% time_decompose(count) at testthat/test-time_decompose.R:126
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count)
     10: time_decompose.grouped_df(., count)
     ...
     25: eval(quote(`_fseq`(`_lhs`)), env, env)
     26: `_fseq`(`_lhs`)
     27: freduce(value, `_function_list`)
     28: function_list[[i]](value)
     29: tidyr::nest(.)
     30: nest.tbl_time(.)
     31: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     32: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     33: check_key(.key)
     34: is_missing(.key)
    
     -- 13. Error: time_recompose works on grouped_tbl_time (@test-time_recompose.R#9
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "stl") %>% anomalize(remainder,
     method = "iqr") %>% time_recompose() at testthat/test-time_recompose.R:9
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: function_list[[i]](value)
     8: time_decompose(., count, method = "stl")
     9: time_decompose.grouped_tbl_time(., count, method = "stl")
     10: data %>% grouped_mapper(.f = time_decompose, target = !!target_expr, method = method[[1]],
     frequency = frequency, trend = trend, ... = ..., merge = merge, message = message)
     ...
     22: eval(quote(`_fseq`(`_lhs`)), env, env)
     23: `_fseq`(`_lhs`)
     24: freduce(value, `_function_list`)
     25: function_list[[i]](value)
     26: tidyr::nest(.)
     27: nest.tbl_time(.)
     28: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     29: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     30: check_key(.key)
     31: is_missing(.key)
    
     -- 14. Error: utils: time_decompose `merge = T` works (@test-utils.R#4) -------
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, merge = T) at testthat/test-utils.R:4
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, merge = T)
     10: time_decompose.grouped_tbl_time(., count, merge = T)
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     == testthat results ===========================================================
     [ OK: 33 | SKIPPED: 0 | WARNINGS: 1 | FAILED: 14 ]
     1. Error: iqr_grouped_df works (@test-anomalize.R#32)
     2. Error: gesd_grouped_df works (@test-anomalize.R#45)
     3. Error: returns a ggplot (@test-plot_anomalies.R#8)
     4. Error: grouped_tbl_time works (@test-time_apply.R#11)
     5. Error: grouped tbl_df (@test-time_decompose.R#26)
     6. Error: method = stl, auto freq/trend (@test-time_decompose.R#36)
     7. Error: method = stl, character freq/trend (@test-time_decompose.R#46)
     8. Error: method = stl, numeric freq/trend (@test-time_decompose.R#56)
     9. Error: method = twitter, auto freq/trend (@test-time_decompose.R#66)
     1. ...
    
     Error: testthat unit tests failed
     Execution halted
Flavors: r-devel-windows-ix86+x86_64, r-release-windows-ix86+x86_64

Version: 0.1.1
Check: tests
Result: ERROR
     Running ‘testthat.R’ [4s/4s]
    Running the tests in ‘tests/testthat.R’ failed.
    Complete output:
     > library(testthat)
     > library(anomalize)
     > library(dplyr)
    
     Attaching package: 'dplyr'
    
     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(ggplot2)
     > library(tibble)
     >
     > # set_time_scale_template(time_scale_template())
     >
     > test_check("anomalize")
     ── 1. Error: iqr_grouped_df works (@test-anomalize.R#32) ──────────────────────
     invalid argument type
     1: tidyverse_cran_downloads %>% dplyr::ungroup() %>% dplyr::filter(package %in% c("tidyquant",
     "tidytext")) %>% dplyr::group_by(package) %>% anomalize(count, method = "iqr") at testthat/test-anomalize.R:32
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: anomalize(., count, method = "iqr")
     10: anomalize.grouped_df(., count, method = "iqr")
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     ── 2. Error: gesd_grouped_df works (@test-anomalize.R#45) ─────────────────────
     invalid argument type
     1: tidyverse_cran_downloads %>% dplyr::ungroup() %>% dplyr::filter(package %in% c("tidyquant",
     "tidytext")) %>% dplyr::group_by(package) %>% anomalize(count, method = "gesd") at testthat/test-anomalize.R:45
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: anomalize(., count, method = "gesd")
     10: anomalize.grouped_df(., count, method = "gesd")
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     ── 3. Error: returns a ggplot (@test-plot_anomalies.R#8) ──────────────────────
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "stl") %>% anomalize(remainder,
     method = "iqr") %>% time_recompose() %>% plot_anomalies(time_recomposed = TRUE,
     ncol = 3) at testthat/test-plot_anomalies.R:8
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: function_list[[i]](value)
     8: time_decompose(., count, method = "stl")
     9: time_decompose.grouped_tbl_time(., count, method = "stl")
     10: data %>% grouped_mapper(.f = time_decompose, target = !!target_expr, method = method[[1]],
     frequency = frequency, trend = trend, ... = ..., merge = merge, message = message)
     ...
     22: eval(quote(`_fseq`(`_lhs`)), env, env)
     23: `_fseq`(`_lhs`)
     24: freduce(value, `_function_list`)
     25: function_list[[i]](value)
     26: tidyr::nest(.)
     27: nest.tbl_time(.)
     28: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     29: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     30: check_key(.key)
     31: is_missing(.key)
    
     ── 4. Error: grouped_tbl_time works (@test-time_apply.R#11) ───────────────────
     invalid argument type
     1: tidyverse_cran_downloads %>% time_apply(count, period = "1 week", .fun = mean, na.rm = TRUE) at testthat/test-time_apply.R:11
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_apply(., count, period = "1 week", .fun = mean, na.rm = TRUE)
     10: time_apply.grouped_df(., count, period = "1 week", .fun = mean, na.rm = TRUE)
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     ── 5. Error: grouped tbl_df (@test-time_decompose.R#26) ───────────────────────
     invalid argument type
     1: tidyverse_cran_downloads %>% as.tibble() %>% time_decompose(count, method = "stl",
     frequency = "auto", trend = "auto") at testthat/test-time_decompose.R:26
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, method = "stl", frequency = "auto", trend = "auto")
     10: time_decompose.grouped_df(., count, method = "stl", frequency = "auto", trend = "auto")
     ...
     25: eval(quote(`_fseq`(`_lhs`)), env, env)
     26: `_fseq`(`_lhs`)
     27: freduce(value, `_function_list`)
     28: function_list[[i]](value)
     29: tidyr::nest(.)
     30: nest.tbl_time(.)
     31: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     32: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     33: check_key(.key)
     34: is_missing(.key)
    
     ── 6. Error: method = stl, auto freq/trend (@test-time_decompose.R#36) ────────
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "stl", frequency = "auto",
     trend = "auto") at testthat/test-time_decompose.R:36
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, method = "stl", frequency = "auto", trend = "auto")
     10: time_decompose.grouped_tbl_time(., count, method = "stl", frequency = "auto", trend = "auto")
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     ── 7. Error: method = stl, character freq/trend (@test-time_decompose.R#46) ───
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "stl", frequency = "1 month",
     trend = "3 months") at testthat/test-time_decompose.R:46
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, method = "stl", frequency = "1 month", trend = "3 months")
     10: time_decompose.grouped_tbl_time(., count, method = "stl", frequency = "1 month",
     trend = "3 months")
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     ── 8. Error: method = stl, numeric freq/trend (@test-time_decompose.R#56) ─────
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "stl", frequency = 7,
     trend = 30) at testthat/test-time_decompose.R:56
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, method = "stl", frequency = 7, trend = 30)
     10: time_decompose.grouped_tbl_time(., count, method = "stl", frequency = 7, trend = 30)
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     ── 9. Error: method = twitter, auto freq/trend (@test-time_decompose.R#66) ────
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "twitter", frequency = "auto",
     trend = "auto") at testthat/test-time_decompose.R:66
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, method = "twitter", frequency = "auto", trend = "auto")
     10: time_decompose.grouped_tbl_time(., count, method = "twitter", frequency = "auto",
     trend = "auto")
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     ── 10. Error: method = twitter, character freq/trend (@test-time_decompose.R#76)
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "twitter", frequency = "1 week",
     trend = "1 month") at testthat/test-time_decompose.R:76
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, method = "twitter", frequency = "1 week", trend = "1 month")
     10: time_decompose.grouped_tbl_time(., count, method = "twitter", frequency = "1 week",
     trend = "1 month")
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     ── 11. Error: method = twitter, numeric freq/trend (@test-time_decompose.R#86)
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "twitter", frequency = 7,
     trend = 90) at testthat/test-time_decompose.R:86
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, method = "twitter", frequency = 7, trend = 90)
     10: time_decompose.grouped_tbl_time(., count, method = "twitter", frequency = 7, trend = 90)
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     ── 12. Error: grouped_df works (@test-time_decompose.R#126) ───────────────────
     invalid argument type
     1: tidyverse_cran_downloads %>% as.tibble() %>% time_decompose(count) at testthat/test-time_decompose.R:126
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count)
     10: time_decompose.grouped_df(., count)
     ...
     25: eval(quote(`_fseq`(`_lhs`)), env, env)
     26: `_fseq`(`_lhs`)
     27: freduce(value, `_function_list`)
     28: function_list[[i]](value)
     29: tidyr::nest(.)
     30: nest.tbl_time(.)
     31: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     32: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     33: check_key(.key)
     34: is_missing(.key)
    
     ── 13. Error: time_recompose works on grouped_tbl_time (@test-time_recompose.R#9
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "stl") %>% anomalize(remainder,
     method = "iqr") %>% time_recompose() at testthat/test-time_recompose.R:9
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: function_list[[i]](value)
     8: time_decompose(., count, method = "stl")
     9: time_decompose.grouped_tbl_time(., count, method = "stl")
     10: data %>% grouped_mapper(.f = time_decompose, target = !!target_expr, method = method[[1]],
     frequency = frequency, trend = trend, ... = ..., merge = merge, message = message)
     ...
     22: eval(quote(`_fseq`(`_lhs`)), env, env)
     23: `_fseq`(`_lhs`)
     24: freduce(value, `_function_list`)
     25: function_list[[i]](value)
     26: tidyr::nest(.)
     27: nest.tbl_time(.)
     28: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     29: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     30: check_key(.key)
     31: is_missing(.key)
    
     ── 14. Error: utils: time_decompose `merge = T` works (@test-utils.R#4) ───────
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, merge = T) at testthat/test-utils.R:4
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, merge = T)
     10: time_decompose.grouped_tbl_time(., count, merge = T)
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     ══ testthat results ═══════════════════════════════════════════════════════════
     [ OK: 33 | SKIPPED: 0 | WARNINGS: 1 | FAILED: 14 ]
     1. Error: iqr_grouped_df works (@test-anomalize.R#32)
     2. Error: gesd_grouped_df works (@test-anomalize.R#45)
     3. Error: returns a ggplot (@test-plot_anomalies.R#8)
     4. Error: grouped_tbl_time works (@test-time_apply.R#11)
     5. Error: grouped tbl_df (@test-time_decompose.R#26)
     6. Error: method = stl, auto freq/trend (@test-time_decompose.R#36)
     7. Error: method = stl, character freq/trend (@test-time_decompose.R#46)
     8. Error: method = stl, numeric freq/trend (@test-time_decompose.R#56)
     9. Error: method = twitter, auto freq/trend (@test-time_decompose.R#66)
     1. ...
    
     Error: testthat unit tests failed
     Execution halted
Flavors: r-patched-linux-x86_64, r-release-linux-x86_64

Version: 0.1.1
Check: re-building of vignette outputs
Result: WARN
    Error(s) in re-building vignettes:
     ...
    --- re-building ‘anomalize_methods.Rmd’ using rmarkdown
    Warning in engine$weave(file, quiet = quiet, encoding = enc) :
     Pandoc (>= 1.12.3) and/or pandoc-citeproc not available. Falling back to R Markdown v1.
    Warning: Detecting old grouped_df format, replacing `vars` attribute by `groups`
    --- finished re-building ‘anomalize_methods.Rmd’
    
    --- re-building ‘anomalize_quick_start_guide.Rmd’ using rmarkdown
    Warning in engine$weave(file, quiet = quiet, encoding = enc) :
     Pandoc (>= 1.12.3) and/or pandoc-citeproc not available. Falling back to R Markdown v1.
    Warning: Detecting old grouped_df format, replacing `vars` attribute by `groups`
    Warning: Detecting old grouped_df format, replacing `vars` attribute by `groups`
    Quitting from lines 68-74 (anomalize_quick_start_guide.Rmd)
    Error: processing vignette 'anomalize_quick_start_guide.Rmd' failed with diagnostics:
    invalid argument type
    --- failed re-building ‘anomalize_quick_start_guide.Rmd’
    
    SUMMARY: processing the following file failed:
     ‘anomalize_quick_start_guide.Rmd’
    
    Error: Vignette re-building failed.
    Execution halted
Flavor: r-patched-solaris-x86

Version: 0.1.1
Check: tests
Result: ERROR
     Running 'testthat.R' [5s]
    Running the tests in 'tests/testthat.R' failed.
    Complete output:
     > library(testthat)
     > library(anomalize)
     > library(dplyr)
    
     Attaching package: 'dplyr'
    
     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(ggplot2)
     > library(tibble)
     >
     > # set_time_scale_template(time_scale_template())
     >
     > test_check("anomalize")
     -- 1. Error: iqr_grouped_df works (@test-anomalize.R#32) ----------------------
     invalid argument type
     1: tidyverse_cran_downloads %>% dplyr::ungroup() %>% dplyr::filter(package %in% c("tidyquant",
     "tidytext")) %>% dplyr::group_by(package) %>% anomalize(count, method = "iqr") at testthat/test-anomalize.R:32
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: anomalize(., count, method = "iqr")
     10: anomalize.grouped_df(., count, method = "iqr")
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     -- 2. Error: gesd_grouped_df works (@test-anomalize.R#45) ---------------------
     invalid argument type
     1: tidyverse_cran_downloads %>% dplyr::ungroup() %>% dplyr::filter(package %in% c("tidyquant",
     "tidytext")) %>% dplyr::group_by(package) %>% anomalize(count, method = "gesd") at testthat/test-anomalize.R:45
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: anomalize(., count, method = "gesd")
     10: anomalize.grouped_df(., count, method = "gesd")
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     -- 3. Error: returns a ggplot (@test-plot_anomalies.R#8) ----------------------
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "stl") %>% anomalize(remainder,
     method = "iqr") %>% time_recompose() %>% plot_anomalies(time_recomposed = TRUE,
     ncol = 3) at testthat/test-plot_anomalies.R:8
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: function_list[[i]](value)
     8: time_decompose(., count, method = "stl")
     9: time_decompose.grouped_tbl_time(., count, method = "stl")
     10: data %>% grouped_mapper(.f = time_decompose, target = !!target_expr, method = method[[1]],
     frequency = frequency, trend = trend, ... = ..., merge = merge, message = message)
     ...
     22: eval(quote(`_fseq`(`_lhs`)), env, env)
     23: `_fseq`(`_lhs`)
     24: freduce(value, `_function_list`)
     25: function_list[[i]](value)
     26: tidyr::nest(.)
     27: nest.tbl_time(.)
     28: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     29: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     30: check_key(.key)
     31: is_missing(.key)
    
     -- 4. Error: grouped_tbl_time works (@test-time_apply.R#11) -------------------
     invalid argument type
     1: tidyverse_cran_downloads %>% time_apply(count, period = "1 week", .fun = mean, na.rm = TRUE) at testthat/test-time_apply.R:11
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_apply(., count, period = "1 week", .fun = mean, na.rm = TRUE)
     10: time_apply.grouped_df(., count, period = "1 week", .fun = mean, na.rm = TRUE)
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     -- 5. Error: grouped tbl_df (@test-time_decompose.R#26) -----------------------
     invalid argument type
     1: tidyverse_cran_downloads %>% as.tibble() %>% time_decompose(count, method = "stl",
     frequency = "auto", trend = "auto") at testthat/test-time_decompose.R:26
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, method = "stl", frequency = "auto", trend = "auto")
     10: time_decompose.grouped_df(., count, method = "stl", frequency = "auto", trend = "auto")
     ...
     25: eval(quote(`_fseq`(`_lhs`)), env, env)
     26: `_fseq`(`_lhs`)
     27: freduce(value, `_function_list`)
     28: function_list[[i]](value)
     29: tidyr::nest(.)
     30: nest.tbl_time(.)
     31: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     32: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     33: check_key(.key)
     34: is_missing(.key)
    
     -- 6. Error: method = stl, auto freq/trend (@test-time_decompose.R#36) --------
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "stl", frequency = "auto",
     trend = "auto") at testthat/test-time_decompose.R:36
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, method = "stl", frequency = "auto", trend = "auto")
     10: time_decompose.grouped_tbl_time(., count, method = "stl", frequency = "auto", trend = "auto")
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     -- 7. Error: method = stl, character freq/trend (@test-time_decompose.R#46) ---
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "stl", frequency = "1 month",
     trend = "3 months") at testthat/test-time_decompose.R:46
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, method = "stl", frequency = "1 month", trend = "3 months")
     10: time_decompose.grouped_tbl_time(., count, method = "stl", frequency = "1 month",
     trend = "3 months")
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     -- 8. Error: method = stl, numeric freq/trend (@test-time_decompose.R#56) -----
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "stl", frequency = 7,
     trend = 30) at testthat/test-time_decompose.R:56
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, method = "stl", frequency = 7, trend = 30)
     10: time_decompose.grouped_tbl_time(., count, method = "stl", frequency = 7, trend = 30)
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     -- 9. Error: method = twitter, auto freq/trend (@test-time_decompose.R#66) ----
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "twitter", frequency = "auto",
     trend = "auto") at testthat/test-time_decompose.R:66
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, method = "twitter", frequency = "auto", trend = "auto")
     10: time_decompose.grouped_tbl_time(., count, method = "twitter", frequency = "auto",
     trend = "auto")
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     -- 10. Error: method = twitter, character freq/trend (@test-time_decompose.R#76)
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "twitter", frequency = "1 week",
     trend = "1 month") at testthat/test-time_decompose.R:76
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, method = "twitter", frequency = "1 week", trend = "1 month")
     10: time_decompose.grouped_tbl_time(., count, method = "twitter", frequency = "1 week",
     trend = "1 month")
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     -- 11. Error: method = twitter, numeric freq/trend (@test-time_decompose.R#86)
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "twitter", frequency = 7,
     trend = 90) at testthat/test-time_decompose.R:86
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, method = "twitter", frequency = 7, trend = 90)
     10: time_decompose.grouped_tbl_time(., count, method = "twitter", frequency = 7, trend = 90)
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     -- 12. Error: grouped_df works (@test-time_decompose.R#126) -------------------
     invalid argument type
     1: tidyverse_cran_downloads %>% as.tibble() %>% time_decompose(count) at testthat/test-time_decompose.R:126
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count)
     10: time_decompose.grouped_df(., count)
     ...
     25: eval(quote(`_fseq`(`_lhs`)), env, env)
     26: `_fseq`(`_lhs`)
     27: freduce(value, `_function_list`)
     28: function_list[[i]](value)
     29: tidyr::nest(.)
     30: nest.tbl_time(.)
     31: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     32: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     33: check_key(.key)
     34: is_missing(.key)
    
     -- 13. Error: time_recompose works on grouped_tbl_time (@test-time_recompose.R#9
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, method = "stl") %>% anomalize(remainder,
     method = "iqr") %>% time_recompose() at testthat/test-time_recompose.R:9
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: function_list[[i]](value)
     8: time_decompose(., count, method = "stl")
     9: time_decompose.grouped_tbl_time(., count, method = "stl")
     10: data %>% grouped_mapper(.f = time_decompose, target = !!target_expr, method = method[[1]],
     frequency = frequency, trend = trend, ... = ..., merge = merge, message = message)
     ...
     22: eval(quote(`_fseq`(`_lhs`)), env, env)
     23: `_fseq`(`_lhs`)
     24: freduce(value, `_function_list`)
     25: function_list[[i]](value)
     26: tidyr::nest(.)
     27: nest.tbl_time(.)
     28: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     29: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     30: check_key(.key)
     31: is_missing(.key)
    
     -- 14. Error: utils: time_decompose `merge = T` works (@test-utils.R#4) -------
     invalid argument type
     1: tidyverse_cran_downloads %>% time_decompose(count, merge = T) at testthat/test-utils.R:4
     2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     3: eval(quote(`_fseq`(`_lhs`)), env, env)
     4: eval(quote(`_fseq`(`_lhs`)), env, env)
     5: `_fseq`(`_lhs`)
     6: freduce(value, `_function_list`)
     7: withVisible(function_list[[k]](value))
     8: function_list[[k]](value)
     9: time_decompose(., count, merge = T)
     10: time_decompose.grouped_tbl_time(., count, merge = T)
     ...
     23: eval(quote(`_fseq`(`_lhs`)), env, env)
     24: `_fseq`(`_lhs`)
     25: freduce(value, `_function_list`)
     26: function_list[[i]](value)
     27: tidyr::nest(.)
     28: nest.tbl_time(.)
     29: tidyr::nest(as_tibble(data), ..., .key = !!.key)
     30: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
     31: check_key(.key)
     32: is_missing(.key)
    
     == testthat results ===========================================================
     [ OK: 33 | SKIPPED: 0 | WARNINGS: 1 | FAILED: 14 ]
     1. Error: iqr_grouped_df works (@test-anomalize.R#32)
     2. Error: gesd_grouped_df works (@test-anomalize.R#45)
     3. Error: returns a ggplot (@test-plot_anomalies.R#8)
     4. Error: grouped_tbl_time works (@test-time_apply.R#11)
     5. Error: grouped tbl_df (@test-time_decompose.R#26)
     6. Error: method = stl, auto freq/trend (@test-time_decompose.R#36)
     7. Error: method = stl, character freq/trend (@test-time_decompose.R#46)
     8. Error: method = stl, numeric freq/trend (@test-time_decompose.R#56)
     9. Error: method = twitter, auto freq/trend (@test-time_decompose.R#66)
     1. ...
    
     Error: testthat unit tests failed
     Execution halted
Flavor: r-oldrel-windows-ix86+x86_64

Version: 0.1.1
Check: re-building of vignette outputs
Result: WARN
    Error in re-building vignettes:
     ...
    Warning: Detecting old grouped_df format, replacing `vars` attribute by `groups`
    Warning: Detecting old grouped_df format, replacing `vars` attribute by `groups`
    Warning: Detecting old grouped_df format, replacing `vars` attribute by `groups`
    Quitting from lines 68-74 (anomalize_quick_start_guide.Rmd)
    Error: processing vignette 'anomalize_quick_start_guide.Rmd' failed with diagnostics:
    invalid argument type
    Execution halted
Flavor: r-oldrel-windows-ix86+x86_64

Package correlationfunnel

Current CRAN status: NOTE: 8, OK: 4

Version: 0.1.0
Check: installed package size
Result: NOTE
     installed size is 5.4Mb
     sub-directories of 1Mb or more:
     doc 3.0Mb
     help 1.6Mb
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-windows-ix86+x86_64, r-patched-solaris-x86, r-release-windows-ix86+x86_64, r-release-osx-x86_64, r-oldrel-windows-ix86+x86_64, r-oldrel-osx-x86_64

Version: 0.1.0
Check: dependencies in R code
Result: NOTE
    Namespace in Imports field not imported from: ‘utils’
     All declared Imports should be used.
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-patched-solaris-x86, r-release-osx-x86_64, r-oldrel-osx-x86_64

Package tidyquant

Current CRAN status: ERROR: 11, NOTE: 1

Version: 0.5.6
Check: tests
Result: ERROR
     Running 'testthat.R' [10s/26s]
    Running the tests in 'tests/testthat.R' failed.
    Complete output:
     > library(testthat)
     > library(tidyquant)
     Loading required package: lubridate
    
     Attaching package: 'lubridate'
    
     The following object is masked from 'package:base':
    
     date
    
     Loading required package: PerformanceAnalytics
     Loading required package: xts
     Loading required package: zoo
    
     Attaching package: 'zoo'
    
     The following objects are masked from 'package:base':
    
     as.Date, as.Date.numeric
    
    
     Attaching package: 'PerformanceAnalytics'
    
     The following object is masked from 'package:graphics':
    
     legend
    
     Loading required package: quantmod
     Loading required package: TTR
     Version 0.4-0 included new data defaults. See ?getSymbols.
     Loading required package: tidyverse
     -- Attaching packages --------------------------------------- tidyverse 1.2.1 --
     v ggplot2 3.2.1 v purrr 0.3.2
     v tibble 2.1.3 v dplyr 0.8.3
     v tidyr 1.0.0 v stringr 1.4.0
     v readr 1.3.1 v forcats 0.4.0
     -- Conflicts ------------------------------------------ tidyverse_conflicts() --
     x lubridate::as.difftime() masks base::as.difftime()
     x lubridate::date() masks base::date()
     x dplyr::filter() masks stats::filter()
     x dplyr::first() masks xts::first()
     x lubridate::intersect() masks base::intersect()
     x purrr::is_null() masks testthat::is_null()
     x dplyr::lag() masks stats::lag()
     x dplyr::last() masks xts::last()
     x dplyr::matches() masks tidyr::matches(), testthat::matches()
     x lubridate::setdiff() masks base::setdiff()
     x lubridate::union() masks base::union()
     >
     > test_check("tidyquant")
     -- 1. Failure: Test 1.2 grouped data frames are same with mutate and tq_mutate (
     `test1.2a` not identical to `test1.2b`.
     Objects equal but not identical
    
     == testthat results ===========================================================
     [ OK: 125 | SKIPPED: 1 | WARNINGS: 26 | FAILED: 1 ]
     1. Failure: Test 1.2 grouped data frames are same with mutate and tq_mutate (@test_tq_mutate.R#93)
    
     Error: testthat unit tests failed
     Execution halted
Flavor: r-devel-linux-x86_64-debian-clang

Version: 0.5.6
Check: tests
Result: ERROR
     Running ‘testthat.R’ [7s/23s]
    Running the tests in ‘tests/testthat.R’ failed.
    Complete output:
     > library(testthat)
     > library(tidyquant)
     Loading required package: lubridate
    
     Attaching package: 'lubridate'
    
     The following object is masked from 'package:base':
    
     date
    
     Loading required package: PerformanceAnalytics
     Loading required package: xts
     Loading required package: zoo
    
     Attaching package: 'zoo'
    
     The following objects are masked from 'package:base':
    
     as.Date, as.Date.numeric
    
    
     Attaching package: 'PerformanceAnalytics'
    
     The following object is masked from 'package:graphics':
    
     legend
    
     Loading required package: quantmod
     Loading required package: TTR
     Version 0.4-0 included new data defaults. See ?getSymbols.
     Loading required package: tidyverse
     ── Attaching packages ─────────────────────────────────────── tidyverse 1.2.1 ──
     ✔ ggplot2 3.2.1 ✔ purrr 0.3.2
     ✔ tibble 2.1.3 ✔ dplyr 0.8.3
     ✔ tidyr 1.0.0 ✔ stringr 1.4.0
     ✔ readr 1.3.1 ✔ forcats 0.4.0
     ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
     ✖ lubridate::as.difftime() masks base::as.difftime()
     ✖ lubridate::date() masks base::date()
     ✖ dplyr::filter() masks stats::filter()
     ✖ dplyr::first() masks xts::first()
     ✖ lubridate::intersect() masks base::intersect()
     ✖ purrr::is_null() masks testthat::is_null()
     ✖ dplyr::lag() masks stats::lag()
     ✖ dplyr::last() masks xts::last()
     ✖ dplyr::matches() masks tidyr::matches(), testthat::matches()
     ✖ lubridate::setdiff() masks base::setdiff()
     ✖ lubridate::union() masks base::union()
     >
     > test_check("tidyquant")
     ── 1. Failure: Test 1.2 grouped data frames are same with mutate and tq_mutate (
     `test1.2a` not identical to `test1.2b`.
     Objects equal but not identical
    
     ══ testthat results ═══════════════════════════════════════════════════════════
     [ OK: 125 | SKIPPED: 1 | WARNINGS: 26 | FAILED: 1 ]
     1. Failure: Test 1.2 grouped data frames are same with mutate and tq_mutate (@test_tq_mutate.R#93)
    
     Error: testthat unit tests failed
     Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc

Version: 0.5.6
Check: dependencies in R code
Result: NOTE
    Namespace in Imports field not imported from: ‘xml2’
     All declared Imports should be used.
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-patched-solaris-x86, r-release-osx-x86_64, r-oldrel-osx-x86_64

Version: 0.5.6
Check: tests
Result: ERROR
     Running ‘testthat.R’ [7s/17s]
    Running the tests in ‘tests/testthat.R’ failed.
    Complete output:
     > library(testthat)
     > library(tidyquant)
     Loading required package: lubridate
    
     Attaching package: 'lubridate'
    
     The following object is masked from 'package:base':
    
     date
    
     Loading required package: PerformanceAnalytics
     Loading required package: xts
     Loading required package: zoo
    
     Attaching package: 'zoo'
    
     The following objects are masked from 'package:base':
    
     as.Date, as.Date.numeric
    
    
     Attaching package: 'PerformanceAnalytics'
    
     The following object is masked from 'package:graphics':
    
     legend
    
     Loading required package: quantmod
     Loading required package: TTR
     Version 0.4-0 included new data defaults. See ?getSymbols.
     Loading required package: tidyverse
     ── Attaching packages ─────────────────────────────────────── tidyverse 1.2.1 ──
     ✔ ggplot2 3.2.1 ✔ purrr 0.3.2
     ✔ tibble 2.1.3 ✔ dplyr 0.8.3
     ✔ tidyr 1.0.0 ✔ stringr 1.4.0
     ✔ readr 1.3.1 ✔ forcats 0.4.0
     ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
     ✖ lubridate::as.difftime() masks base::as.difftime()
     ✖ lubridate::date() masks base::date()
     ✖ dplyr::filter() masks stats::filter()
     ✖ dplyr::first() masks xts::first()
     ✖ lubridate::intersect() masks base::intersect()
     ✖ purrr::is_null() masks testthat::is_null()
     ✖ dplyr::lag() masks stats::lag()
     ✖ dplyr::last() masks xts::last()
     ✖ dplyr::matches() masks tidyr::matches(), testthat::matches()
     ✖ lubridate::setdiff() masks base::setdiff()
     ✖ lubridate::union() masks base::union()
     >
     > test_check("tidyquant")
     ── 1. Failure: Test 1.2 grouped data frames are same with mutate and tq_mutate (
     `test1.2a` not identical to `test1.2b`.
     Objects equal but not identical
    
     ══ testthat results ═══════════════════════════════════════════════════════════
     [ OK: 125 | SKIPPED: 1 | WARNINGS: 26 | FAILED: 1 ]
     1. Failure: Test 1.2 grouped data frames are same with mutate and tq_mutate (@test_tq_mutate.R#93)
    
     Error: testthat unit tests failed
     Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang

Version: 0.5.6
Check: tests
Result: ERROR
     Running ‘testthat.R’ [6s/16s]
    Running the tests in ‘tests/testthat.R’ failed.
    Complete output:
     > library(testthat)
     > library(tidyquant)
     Loading required package: lubridate
    
     Attaching package: 'lubridate'
    
     The following object is masked from 'package:base':
    
     date
    
     Loading required package: PerformanceAnalytics
     Loading required package: xts
     Loading required package: zoo
    
     Attaching package: 'zoo'
    
     The following objects are masked from 'package:base':
    
     as.Date, as.Date.numeric
    
    
     Attaching package: 'PerformanceAnalytics'
    
     The following object is masked from 'package:graphics':
    
     legend
    
     Loading required package: quantmod
     Loading required package: TTR
     Version 0.4-0 included new data defaults. See ?getSymbols.
     Loading required package: tidyverse
     ── Attaching packages ─────────────────────────────────────── tidyverse 1.2.1 ──
     ✔ ggplot2 3.2.1 ✔ purrr 0.3.2
     ✔ tibble 2.1.3 ✔ dplyr 0.8.3
     ✔ tidyr 1.0.0 ✔ stringr 1.4.0
     ✔ readr 1.3.1 ✔ forcats 0.4.0
     ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
     ✖ lubridate::as.difftime() masks base::as.difftime()
     ✖ lubridate::date() masks base::date()
     ✖ dplyr::filter() masks stats::filter()
     ✖ dplyr::first() masks xts::first()
     ✖ lubridate::intersect() masks base::intersect()
     ✖ purrr::is_null() masks testthat::is_null()
     ✖ dplyr::lag() masks stats::lag()
     ✖ dplyr::last() masks xts::last()
     ✖ dplyr::matches() masks tidyr::matches(), testthat::matches()
     ✖ lubridate::setdiff() masks base::setdiff()
     ✖ lubridate::union() masks base::union()
     >
     > test_check("tidyquant")
     ── 1. Failure: Test 1.2 grouped data frames are same with mutate and tq_mutate (
     `test1.2a` not identical to `test1.2b`.
     Objects equal but not identical
    
     ══ testthat results ═══════════════════════════════════════════════════════════
     [ OK: 125 | SKIPPED: 1 | WARNINGS: 26 | FAILED: 1 ]
     1. Failure: Test 1.2 grouped data frames are same with mutate and tq_mutate (@test_tq_mutate.R#93)
    
     Error: testthat unit tests failed
     Execution halted
Flavor: r-devel-linux-x86_64-fedora-gcc

Version: 0.5.6
Check: tests
Result: ERROR
     Running 'testthat.R' [23s]
    Running the tests in 'tests/testthat.R' failed.
    Complete output:
     > library(testthat)
     > library(tidyquant)
     Loading required package: lubridate
    
     Attaching package: 'lubridate'
    
     The following object is masked from 'package:base':
    
     date
    
     Loading required package: PerformanceAnalytics
     Loading required package: xts
     Loading required package: zoo
    
     Attaching package: 'zoo'
    
     The following objects are masked from 'package:base':
    
     as.Date, as.Date.numeric
    
    
     Attaching package: 'PerformanceAnalytics'
    
     The following object is masked from 'package:graphics':
    
     legend
    
     Loading required package: quantmod
     Loading required package: TTR
     Version 0.4-0 included new data defaults. See ?getSymbols.
     Loading required package: tidyverse
     -- Attaching packages --------------------------------------- tidyverse 1.2.1 --
     v ggplot2 3.2.1 v purrr 0.3.2
     v tibble 2.1.3 v dplyr 0.8.3
     v tidyr 1.0.0 v stringr 1.4.0
     v readr 1.3.1 v forcats 0.4.0
     -- Conflicts ------------------------------------------ tidyverse_conflicts() --
     x lubridate::as.difftime() masks base::as.difftime()
     x lubridate::date() masks base::date()
     x dplyr::filter() masks stats::filter()
     x dplyr::first() masks xts::first()
     x lubridate::intersect() masks base::intersect()
     x purrr::is_null() masks testthat::is_null()
     x dplyr::lag() masks stats::lag()
     x dplyr::last() masks xts::last()
     x dplyr::matches() masks tidyr::matches(), testthat::matches()
     x lubridate::setdiff() masks base::setdiff()
     x lubridate::union() masks base::union()
     >
     > test_check("tidyquant")
     -- 1. Failure: Test 1.2 grouped data frames are same with mutate and tq_mutate (
     `test1.2a` not identical to `test1.2b`.
     Objects equal but not identical
    
     == testthat results ===========================================================
     [ OK: 125 | SKIPPED: 1 | WARNINGS: 26 | FAILED: 1 ]
     1. Failure: Test 1.2 grouped data frames are same with mutate and tq_mutate (@test_tq_mutate.R#93)
    
     Error: testthat unit tests failed
     Execution halted
Flavors: r-devel-windows-ix86+x86_64, r-release-windows-ix86+x86_64, r-oldrel-windows-ix86+x86_64

Version: 0.5.6
Check: tests
Result: ERROR
     Running ‘testthat.R’ [9s/24s]
    Running the tests in ‘tests/testthat.R’ failed.
    Complete output:
     > library(testthat)
     > library(tidyquant)
     Loading required package: lubridate
    
     Attaching package: 'lubridate'
    
     The following object is masked from 'package:base':
    
     date
    
     Loading required package: PerformanceAnalytics
     Loading required package: xts
     Loading required package: zoo
    
     Attaching package: 'zoo'
    
     The following objects are masked from 'package:base':
    
     as.Date, as.Date.numeric
    
    
     Attaching package: 'PerformanceAnalytics'
    
     The following object is masked from 'package:graphics':
    
     legend
    
     Loading required package: quantmod
     Loading required package: TTR
     Version 0.4-0 included new data defaults. See ?getSymbols.
     Loading required package: tidyverse
     ── Attaching packages ─────────────────────────────────────── tidyverse 1.2.1 ──
     ✔ ggplot2 3.2.1 ✔ purrr 0.3.2
     ✔ tibble 2.1.3 ✔ dplyr 0.8.3
     ✔ tidyr 1.0.0 ✔ stringr 1.4.0
     ✔ readr 1.3.1 ✔ forcats 0.4.0
     ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
     ✖ lubridate::as.difftime() masks base::as.difftime()
     ✖ lubridate::date() masks base::date()
     ✖ dplyr::filter() masks stats::filter()
     ✖ dplyr::first() masks xts::first()
     ✖ lubridate::intersect() masks base::intersect()
     ✖ purrr::is_null() masks testthat::is_null()
     ✖ dplyr::lag() masks stats::lag()
     ✖ dplyr::last() masks xts::last()
     ✖ dplyr::matches() masks tidyr::matches(), testthat::matches()
     ✖ lubridate::setdiff() masks base::setdiff()
     ✖ lubridate::union() masks base::union()
     >
     > test_check("tidyquant")
     ── 1. Failure: Test 1.2 grouped data frames are same with mutate and tq_mutate (
     `test1.2a` not identical to `test1.2b`.
     Objects equal but not identical
    
     ══ testthat results ═══════════════════════════════════════════════════════════
     [ OK: 125 | SKIPPED: 1 | WARNINGS: 26 | FAILED: 1 ]
     1. Failure: Test 1.2 grouped data frames are same with mutate and tq_mutate (@test_tq_mutate.R#93)
    
     Error: testthat unit tests failed
     Execution halted
Flavor: r-patched-linux-x86_64

Version: 0.5.6
Check: package dependencies
Result: NOTE
    Package suggested but not available for checking: ‘Rblpapi’
Flavor: r-patched-solaris-x86

Version: 0.5.6
Check: installed package size
Result: NOTE
     installed size is 5.1Mb
     sub-directories of 1Mb or more:
     doc 4.1Mb
Flavor: r-patched-solaris-x86

Version: 0.5.6
Check: Rd cross-references
Result: NOTE
    Package unavailable to check Rd xrefs: ‘Rblpapi’
Flavor: r-patched-solaris-x86

Version: 0.5.6
Check: tests
Result: ERROR
     Running ‘testthat.R’ [16s/56s]
    Running the tests in ‘tests/testthat.R’ failed.
    Complete output:
     > library(testthat)
     > library(tidyquant)
     Loading required package: lubridate
    
     Attaching package: 'lubridate'
    
     The following object is masked from 'package:base':
    
     date
    
     Loading required package: PerformanceAnalytics
     Loading required package: xts
     Loading required package: zoo
    
     Attaching package: 'zoo'
    
     The following objects are masked from 'package:base':
    
     as.Date, as.Date.numeric
    
    
     Attaching package: 'PerformanceAnalytics'
    
     The following object is masked from 'package:graphics':
    
     legend
    
     Loading required package: quantmod
     Loading required package: TTR
     Version 0.4-0 included new data defaults. See ?getSymbols.
     Loading required package: tidyverse
     ── Attaching packages ─────────────────────────────────────── tidyverse 1.2.1 ──
     ✔ ggplot2 3.2.1 ✔ purrr 0.3.2
     ✔ tibble 2.1.3 ✔ dplyr 0.8.3
     ✔ tidyr 1.0.0 ✔ stringr 1.4.0
     ✔ readr 1.3.1 ✔ forcats 0.4.0
     ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
     ✖ lubridate::as.difftime() masks base::as.difftime()
     ✖ lubridate::date() masks base::date()
     ✖ dplyr::filter() masks stats::filter()
     ✖ dplyr::first() masks xts::first()
     ✖ lubridate::intersect() masks base::intersect()
     ✖ purrr::is_null() masks testthat::is_null()
     ✖ dplyr::lag() masks stats::lag()
     ✖ dplyr::last() masks xts::last()
     ✖ dplyr::matches() masks tidyr::matches(), testthat::matches()
     ✖ lubridate::setdiff() masks base::setdiff()
     ✖ lubridate::union() masks base::union()
     >
     > test_check("tidyquant")
     ── 1. Failure: Test 1.2 grouped data frames are same with mutate and tq_mutate (
     `test1.2a` not identical to `test1.2b`.
     Objects equal but not identical
    
     ══ testthat results ═══════════════════════════════════════════════════════════
     [ OK: 125 | SKIPPED: 1 | WARNINGS: 26 | FAILED: 1 ]
     1. Failure: Test 1.2 grouped data frames are same with mutate and tq_mutate (@test_tq_mutate.R#93)
    
     Error: testthat unit tests failed
     Execution halted
Flavor: r-patched-solaris-x86

Version: 0.5.6
Check: tests
Result: ERROR
     Running ‘testthat.R’ [9s/25s]
    Running the tests in ‘tests/testthat.R’ failed.
    Complete output:
     > library(testthat)
     > library(tidyquant)
     Loading required package: lubridate
    
     Attaching package: 'lubridate'
    
     The following object is masked from 'package:base':
    
     date
    
     Loading required package: PerformanceAnalytics
     Loading required package: xts
     Loading required package: zoo
    
     Attaching package: 'zoo'
    
     The following objects are masked from 'package:base':
    
     as.Date, as.Date.numeric
    
    
     Attaching package: 'PerformanceAnalytics'
    
     The following object is masked from 'package:graphics':
    
     legend
    
     Loading required package: quantmod
     Loading required package: TTR
     Version 0.4-0 included new data defaults. See ?getSymbols.
     Loading required package: tidyverse
     ── Attaching packages ─────────────────────────────────────── tidyverse 1.2.1 ──
     ✔ ggplot2 3.2.1 ✔ purrr 0.3.2
     ✔ tibble 2.1.3 ✔ dplyr 0.8.3
     ✔ tidyr 1.0.0 ✔ stringr 1.4.0
     ✔ readr 1.3.1 ✔ forcats 0.4.0
     ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
     ✖ lubridate::as.difftime() masks base::as.difftime()
     ✖ lubridate::date() masks base::date()
     ✖ dplyr::filter() masks stats::filter()
     ✖ dplyr::first() masks xts::first()
     ✖ lubridate::intersect() masks base::intersect()
     ✖ purrr::is_null() masks testthat::is_null()
     ✖ dplyr::lag() masks stats::lag()
     ✖ dplyr::last() masks xts::last()
     ✖ dplyr::matches() masks tidyr::matches(), testthat::matches()
     ✖ lubridate::setdiff() masks base::setdiff()
     ✖ lubridate::union() masks base::union()
     >
     > test_check("tidyquant")
     ── 1. Failure: Test 1.2 grouped data frames are same with mutate and tq_mutate (
     `test1.2a` not identical to `test1.2b`.
     Objects equal but not identical
    
     ══ testthat results ═══════════════════════════════════════════════════════════
     [ OK: 125 | SKIPPED: 1 | WARNINGS: 26 | FAILED: 1 ]
     1. Failure: Test 1.2 grouped data frames are same with mutate and tq_mutate (@test_tq_mutate.R#93)
    
     Error: testthat unit tests failed
     Execution halted
Flavor: r-release-linux-x86_64

Version: 0.5.6
Check: tests
Result: ERROR
     Running ‘testthat.R’ [8s/20s]
    Running the tests in ‘tests/testthat.R’ failed.
    Last 13 lines of output:
     ── 1. Failure: Test prints warning message on invalid x input. (@test_tq_get_sto
     `tq_get("XYZ", get = get)` did not produce any warnings.
    
     ── 2. Failure: Test returns NA on invalid x input. (@test_tq_get_stock_prices.R#
     suppressWarnings(tq_get("XYZ", get = get)) not equal to NA.
     Cols in y but not x: `NA`.
     Cols in x but not y: `adjusted`, `volume`, `open`, `low`, `high`, `close`, `date`.
    
     ══ testthat results ═══════════════════════════════════════════════════════════
     OK: 124 SKIPPED: 1 WARNINGS: 0 FAILED: 2
     1. Failure: Test prints warning message on invalid x input. (@test_tq_get_stock_prices.R#38)
     2. Failure: Test returns NA on invalid x input. (@test_tq_get_stock_prices.R#42)
    
     Error: testthat unit tests failed
     Execution halted
Flavor: r-release-osx-x86_64