CRAN Package Check Results for Package anomalyDetection

Last updated on 2019-02-22 21:57:31 CET.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 0.2.5 27.03 42.53 69.56 ERROR
r-devel-linux-x86_64-debian-gcc 0.2.5 21.82 82.29 104.11 ERROR
r-devel-linux-x86_64-fedora-clang 0.2.5 94.95 ERROR
r-devel-linux-x86_64-fedora-gcc 0.2.5 88.81 ERROR
r-devel-windows-ix86+x86_64 0.2.5 71.00 80.00 151.00 ERROR
r-patched-linux-x86_64 0.2.5 23.78 74.77 98.55 ERROR
r-patched-solaris-x86 0.2.5 96.90 ERROR
r-release-linux-x86_64 0.2.5 ERROR
r-release-windows-ix86+x86_64 0.2.5 71.00 115.00 186.00 ERROR
r-release-osx-x86_64 0.2.5 NOTE
r-oldrel-windows-ix86+x86_64 0.2.5 51.00 78.00 129.00 ERROR
r-oldrel-osx-x86_64 0.2.5 NOTE

Check Details

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

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
Flavor: r-devel-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
Flavor: r-devel-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
Flavors: r-patched-linux-x86_64, r-release-linux-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) -------------------
     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-release-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) -------------------
     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-release-windows-ix86+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