if (FALSE) {
df <- yc_get() |>
filter(curve_name == "PRE") |>
collect()
}
if (FALSE) {
df_yc <- yc_brl_get() |>
filter(refdate == Sys.Date()) |>
collect()
head(df_yc)
}
if (FALSE) {
df_yc_ipca <- yc_ipca_get() |>
filter(refdate == Sys.Date()) |>
collect()
head(df_yc_ipca)
}
if (FALSE) {
df_yc_usd <- yc_usd_get() |>
filter(refdate == Sys.Date()) |>
collect()
head(df_yc_usd)
}
Run the code above in your browser using DataLab