Last updated on 2024-03-28 19:48:42 CET.
Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
---|---|---|---|---|---|---|
r-devel-linux-x86_64-debian-clang | 0.4.26 | 14.50 | 105.55 | 120.05 | NOTE | |
r-devel-linux-x86_64-debian-gcc | 0.4.26 | 15.07 | 76.34 | 91.41 | NOTE | |
r-devel-linux-x86_64-fedora-clang | 0.4.26 | 159.05 | OK | |||
r-devel-linux-x86_64-fedora-gcc | 0.4.26 | 144.62 | OK | |||
r-devel-windows-x86_64 | 0.4.26 | 16.00 | 97.00 | 113.00 | ERROR | |
r-patched-linux-x86_64 | 0.4.26 | 14.54 | 101.61 | 116.15 | NOTE | |
r-release-linux-x86_64 | 0.4.26 | 16.88 | 102.93 | 119.81 | NOTE | |
r-release-macos-arm64 | 0.4.26 | 43.00 | OK | |||
r-release-macos-x86_64 | 0.4.26 | 86.00 | OK | |||
r-release-windows-x86_64 | 0.4.26 | 21.00 | 114.00 | 135.00 | OK | |
r-oldrel-macos-arm64 | 0.4.26 | 43.00 | OK | |||
r-oldrel-windows-x86_64 | 0.4.26 | 23.00 | 122.00 | 145.00 | OK |
Version: 0.4.26
Check: R code for possible problems
Result: NOTE
Found the following calls to attach():
File ‘quantmod/R/attachSymbols.R’:
attach(NULL, pos = pos, name = DB$name)
attach(NULL, pos = pos, name = DB$name)
See section ‘Good practice’ in ‘?attach’.
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.4.26
Check: tests
Result: ERROR
Running 'test_Defaults.R' [1s]
Running 'test_getDividends.R' [1s]
Running 'test_getSplits.R' [0s]
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\RtmpALYu6Q ....skipping
Flavor: r-devel-windows-x86_64