if (FALSE) {
library(DBI)
library(dplyr, warn.conflicts = FALSE)
pg <- dbConnect(RPostgres::Postgres())
get_trading_dates(pg) %>%
filter(between(date, as.Date("2022-03-18"), as.Date("2022-03-31")))
}
Run the code above in your browser using DataLab