## ------------------------------------------------
## Method `OpenAP$new`
## ------------------------------------------------
# Offline example
obj <- OpenAP$new(mock = TRUE)
# Real initialization (requires internet connection)
if (FALSE) {
openap <- OpenAP$new()
openap_24 <- OpenAP$new(release_year = "2024_10")
}
## ------------------------------------------------
## Method `OpenAP$list_port`
## ------------------------------------------------
# List available portfolios (offline example)
openap <- OpenAP$new(mock = TRUE)
openap$list_port()
# Real usage (internet connection required)
if (FALSE) {
openap <- OpenAP$new()
openap$list_port()
}
## ------------------------------------------------
## Method `OpenAP$dl_port`
## ------------------------------------------------
# Download entire portfolio file (offline example)
openap <- OpenAP$new(mock = TRUE)
df <- openap$dl_port("op")
# Download with specific predictor(s) only
df <- openap$dl_port("op", predictor = "Accruals")
# Real usage (internet connection required)
if (FALSE) {
openap <- OpenAP$new()
df <- openap$dl_port("op", predictor = "Accruals")
df <- openap$dl_port("op", predictor = c("Accruals", "Mom12m"))
}
## ------------------------------------------------
## Method `OpenAP$dl_signal`
## ------------------------------------------------
# Download firm characteristics (offline example)
openap <- OpenAP$new(mock = TRUE)
# Single signal (OpenAP or WRDS)
df <- openap$dl_signal("BM")
# Multiple signals
df <- openap$dl_signal(c("BM", "STreversal"))
# Real usage (requires internet connection)
if (FALSE) {
openap <- OpenAP$new()
df <- openap$dl_signal("BM")
df <- openap$dl_signal(c("BM", "STreversal"))
df <- openap$dl_signal("BM", signed = FALSE)
}
## ------------------------------------------------
## Method `OpenAP$dl_all_signals`
## ------------------------------------------------
# Download all signals (offline example)
openap <- OpenAP$new(mock = TRUE)
signals_data <- openap$dl_all_signals()
# Real usage (requires internet connection)
if (FALSE) {
openap <- OpenAP$new()
signals_data <- openap$dl_all_signals()
}
## ------------------------------------------------
## Method `OpenAP$dl_signal_doc`
## ------------------------------------------------
# Load signal documentation (offline example)
openap <- OpenAP$new(mock = TRUE)
signal_doc <- openap$dl_signal_doc()
# Real usage (requires internet connection)
if (FALSE) {
openap <- OpenAP$new()
signal_doc <- openap$dl_signal_doc()
}
Run the code above in your browser using DataLab