``` df_car <- read_access( city='Curitiba', mode='car', year=2019, peak = F, geometry = TRUE, showProgress = FALSE ) table(df_car$peak) > 1 > 4369 ```