# NOT RUN {
#set your api key as an environmental variable
Sys.setenv(APIKEY511="yourkeyhere")
#if you don't have a key, you can get one here:
#https://511.org/developers/list/tokens/create
operator_df <- xml511_to_tibble()
bart_code <- df1[df1$name=='Bay Area Rapid Transit',]$privatecode
bart_gtfs_data <- get_mtc_511_gtfs(bart_code)
# }
Run the code above in your browser using DataLab