R script to sample WMATA bus data using the WMATA transparent datasets api