if (FALSE) {
df_yc <- yc_mget(first_date = Sys.Date() - 5, last_date = Sys.Date())
head(df_yc)
}
if (FALSE) {
df_yc <- yc_get(Sys.Date())
head(df_yc)
}
if (FALSE) {
df_yc_ipca <- yc_ipca_mget(
first_date = Sys.Date() - 5,
last_date = Sys.Date()
)
head(df_yc_ipca)
}
if (FALSE) {
df_yc_ipca <- yc_ipca_get(Sys.Date())
head(df_yc_ipca)
}
if (FALSE) {
df_yc_usd <- yc_usd_mget(
first_date = Sys.Date() - 5,
last_date = Sys.Date()
)
head(df_yc_usd)
}
if (FALSE) {
df_yc_usd <- yc_usd_get(Sys.Date())
head(df_yc_usd)
}
Run the code above in your browser using DataLab