Running 'test_Defaults.R' [1s]
  Running 'test_getDividends.R' [0s]
  Running 'test_getSplits.R' [1s]
  Running 'test_getSymbols.R' [1s]
  Running 'tests.R' [1s]
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 
  > 
  > # Tests for getSymbols
  > test.web.endpoints <- Sys.getenv("QUANTMOD_TEST_WEB_ENDPOINTS")
  > 
  > if (nzchar(test.web.endpoints)) {
  +   # Checks for Alpha Vantage
  +   apikey <- Sys.getenv("QUANTMOD_AV_API_KEY")
  +   if (nzchar(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))
  + 
  +     Sys.sleep(60) #AV throttles to 5 calls per minute
  + 
  +     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()
  > 
  > # Test getSymbols() works if only passed one symbol that does not have data.
  > x <- try({
  +   getSymbols("IBM;WYSIWYG", env = e, src = "csv", dir = td, col.names = cn)
  + }, silent = TRUE)
  
  file  WYSIWYG.csv  does not exist  in  D:\temp\RtmpWA5ayk ....skipping