Running ‘testthat.R’ [28s/59s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(tidyquant)
  Loading required package: lubridate
  
  Attaching package: 'lubridate'
  
  The following object is masked from 'package:base':
  
      date
  
  Loading required package: PerformanceAnalytics
  Loading required package: xts
  Loading required package: zoo
  
  Attaching package: 'zoo'
  
  The following objects are masked from 'package:base':
  
      as.Date, as.Date.numeric
  
  
  Attaching package: 'PerformanceAnalytics'
  
  The following object is masked from 'package:graphics':
  
      legend
  
  Loading required package: quantmod
  Loading required package: TTR
  Version 0.4-0 included new data defaults. See ?getSymbols.
  Loading required package: tidyverse
  ── Attaching packages ─────────────────────────────────────── tidyverse 1.2.1 ──
  ✔ ggplot2 2.2.1     ✔ purrr   0.2.4
  ✔ tibble  1.4.2     ✔ dplyr   0.7.4
  ✔ tidyr   0.8.0     ✔ stringr 1.2.0
  ✔ readr   1.1.1     ✔ forcats 0.2.0
  ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
  ✖ lubridate::as.difftime() masks base::as.difftime()
  ✖ lubridate::date()        masks base::date()
  ✖ dplyr::filter()          masks stats::filter()
  ✖ dplyr::first()           masks xts::first()
  ✖ lubridate::intersect()   masks base::intersect()
  ✖ purrr::is_null()         masks testthat::is_null()
  ✖ dplyr::lag()             masks stats::lag()
  ✖ dplyr::last()            masks xts::last()
  ✖ dplyr::matches()         masks testthat::matches()
  ✖ lubridate::setdiff()     masks base::setdiff()
  ✖ lubridate::union()       masks base::union()
  
  Attaching package: 'tidyquant'
  
  The following object is masked from 'package:dplyr':
  
      as_tibble
  
  The following object is masked from 'package:tibble':
  
      as_tibble
  
  > 
  > test_check("tidyquant")
  ── 1. Failure: Test returns tibble with correct rows and columns. (@test_tq_get_
  `test1` inherits from `logical` not `tbl`.
  
  ── 2. Failure: Test returns tibble with correct rows and columns. (@test_tq_get_
  nrow(test1) not equal to 1.
  target is NULL, current is numeric
  
  ── 3. Failure: Test returns tibble with correct rows and columns. (@test_tq_get_
  ncol(test1) not equal to 55.
  target is NULL, current is numeric
  
  ── 4. Error: Test error on invalid data inputs. (@test_tq_mutate.R#142)  ───────
  argument "quo" is missing, with no default
  1: expect_error(a = seq(1:100) %>% tq_mutate(select = NULL, mutate_fun = to.monthly)) at testthat/test_tq_mutate.R:142
  2: quasi_capture(enquo(object), capture_error, label = label)
  3: label %||% quo_label(quo)
  4: quo_label(quo)
  5: expr_label(quo_expr(quo))
  6: quo_expr(quo)
  7: quo_splice(duplicate(quo), warn = warn)
  8: switch_expr(x, language = {
         if (is_quosure(x)) {
             if (!is_false(warn)) {
                 if (is_string(warn)) {
                     msg <- warn
                 }
                 else {
                     msg <- "Collapsing inner quosure"
                 }
                 warn(msg)
                 warn <- FALSE
             }
             while (is_quosure(x)) {
                 x <- f_rhs(x)
             }
             if (!is_null(parent)) {
                 mut_node_car(parent, x)
             }
             quo_splice(x, parent, warn = warn)
         }
         else {
             quo_splice(node_cdr(x), warn = warn)
         }
     }, pairlist = {
         while (!is_null(x)) {
             quo_splice(node_car(x), x, warn = warn)
             x <- node_cdr(x)
         }
     })
  9: expr_type_of(.x)
  10: typeof(x)
  11: duplicate(quo)
  
  ── 5. Error: Test error on invalid data inputs. (@test_tq_transmute.R#121)  ────
  argument "quo" is missing, with no default
  1: expect_error(a = seq(1:100) %>% tq_transmute(select = NULL, mutate_fun = to.monthly)) at testthat/test_tq_transmute.R:121
  2: quasi_capture(enquo(object), capture_error, label = label)
  3: label %||% quo_label(quo)
  4: quo_label(quo)
  5: expr_label(quo_expr(quo))
  6: quo_expr(quo)
  7: quo_splice(duplicate(quo), warn = warn)
  8: switch_expr(x, language = {
         if (is_quosure(x)) {
             if (!is_false(warn)) {
                 if (is_string(warn)) {
                     msg <- warn
                 }
                 else {
                     msg <- "Collapsing inner quosure"
                 }
                 warn(msg)
                 warn <- FALSE
             }
             while (is_quosure(x)) {
                 x <- f_rhs(x)
             }
             if (!is_null(parent)) {
                 mut_node_car(parent, x)
             }
             quo_splice(x, parent, warn = warn)
         }
         else {
             quo_splice(node_cdr(x), warn = warn)
         }
     }, pairlist = {
         while (!is_null(x)) {
             quo_splice(node_car(x), x, warn = warn)
             x <- node_cdr(x)
         }
     })
  9: expr_type_of(.x)
  10: typeof(x)
  11: duplicate(quo)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 149 SKIPPED: 2 FAILED: 5
  1. Failure: Test returns tibble with correct rows and columns. (@test_tq_get_key_stats.R#15) 
  2. Failure: Test returns tibble with correct rows and columns. (@test_tq_get_key_stats.R#17) 
  3. Failure: Test returns tibble with correct rows and columns. (@test_tq_get_key_stats.R#19) 
  4. Error: Test error on invalid data inputs. (@test_tq_mutate.R#142) 
  5. Error: Test error on invalid data inputs. (@test_tq_transmute.R#121) 
  
  Error: testthat unit tests failed
  Execution halted