R Under development (unstable) (2024-02-12 r85894 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2024 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> av.key <- Sys.getenv("QUANTMOD_AV_API_KEY")
> tiingo.key <- Sys.getenv("QUANTMOD_TIINGO_API_KEY")
> test.web.endpoints <- Sys.getenv("QUANTMOD_TEST_WEB_ENDPOINTS")
> 
> # Call as.zoo before quantmod is loaded and registers its S3 method
> dc <- c("2015-01-01", "2016-01-01", "2017-01-01")
> dd <- as.Date(dc)
> 
> f <- data.frame(a = 1:3)
> r <- f
> rownames(r) <- dc
> 
> zz.f.date <- zoo::as.zoo(f, order.by = dd)
> zz.f.char <- zoo::as.zoo(f, order.by = dc)
> zz.f <- zoo::as.zoo(f)
> 
> zz.r.date <- zoo::as.zoo(r, order.by = dd)
> zz.r.char <- zoo::as.zoo(r, order.by = dc)
> zz.r <- zoo::as.zoo(r)
> 
> 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 
> 
> ### quantmod:::as.zoo.data.frame
> 
> # should be the same as zoo:::as.zoo.data.frame when order.by is provided
> stopifnot(identical(zz.f.char, as.zoo(f, order.by = dc)))

NOTE: quantmod::as.zoo.data.frame() is deprecated
  Use as.zoo(x, order.by = as.Date(rownames(x))) instead.
  This note is printed once. To see it for every call, set
  options(quantmod.deprecate.as.zoo.data.frame = TRUE)

> stopifnot(identical(zz.f.date, as.zoo(f, order.by = dd)))
> stopifnot(identical(zz.r.char, as.zoo(r, order.by = dc)))
> stopifnot(identical(zz.r.date, as.zoo(r, order.by = dd)))
> 
> if (nzchar(test.web.endpoints)) {
+   # should throw an error
+   errorKey <- "d116c846835e633aacedb1a31959dd2724cd67b8"
+   x <- try(
+            quantmod::getSymbols("AAPL", src = "tiingo", data.type = "csv", api.key = errorKey)
+            , silent = TRUE)
+   stopifnot(inherits(x, "try-error"))
+   x <- try(
+            quantmod::getSymbols("AAPL", src = "tiingo", data.type = "json", api.key = errorKey)
+            , silent = TRUE)
+   stopifnot(inherits(x, "try-error"))
+ 
+   syms <- c("SPY", "WYSIWYG")
+   symstr <- paste(syms, collapse = ";")
+   x <- try(getQuote(symstr, src = "yahoo"), silent = TRUE)
+   stopifnot(inherits(x, "data.frame") && all(rownames(x) == syms))
+   stopifnot(!is.na(x["SPY", "Last"]) && is.na(x["WYSIWYG", "Last"]))
+ 
+   #test batch handling
+   x <- getQuote(c("SPY", paste0(LETTERS, 1:199), "IWM"), src = "yahoo")
+   stopifnot(inherits(x, "data.frame") && nrow(x) == 201L)
+ 
+   if (av.key != "") {
+     x <- try(getQuote(symstr, src = "av", api.key = av.key), silent = TRUE)
+     stopifnot(inherits(x, "data.frame") && all(rownames(x) == syms))
+   }
+   if (tiingo.key != "") {
+     x <- try(getQuote(symstr, src = "tiingo", api.key = tiingo.key), silent = TRUE)
+     stopifnot(inherits(x, "data.frame") && all(rownames(x) == syms))
+   }
+ 
+   # ensure symbol order is preserved
+   syms <- sample(c("SPY", "TLT", "IWM", "QQQ", "WYSIWYG"))
+   x <- try(getQuote(syms, src = "yahoo"), silent = TRUE)
+   stopifnot(inherits(x, "data.frame") && all(rownames(x) == syms))
+ }
> 
> proc.time()
   user  system elapsed 
   0.18    0.12    0.31