Running ‘test_chartSeries.R’ [1s/1s]
  Running ‘test_getDividends.R’ [1s/1s]
  Running ‘test_getSplits.R’ [1s/1s]
  Running ‘test_getSymbols.R’ [10s/16s]
  Running ‘tests.R’ [1s/2s]
Running the tests in ‘tests/test_getSymbols.R’ failed.
Complete output:
  > library(quantmod)
  Loading required package: xts
  Loading required package: zoo
  
  Attaching package: 'zoo'
  
  The following objects are masked from 'package:base':
  
      as.Date, as.Date.numeric
  
  Loading required package: TTR
  Registered S3 method overwritten by 'quantmod':
    method            from
    as.zoo.data.frame zoo 
  Version 0.4-0 included new data defaults. See ?getSymbols.
  > 
  > # Checks for Alpha Vantage
  > apikey <- Sys.getenv("AV_API_KEY")
  > if (apikey != "") {
  +   ibm_daily_unadj <- getSymbols("IBM", src = "av", api.key = apikey,
  +     adjusted = FALSE, periodicity = "daily", auto.assign = FALSE)
  +   ibm_daily_adj   <- getSymbols("IBM", src = "av", api.key = apikey,
  +     adjusted = TRUE, periodicity = "daily", auto.assign = FALSE)
  +   stopifnot(has.Ad(ibm_daily_adj))
  + 
  +   ibm_weekly_unadj <- getSymbols("IBM", src = "av", api.key = apikey,
  +     adjusted = FALSE, periodicity = "weekly", auto.assign = FALSE)
  +   ibm_weekly_adj   <- getSymbols("IBM", src = "av", api.key = apikey,
  +     adjusted = TRUE, periodicity = "weekly", auto.assign = FALSE)
  +   stopifnot(has.Ad(ibm_weekly_adj))
  + 
  +   ibm_monthly_unadj <- getSymbols("IBM", src = "av", api.key = apikey,
  +     adjusted = FALSE, periodicity = "monthly", auto.assign = FALSE)
  +   ibm_monthly_adj   <- getSymbols("IBM", src = "av", api.key = apikey,
  +     adjusted = TRUE, periodicity = "monthly", auto.assign = FALSE)
  +   stopifnot(has.Ad(ibm_monthly_adj))
  + }
  > 
  > # Checks to ensure caught errors do not prevent other symbols from loading.
  > # Use one symbol that always works (e.g. from disk) and another that fails.
  > data(sample_matrix, package = "xts")
  > IBM <- as.xts(sample_matrix)
  > cn <- c("Open", "High", "Low", "Close")
  > 
  > td <- tempdir()
  > tf <- file.path(td, "IBM.rda")
  > save(IBM, file = tf)
  > tf <- file.path(td, "IBM.csv")
  > write.zoo(IBM, file = tf, sep = ",")
  > rm(IBM)
  > 
  > e <- new.env()
  > 
  > x <- try({
  +   getSymbols("IBM;WYSIWYG", env = e, src = "csv", dir = td, col.names = cn)
  + }, silent = TRUE)
  'getSymbols' currently uses auto.assign=TRUE by default, but will
  use auto.assign=FALSE in 0.5-0. You will still be able to use
  'loadSymbols' to automatically load data. getOption("getSymbols.env")
  and getOption("getSymbols.auto.assign") will still be checked for
  alternate defaults.
  
  This message is shown once per session and may be disabled by setting 
  options("getSymbols.warning4.0"=FALSE). See ?getSymbols for details.
  
  
  file  WYSIWYG.csv  does not exist  in  /tmp/Rtmp7GsWi8 ....skipping
  > stopifnot(exists("IBM", e))
  > rm(IBM, pos = e)
  > 
  > x <- try({
  +   getSymbols("IBM;WYSIWYG", env = e, src = "rda", dir = td, col.names = cn)
  + }, silent = TRUE)
  
  file  WYSIWYG.rda  does not exist  in  /tmp/Rtmp7GsWi8 ....skipping
  > stopifnot(exists("IBM", e))
  > rm(IBM, pos = e)
  > 
  > x <- try({
  +   getSymbols("IBM;WYSIWYG", env = e, src = "yahoo")
  + }, silent = TRUE)
  > stopifnot(exists("IBM", e))
  Error: exists("IBM", e) is not TRUE
  Execution halted