if (FALSE) {
wrds <- wrds_connect()
# Get company header data
company <- get_company(wrds)
# Get global companies
g_company <- get_company(wrds, region = "global")
# Lazy query
get_company(wrds, lazy = TRUE) |>
dplyr::filter(sic == "7370") |>
dplyr::collect()
wrds_disconnect(wrds)
}
Run the code above in your browser using DataLab