Last updated on 2019-03-01 08:49:10 CET.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 0.2.5 | 28.11 | 42.64 | 70.75 | ERROR | |
| r-devel-linux-x86_64-debian-gcc | 0.2.5 | 21.04 | 73.09 | 94.13 | ERROR | |
| r-devel-linux-x86_64-fedora-clang | 0.2.5 | 97.36 | ERROR | |||
| r-devel-linux-x86_64-fedora-gcc | 0.2.5 | 89.36 | ERROR | |||
| r-devel-windows-ix86+x86_64 | 0.2.5 | 49.00 | 82.00 | 131.00 | ERROR | |
| r-patched-linux-x86_64 | 0.2.5 | ERROR | ||||
| r-patched-solaris-x86 | 0.2.5 | 105.10 | ERROR | |||
| r-release-linux-x86_64 | 0.2.5 | 24.99 | 81.89 | 106.88 | ERROR | |
| r-release-windows-ix86+x86_64 | 0.2.5 | 64.00 | 82.00 | 146.00 | ERROR | |
| r-release-osx-x86_64 | 0.2.5 | NOTE | ||||
| r-oldrel-windows-ix86+x86_64 | 0.2.5 | 69.00 | 81.00 | 150.00 | ERROR | |
| r-oldrel-osx-x86_64 | 0.2.5 | NOTE |
Version: 0.2.5
Check: use of SHLIB_OPENMP_*FLAGS in Makefiles
Result: NOTE
src/Makevars: SHLIB_OPENMP_CXXFLAGS is included in PKG_CXXFLAGS but not in PKG_LIBS
src/Makevars: SHLIB_OPENMP_CFLAGS is included in PKG_LIBS but linking is by C++
src/Makevars.win: SHLIB_OPENMP_CXXFLAGS is included in PKG_CXXFLAGS but not in PKG_LIBS
src/Makevars.win: SHLIB_OPENMP_CFLAGS is included in PKG_LIBS but linking is by C++
Use of these macros is discussed in sect 1.2.1.1 of ‘Writing R
Extensions’. The macros for different languages may differ so the
matching macro must be used in PKG_CXXFLAGS (etc) and match that used
in PKG_LIBS (except for Fortran: see the manual).
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc
Version: 0.2.5
Check: examples
Result: ERROR
Running examples in ‘anomalyDetection-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: tabulate_state_vector
> ### Title: Tabulate State Vector
> ### Aliases: tabulate_state_vector
>
> ### ** Examples
>
> tabulate_state_vector(security_logs, 30)
Some variables contain more than 50 levels. Only the 10 most popular levels of these variables will be tabulated.
Error in n() : could not find function "n"
Calls: tabulate_state_vector ... <Anonymous> -> <Anonymous> -> mutate_.tbl_df -> mutate_impl
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.2.5
Check: tests
Result: ERROR
Running ‘testthat.R’ [2s/3s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library(testthat)
> library(anomalyDetection)
>
> test_check("anomalyDetection")
── 1. Error: hmat produces a ggplot object (@test_hmat.R#4) ───────────────────
could not find function "n"
1: expect_is(hmat(security_logs, block_length = 5), "ggplot") at testthat/test_hmat.R:4
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: hmat(security_logs, block_length = 5)
5: suppressWarnings(suppressMessages(temp <- dplyr::mutate_(tibble::as.tibble(anomalyDetection::mahalanobis_distance(anomalyDetection::mc_adjust(anomalyDetection::tabulate_state_vector(data,
block_length, level_limit, level_keep, partial_block, na.rm), min_var, max_cor,
action), output, normalize)), .dots = list(Block = quote(as.factor(1:n()))))))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: suppressMessages(temp <- dplyr::mutate_(tibble::as.tibble(anomalyDetection::mahalanobis_distance(anomalyDetection::mc_adjust(anomalyDetection::tabulate_state_vector(data,
block_length, level_limit, level_keep, partial_block, na.rm), min_var, max_cor,
action), output, normalize)), .dots = list(Block = quote(as.factor(1:n())))))
8: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
9: dplyr::mutate_(tibble::as.tibble(anomalyDetection::mahalanobis_distance(anomalyDetection::mc_adjust(anomalyDetection::tabulate_state_vector(data,
block_length, level_limit, level_keep, partial_block, na.rm), min_var, max_cor,
action), output, normalize)), .dots = list(Block = quote(as.factor(1:n()))))
10: tibble::as.tibble(anomalyDetection::mahalanobis_distance(anomalyDetection::mc_adjust(anomalyDetection::tabulate_state_vector(data,
block_length, level_limit, level_keep, partial_block, na.rm), min_var, max_cor,
action), output, normalize))
...
14: colnames(data)
15: is.data.frame(x)
16: anomalyDetection::tabulate_state_vector(data, block_length, level_limit, level_keep,
partial_block, na.rm)
17: suppressMessages(popvars <- dplyr::select_(tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values"), ~overflowvars))
18: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
19: dplyr::select_(tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values"), ~overflowvars)
20: tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values")
21: dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n())))
22: mutate_.tbl_df(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n())))
23: mutate_impl(.data, dots, caller_env())
── 2. Error: tabulate_state_vector output has correct dimensions (@test_tabulate
could not find function "n"
1: expect_true(tabulate_state_vector(security_logs, 30) %>% is.data.frame()) at testthat/test_tabulate_state_vector.R:5
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: tabulate_state_vector(security_logs, 30) %>% is.data.frame()
5: eval(lhs, parent, parent)
6: eval(lhs, parent, parent)
7: tabulate_state_vector(security_logs, 30)
8: suppressMessages(popvars <- dplyr::select_(tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values"), ~overflowvars))
9: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
10: dplyr::select_(tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values"), ~overflowvars)
11: tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values")
12: dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n())))
13: mutate_.tbl_df(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n())))
14: mutate_impl(.data, dots, caller_env())
── 3. Error: tabulate_state_vector computes correctly (@test_tabulate_state_vect
could not find function "n"
1: expect_equal(tabulate_state_vector(security_logs, 30) %>% .[[1, 1]], 4) at testthat/test_tabulate_state_vector.R:13
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: tabulate_state_vector(security_logs, 30) %>% .[[1, 1]]
5: eval(lhs, parent, parent)
6: eval(lhs, parent, parent)
7: tabulate_state_vector(security_logs, 30)
8: suppressMessages(popvars <- dplyr::select_(tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values"), ~overflowvars))
9: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
10: dplyr::select_(tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values"), ~overflowvars)
11: tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values")
12: dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n())))
13: mutate_.tbl_df(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n())))
14: mutate_impl(.data, dots, caller_env())
══ testthat results ═══════════════════════════════════════════════════════════
OK: 105 SKIPPED: 3 FAILED: 3
1. Error: hmat produces a ggplot object (@test_hmat.R#4)
2. Error: tabulate_state_vector output has correct dimensions (@test_tabulate_state_vector.R#5)
3. Error: tabulate_state_vector computes correctly (@test_tabulate_state_vector.R#13)
Error: testthat unit tests failed
Execution halted
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-release-linux-x86_64
Version: 0.2.5
Check: dependencies in R code
Result: NOTE
Namespace in Imports field not imported from: ‘caret’
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.2.5
Check: examples
Result: ERROR
Running examples in ‘anomalyDetection-Ex.R’ failed
The error most likely occurred in:
> ### Name: tabulate_state_vector
> ### Title: Tabulate State Vector
> ### Aliases: tabulate_state_vector
>
> ### ** Examples
>
> tabulate_state_vector(security_logs, 30)
Some variables contain more than 50 levels. Only the 10 most popular levels of these variables will be tabulated.
Error in n() : could not find function "n"
Calls: tabulate_state_vector ... <Anonymous> -> <Anonymous> -> mutate_.tbl_df -> mutate_impl
Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-patched-solaris-x86
Version: 0.2.5
Check: tests
Result: ERROR
Running ‘testthat.R’
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library(testthat)
> library(anomalyDetection)
>
> test_check("anomalyDetection")
── 1. Error: hmat produces a ggplot object (@test_hmat.R#4) ───────────────────
could not find function "n"
1: expect_is(hmat(security_logs, block_length = 5), "ggplot") at testthat/test_hmat.R:4
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: hmat(security_logs, block_length = 5)
5: suppressWarnings(suppressMessages(temp <- dplyr::mutate_(tibble::as.tibble(anomalyDetection::mahalanobis_distance(anomalyDetection::mc_adjust(anomalyDetection::tabulate_state_vector(data,
block_length, level_limit, level_keep, partial_block, na.rm), min_var, max_cor,
action), output, normalize)), .dots = list(Block = quote(as.factor(1:n()))))))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: suppressMessages(temp <- dplyr::mutate_(tibble::as.tibble(anomalyDetection::mahalanobis_distance(anomalyDetection::mc_adjust(anomalyDetection::tabulate_state_vector(data,
block_length, level_limit, level_keep, partial_block, na.rm), min_var, max_cor,
action), output, normalize)), .dots = list(Block = quote(as.factor(1:n())))))
8: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
9: dplyr::mutate_(tibble::as.tibble(anomalyDetection::mahalanobis_distance(anomalyDetection::mc_adjust(anomalyDetection::tabulate_state_vector(data,
block_length, level_limit, level_keep, partial_block, na.rm), min_var, max_cor,
action), output, normalize)), .dots = list(Block = quote(as.factor(1:n()))))
10: tibble::as.tibble(anomalyDetection::mahalanobis_distance(anomalyDetection::mc_adjust(anomalyDetection::tabulate_state_vector(data,
block_length, level_limit, level_keep, partial_block, na.rm), min_var, max_cor,
action), output, normalize))
...
14: colnames(data)
15: is.data.frame(x)
16: anomalyDetection::tabulate_state_vector(data, block_length, level_limit, level_keep,
partial_block, na.rm)
17: suppressMessages(popvars <- dplyr::select_(tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values"), ~overflowvars))
18: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
19: dplyr::select_(tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values"), ~overflowvars)
20: tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values")
21: dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n())))
22: mutate_.tbl_df(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n())))
23: mutate_impl(.data, dots, caller_env())
── 2. Error: tabulate_state_vector output has correct dimensions (@test_tabulate
could not find function "n"
1: expect_true(tabulate_state_vector(security_logs, 30) %>% is.data.frame()) at testthat/test_tabulate_state_vector.R:5
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: tabulate_state_vector(security_logs, 30) %>% is.data.frame()
5: eval(lhs, parent, parent)
6: eval(lhs, parent, parent)
7: tabulate_state_vector(security_logs, 30)
8: suppressMessages(popvars <- dplyr::select_(tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values"), ~overflowvars))
9: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
10: dplyr::select_(tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values"), ~overflowvars)
11: tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values")
12: dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n())))
13: mutate_.tbl_df(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n())))
14: mutate_impl(.data, dots, caller_env())
── 3. Error: tabulate_state_vector computes correctly (@test_tabulate_state_vect
could not find function "n"
1: expect_equal(tabulate_state_vector(security_logs, 30) %>% .[[1, 1]], 4) at testthat/test_tabulate_state_vector.R:13
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: tabulate_state_vector(security_logs, 30) %>% .[[1, 1]]
5: eval(lhs, parent, parent)
6: eval(lhs, parent, parent)
7: tabulate_state_vector(security_logs, 30)
8: suppressMessages(popvars <- dplyr::select_(tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values"), ~overflowvars))
9: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
10: dplyr::select_(tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values"), ~overflowvars)
11: tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values")
12: dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n())))
13: mutate_.tbl_df(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n())))
14: mutate_impl(.data, dots, caller_env())
══ testthat results ═══════════════════════════════════════════════════════════
OK: 105 SKIPPED: 3 FAILED: 3
1. Error: hmat produces a ggplot object (@test_hmat.R#4)
2. Error: tabulate_state_vector output has correct dimensions (@test_tabulate_state_vector.R#5)
3. Error: tabulate_state_vector computes correctly (@test_tabulate_state_vector.R#13)
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.2.5
Check: running examples for arch ‘i386’
Result: ERROR
Running examples in 'anomalyDetection-Ex.R' failed
The error most likely occurred in:
> ### Name: tabulate_state_vector
> ### Title: Tabulate State Vector
> ### Aliases: tabulate_state_vector
>
> ### ** Examples
>
> tabulate_state_vector(security_logs, 30)
Some variables contain more than 50 levels. Only the 10 most popular levels of these variables will be tabulated.
Error in n() : could not find function "n"
Calls: tabulate_state_vector ... <Anonymous> -> <Anonymous> -> mutate_.tbl_df -> mutate_impl
Execution halted
Flavors: r-devel-windows-ix86+x86_64, r-release-windows-ix86+x86_64
Version: 0.2.5
Check: running examples for arch ‘x64’
Result: ERROR
Running examples in 'anomalyDetection-Ex.R' failed
The error most likely occurred in:
> ### Name: tabulate_state_vector
> ### Title: Tabulate State Vector
> ### Aliases: tabulate_state_vector
>
> ### ** Examples
>
> tabulate_state_vector(security_logs, 30)
Some variables contain more than 50 levels. Only the 10 most popular levels of these variables will be tabulated.
Error in n() : could not find function "n"
Calls: tabulate_state_vector ... <Anonymous> -> <Anonymous> -> mutate_.tbl_df -> mutate_impl
Execution halted
Flavors: r-devel-windows-ix86+x86_64, r-release-windows-ix86+x86_64
Version: 0.2.5
Check: running tests for arch ‘i386’
Result: ERROR
Running 'testthat.R' [2s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
> library(testthat)
> library(anomalyDetection)
>
> test_check("anomalyDetection")
-- 1. Error: hmat produces a ggplot object (@test_hmat.R#4) -------------------
could not find function "n"
1: expect_is(hmat(security_logs, block_length = 5), "ggplot") at testthat/test_hmat.R:4
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: hmat(security_logs, block_length = 5)
5: suppressWarnings(suppressMessages(temp <- dplyr::mutate_(tibble::as.tibble(anomalyDetection::mahalanobis_distance(anomalyDetection::mc_adjust(anomalyDetection::tabulate_state_vector(data,
block_length, level_limit, level_keep, partial_block, na.rm), min_var, max_cor,
action), output, normalize)), .dots = list(Block = quote(as.factor(1:n()))))))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: suppressMessages(temp <- dplyr::mutate_(tibble::as.tibble(anomalyDetection::mahalanobis_distance(anomalyDetection::mc_adjust(anomalyDetection::tabulate_state_vector(data,
block_length, level_limit, level_keep, partial_block, na.rm), min_var, max_cor,
action), output, normalize)), .dots = list(Block = quote(as.factor(1:n())))))
8: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
9: dplyr::mutate_(tibble::as.tibble(anomalyDetection::mahalanobis_distance(anomalyDetection::mc_adjust(anomalyDetection::tabulate_state_vector(data,
block_length, level_limit, level_keep, partial_block, na.rm), min_var, max_cor,
action), output, normalize)), .dots = list(Block = quote(as.factor(1:n()))))
10: tibble::as.tibble(anomalyDetection::mahalanobis_distance(anomalyDetection::mc_adjust(anomalyDetection::tabulate_state_vector(data,
block_length, level_limit, level_keep, partial_block, na.rm), min_var, max_cor,
action), output, normalize))
...
14: colnames(data)
15: is.data.frame(x)
16: anomalyDetection::tabulate_state_vector(data, block_length, level_limit, level_keep,
partial_block, na.rm)
17: suppressMessages(popvars <- dplyr::select_(tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values"), ~overflowvars))
18: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
19: dplyr::select_(tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values"), ~overflowvars)
20: tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values")
21: dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n())))
22: mutate_.tbl_df(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n())))
23: mutate_impl(.data, dots, caller_env())
-- 2. Error: tabulate_state_vector output has correct dimensions (@test_tabulate
could not find function "n"
1: expect_true(tabulate_state_vector(security_logs, 30) %>% is.data.frame()) at testthat/test_tabulate_state_vector.R:5
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: tabulate_state_vector(security_logs, 30) %>% is.data.frame()
5: eval(lhs, parent, parent)
6: eval(lhs, parent, parent)
7: tabulate_state_vector(security_logs, 30)
8: suppressMessages(popvars <- dplyr::select_(tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values"), ~overflowvars))
9: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
10: dplyr::select_(tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values"), ~overflowvars)
11: tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values")
12: dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n())))
13: mutate_.tbl_df(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n())))
14: mutate_impl(.data, dots, caller_env())
-- 3. Error: tabulate_state_vector computes correctly (@test_tabulate_state_vect
could not find function "n"
1: expect_equal(tabulate_state_vector(security_logs, 30) %>% .[[1, 1]], 4) at testthat/test_tabulate_state_vector.R:13
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: tabulate_state_vector(security_logs, 30) %>% .[[1, 1]]
5: eval(lhs, parent, parent)
6: eval(lhs, parent, parent)
7: tabulate_state_vector(security_logs, 30)
8: suppressMessages(popvars <- dplyr::select_(tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values"), ~overflowvars))
9: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
10: dplyr::select_(tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values"), ~overflowvars)
11: tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values")
12: dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n())))
13: mutate_.tbl_df(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n())))
14: mutate_impl(.data, dots, caller_env())
== testthat results ===========================================================
OK: 105 SKIPPED: 3 FAILED: 3
1. Error: hmat produces a ggplot object (@test_hmat.R#4)
2. Error: tabulate_state_vector output has correct dimensions (@test_tabulate_state_vector.R#5)
3. Error: tabulate_state_vector computes correctly (@test_tabulate_state_vector.R#13)
Error: testthat unit tests failed
Execution halted
Flavors: r-devel-windows-ix86+x86_64, r-release-windows-ix86+x86_64
Version: 0.2.5
Check: running tests for arch ‘x64’
Result: ERROR
Running 'testthat.R' [2s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
> library(testthat)
> library(anomalyDetection)
>
> test_check("anomalyDetection")
-- 1. Error: hmat produces a ggplot object (@test_hmat.R#4) -------------------
could not find function "n"
1: expect_is(hmat(security_logs, block_length = 5), "ggplot") at testthat/test_hmat.R:4
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: hmat(security_logs, block_length = 5)
5: suppressWarnings(suppressMessages(temp <- dplyr::mutate_(tibble::as.tibble(anomalyDetection::mahalanobis_distance(anomalyDetection::mc_adjust(anomalyDetection::tabulate_state_vector(data,
block_length, level_limit, level_keep, partial_block, na.rm), min_var, max_cor,
action), output, normalize)), .dots = list(Block = quote(as.factor(1:n()))))))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: suppressMessages(temp <- dplyr::mutate_(tibble::as.tibble(anomalyDetection::mahalanobis_distance(anomalyDetection::mc_adjust(anomalyDetection::tabulate_state_vector(data,
block_length, level_limit, level_keep, partial_block, na.rm), min_var, max_cor,
action), output, normalize)), .dots = list(Block = quote(as.factor(1:n())))))
8: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
9: dplyr::mutate_(tibble::as.tibble(anomalyDetection::mahalanobis_distance(anomalyDetection::mc_adjust(anomalyDetection::tabulate_state_vector(data,
block_length, level_limit, level_keep, partial_block, na.rm), min_var, max_cor,
action), output, normalize)), .dots = list(Block = quote(as.factor(1:n()))))
10: tibble::as.tibble(anomalyDetection::mahalanobis_distance(anomalyDetection::mc_adjust(anomalyDetection::tabulate_state_vector(data,
block_length, level_limit, level_keep, partial_block, na.rm), min_var, max_cor,
action), output, normalize))
...
14: colnames(data)
15: is.data.frame(x)
16: anomalyDetection::tabulate_state_vector(data, block_length, level_limit, level_keep,
partial_block, na.rm)
17: suppressMessages(popvars <- dplyr::select_(tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values"), ~overflowvars))
18: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
19: dplyr::select_(tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values"), ~overflowvars)
20: tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values")
21: dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n())))
22: mutate_.tbl_df(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n())))
23: mutate_impl(.data, dots, caller_env())
-- 2. Error: tabulate_state_vector output has correct dimensions (@test_tabulate
could not find function "n"
1: expect_true(tabulate_state_vector(security_logs, 30) %>% is.data.frame()) at testthat/test_tabulate_state_vector.R:5
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: tabulate_state_vector(security_logs, 30) %>% is.data.frame()
5: eval(lhs, parent, parent)
6: eval(lhs, parent, parent)
7: tabulate_state_vector(security_logs, 30)
8: suppressMessages(popvars <- dplyr::select_(tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values"), ~overflowvars))
9: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
10: dplyr::select_(tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values"), ~overflowvars)
11: tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values")
12: dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n())))
13: mutate_.tbl_df(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n())))
14: mutate_impl(.data, dots, caller_env())
-- 3. Error: tabulate_state_vector computes correctly (@test_tabulate_state_vect
could not find function "n"
1: expect_equal(tabulate_state_vector(security_logs, 30) %>% .[[1, 1]], 4) at testthat/test_tabulate_state_vector.R:13
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: tabulate_state_vector(security_logs, 30) %>% .[[1, 1]]
5: eval(lhs, parent, parent)
6: eval(lhs, parent, parent)
7: tabulate_state_vector(security_logs, 30)
8: suppressMessages(popvars <- dplyr::select_(tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values"), ~overflowvars))
9: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
10: dplyr::select_(tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values"), ~overflowvars)
11: tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values")
12: dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n())))
13: mutate_.tbl_df(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n())))
14: mutate_impl(.data, dots, caller_env())
== testthat results ===========================================================
OK: 105 SKIPPED: 3 FAILED: 3
1. Error: hmat produces a ggplot object (@test_hmat.R#4)
2. Error: tabulate_state_vector output has correct dimensions (@test_tabulate_state_vector.R#5)
3. Error: tabulate_state_vector computes correctly (@test_tabulate_state_vector.R#13)
Error: testthat unit tests failed
Execution halted
Flavors: r-devel-windows-ix86+x86_64, r-release-windows-ix86+x86_64
Version: 0.2.5
Check: tests
Result: ERROR
Running ‘testthat.R’ [2s/2s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library(testthat)
> library(anomalyDetection)
>
> test_check("anomalyDetection")
── 1. Error: hmat produces a ggplot object (@test_hmat.R#4) ───────────────────
could not find function "n"
1: expect_is(hmat(security_logs, block_length = 5), "ggplot") at testthat/test_hmat.R:4
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: hmat(security_logs, block_length = 5)
5: suppressWarnings(suppressMessages(temp <- dplyr::mutate_(tibble::as.tibble(anomalyDetection::mahalanobis_distance(anomalyDetection::mc_adjust(anomalyDetection::tabulate_state_vector(data,
block_length, level_limit, level_keep, partial_block, na.rm), min_var, max_cor,
action), output, normalize)), .dots = list(Block = quote(as.factor(1:n()))))))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: suppressMessages(temp <- dplyr::mutate_(tibble::as.tibble(anomalyDetection::mahalanobis_distance(anomalyDetection::mc_adjust(anomalyDetection::tabulate_state_vector(data,
block_length, level_limit, level_keep, partial_block, na.rm), min_var, max_cor,
action), output, normalize)), .dots = list(Block = quote(as.factor(1:n())))))
8: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
9: dplyr::mutate_(tibble::as.tibble(anomalyDetection::mahalanobis_distance(anomalyDetection::mc_adjust(anomalyDetection::tabulate_state_vector(data,
block_length, level_limit, level_keep, partial_block, na.rm), min_var, max_cor,
action), output, normalize)), .dots = list(Block = quote(as.factor(1:n()))))
10: tibble::as.tibble(anomalyDetection::mahalanobis_distance(anomalyDetection::mc_adjust(anomalyDetection::tabulate_state_vector(data,
block_length, level_limit, level_keep, partial_block, na.rm), min_var, max_cor,
action), output, normalize))
...
14: colnames(data)
15: is.data.frame(x)
16: anomalyDetection::tabulate_state_vector(data, block_length, level_limit, level_keep,
partial_block, na.rm)
17: suppressMessages(popvars <- dplyr::select_(tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values"), ~overflowvars))
18: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
19: dplyr::select_(tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values"), ~overflowvars)
20: tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values")
21: dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n())))
22: mutate_.tbl_df(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n())))
23: mutate_impl(.data, dots, caller_env())
── 2. Error: tabulate_state_vector output has correct dimensions (@test_tabulate
could not find function "n"
1: expect_true(tabulate_state_vector(security_logs, 30) %>% is.data.frame()) at testthat/test_tabulate_state_vector.R:5
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: tabulate_state_vector(security_logs, 30) %>% is.data.frame()
5: eval(lhs, parent, parent)
6: eval(lhs, parent, parent)
7: tabulate_state_vector(security_logs, 30)
8: suppressMessages(popvars <- dplyr::select_(tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values"), ~overflowvars))
9: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
10: dplyr::select_(tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values"), ~overflowvars)
11: tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values")
12: dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n())))
13: mutate_.tbl_df(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n())))
14: mutate_impl(.data, dots, caller_env())
── 3. Error: tabulate_state_vector computes correctly (@test_tabulate_state_vect
could not find function "n"
1: expect_equal(tabulate_state_vector(security_logs, 30) %>% .[[1, 1]], 4) at testthat/test_tabulate_state_vector.R:13
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: tabulate_state_vector(security_logs, 30) %>% .[[1, 1]]
5: eval(lhs, parent, parent)
6: eval(lhs, parent, parent)
7: tabulate_state_vector(security_logs, 30)
8: suppressMessages(popvars <- dplyr::select_(tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values"), ~overflowvars))
9: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
10: dplyr::select_(tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values"), ~overflowvars)
11: tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values")
12: dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n())))
13: mutate_.tbl_df(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n())))
14: mutate_impl(.data, dots, caller_env())
══ testthat results ═══════════════════════════════════════════════════════════
OK: 105 SKIPPED: 3 FAILED: 3
1. Error: hmat produces a ggplot object (@test_hmat.R#4)
2. Error: tabulate_state_vector output has correct dimensions (@test_tabulate_state_vector.R#5)
3. Error: tabulate_state_vector computes correctly (@test_tabulate_state_vector.R#13)
Error: testthat unit tests failed
Execution halted
Flavor: r-patched-linux-x86_64
Version: 0.2.5
Check: running examples for arch ‘i386’
Result: ERROR
Running examples in 'anomalyDetection-Ex.R' failed
The error most likely occurred in:
> ### Name: tabulate_state_vector
> ### Title: Tabulate State Vector
> ### Aliases: tabulate_state_vector
>
> ### ** Examples
>
> tabulate_state_vector(security_logs, 30)
Some variables contain more than 50 levels. Only the 10 most popular levels of these variables will be tabulated.
Error: Evaluation error: could not find function "n".
Execution halted
Flavor: r-oldrel-windows-ix86+x86_64
Version: 0.2.5
Check: running examples for arch ‘x64’
Result: ERROR
Running examples in 'anomalyDetection-Ex.R' failed
The error most likely occurred in:
> ### Name: tabulate_state_vector
> ### Title: Tabulate State Vector
> ### Aliases: tabulate_state_vector
>
> ### ** Examples
>
> tabulate_state_vector(security_logs, 30)
Some variables contain more than 50 levels. Only the 10 most popular levels of these variables will be tabulated.
Error: Evaluation error: could not find function "n".
Execution halted
Flavor: r-oldrel-windows-ix86+x86_64
Version: 0.2.5
Check: running tests for arch ‘i386’
Result: ERROR
Running 'testthat.R' [3s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
> library(testthat)
> library(anomalyDetection)
>
> test_check("anomalyDetection")
-- 1. Error: hmat produces a ggplot object (@test_hmat.R#4) -------------------
Evaluation error: could not find function "n".
1: expect_is(hmat(security_logs, block_length = 5), "ggplot") at testthat/test_hmat.R:4
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: hmat(security_logs, block_length = 5)
5: suppressWarnings(suppressMessages(temp <- dplyr::mutate_(tibble::as.tibble(anomalyDetection::mahalanobis_distance(anomalyDetection::mc_adjust(anomalyDetection::tabulate_state_vector(data,
block_length, level_limit, level_keep, partial_block, na.rm), min_var, max_cor,
action), output, normalize)), .dots = list(Block = quote(as.factor(1:n()))))))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: suppressMessages(temp <- dplyr::mutate_(tibble::as.tibble(anomalyDetection::mahalanobis_distance(anomalyDetection::mc_adjust(anomalyDetection::tabulate_state_vector(data,
block_length, level_limit, level_keep, partial_block, na.rm), min_var, max_cor,
action), output, normalize)), .dots = list(Block = quote(as.factor(1:n())))))
8: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
9: dplyr::mutate_(tibble::as.tibble(anomalyDetection::mahalanobis_distance(anomalyDetection::mc_adjust(anomalyDetection::tabulate_state_vector(data,
block_length, level_limit, level_keep, partial_block, na.rm), min_var, max_cor,
action), output, normalize)), .dots = list(Block = quote(as.factor(1:n()))))
10: tibble::as.tibble(anomalyDetection::mahalanobis_distance(anomalyDetection::mc_adjust(anomalyDetection::tabulate_state_vector(data,
block_length, level_limit, level_keep, partial_block, na.rm), min_var, max_cor,
action), output, normalize))
...
14: colnames(data)
15: is.data.frame(x)
16: anomalyDetection::tabulate_state_vector(data, block_length, level_limit, level_keep,
partial_block, na.rm)
17: suppressMessages(popvars <- dplyr::select_(tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values"), ~overflowvars))
18: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
19: dplyr::select_(tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values"), ~overflowvars)
20: tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values")
21: dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n())))
22: mutate_.tbl_df(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n())))
23: mutate_impl(.data, dots, caller_env())
-- 2. Error: tabulate_state_vector output has correct dimensions (@test_tabulate
Evaluation error: could not find function "n".
1: expect_true(tabulate_state_vector(security_logs, 30) %>% is.data.frame()) at testthat/test_tabulate_state_vector.R:5
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: tabulate_state_vector(security_logs, 30) %>% is.data.frame()
5: eval(lhs, parent, parent)
6: eval(lhs, parent, parent)
7: tabulate_state_vector(security_logs, 30)
8: suppressMessages(popvars <- dplyr::select_(tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values"), ~overflowvars))
9: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
10: dplyr::select_(tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values"), ~overflowvars)
11: tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values")
12: dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n())))
13: mutate_.tbl_df(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n())))
14: mutate_impl(.data, dots, caller_env())
-- 3. Error: tabulate_state_vector computes correctly (@test_tabulate_state_vect
Evaluation error: could not find function "n".
1: expect_equal(tabulate_state_vector(security_logs, 30) %>% .[[1, 1]], 4) at testthat/test_tabulate_state_vector.R:13
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: tabulate_state_vector(security_logs, 30) %>% .[[1, 1]]
5: eval(lhs, parent, parent)
6: eval(lhs, parent, parent)
7: tabulate_state_vector(security_logs, 30)
8: suppressMessages(popvars <- dplyr::select_(tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values"), ~overflowvars))
9: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
10: dplyr::select_(tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values"), ~overflowvars)
11: tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values")
12: dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n())))
13: mutate_.tbl_df(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n())))
14: mutate_impl(.data, dots, caller_env())
== testthat results ===========================================================
OK: 105 SKIPPED: 3 FAILED: 3
1. Error: hmat produces a ggplot object (@test_hmat.R#4)
2. Error: tabulate_state_vector output has correct dimensions (@test_tabulate_state_vector.R#5)
3. Error: tabulate_state_vector computes correctly (@test_tabulate_state_vector.R#13)
Error: testthat unit tests failed
Execution halted
Flavor: r-oldrel-windows-ix86+x86_64
Version: 0.2.5
Check: running tests for arch ‘x64’
Result: ERROR
Running 'testthat.R' [3s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
> library(testthat)
> library(anomalyDetection)
>
> test_check("anomalyDetection")
-- 1. Error: hmat produces a ggplot object (@test_hmat.R#4) -------------------
Evaluation error: could not find function "n".
1: expect_is(hmat(security_logs, block_length = 5), "ggplot") at testthat/test_hmat.R:4
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: hmat(security_logs, block_length = 5)
5: suppressWarnings(suppressMessages(temp <- dplyr::mutate_(tibble::as.tibble(anomalyDetection::mahalanobis_distance(anomalyDetection::mc_adjust(anomalyDetection::tabulate_state_vector(data,
block_length, level_limit, level_keep, partial_block, na.rm), min_var, max_cor,
action), output, normalize)), .dots = list(Block = quote(as.factor(1:n()))))))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: suppressMessages(temp <- dplyr::mutate_(tibble::as.tibble(anomalyDetection::mahalanobis_distance(anomalyDetection::mc_adjust(anomalyDetection::tabulate_state_vector(data,
block_length, level_limit, level_keep, partial_block, na.rm), min_var, max_cor,
action), output, normalize)), .dots = list(Block = quote(as.factor(1:n())))))
8: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
9: dplyr::mutate_(tibble::as.tibble(anomalyDetection::mahalanobis_distance(anomalyDetection::mc_adjust(anomalyDetection::tabulate_state_vector(data,
block_length, level_limit, level_keep, partial_block, na.rm), min_var, max_cor,
action), output, normalize)), .dots = list(Block = quote(as.factor(1:n()))))
10: tibble::as.tibble(anomalyDetection::mahalanobis_distance(anomalyDetection::mc_adjust(anomalyDetection::tabulate_state_vector(data,
block_length, level_limit, level_keep, partial_block, na.rm), min_var, max_cor,
action), output, normalize))
...
14: colnames(data)
15: is.data.frame(x)
16: anomalyDetection::tabulate_state_vector(data, block_length, level_limit, level_keep,
partial_block, na.rm)
17: suppressMessages(popvars <- dplyr::select_(tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values"), ~overflowvars))
18: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
19: dplyr::select_(tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values"), ~overflowvars)
20: tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values")
21: dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n())))
22: mutate_.tbl_df(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n())))
23: mutate_impl(.data, dots, caller_env())
-- 2. Error: tabulate_state_vector output has correct dimensions (@test_tabulate
Evaluation error: could not find function "n".
1: expect_true(tabulate_state_vector(security_logs, 30) %>% is.data.frame()) at testthat/test_tabulate_state_vector.R:5
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: tabulate_state_vector(security_logs, 30) %>% is.data.frame()
5: eval(lhs, parent, parent)
6: eval(lhs, parent, parent)
7: tabulate_state_vector(security_logs, 30)
8: suppressMessages(popvars <- dplyr::select_(tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values"), ~overflowvars))
9: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
10: dplyr::select_(tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values"), ~overflowvars)
11: tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values")
12: dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n())))
13: mutate_.tbl_df(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n())))
14: mutate_impl(.data, dots, caller_env())
-- 3. Error: tabulate_state_vector computes correctly (@test_tabulate_state_vect
Evaluation error: could not find function "n".
1: expect_equal(tabulate_state_vector(security_logs, 30) %>% .[[1, 1]], 4) at testthat/test_tabulate_state_vector.R:13
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: tabulate_state_vector(security_logs, 30) %>% .[[1, 1]]
5: eval(lhs, parent, parent)
6: eval(lhs, parent, parent)
7: tabulate_state_vector(security_logs, 30)
8: suppressMessages(popvars <- dplyr::select_(tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values"), ~overflowvars))
9: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
10: dplyr::select_(tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values"), ~overflowvars)
11: tidyr::spread_(dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n()))),
"Variables", "Values")
12: dplyr::mutate_(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n())))
13: mutate_.tbl_df(dplyr::group_by_(dplyr::top_n(dplyr::count_(dplyr::group_by_(dplyr::filter_(stats::na.omit(tidyr::gather_(dplyr::select_(data,
~overflowvars), "Variables", "Values", overflowvars)), .dots = ~substr(Values,
1, 1) != "0"), "Variables"), "Values"), level_keep), "Variables"), .dots = list(n = quote(1:n())))
14: mutate_impl(.data, dots, caller_env())
== testthat results ===========================================================
OK: 105 SKIPPED: 3 FAILED: 3
1. Error: hmat produces a ggplot object (@test_hmat.R#4)
2. Error: tabulate_state_vector output has correct dimensions (@test_tabulate_state_vector.R#5)
3. Error: tabulate_state_vector computes correctly (@test_tabulate_state_vector.R#13)
Error: testthat unit tests failed
Execution halted
Flavor: r-oldrel-windows-ix86+x86_64