data-raw/flows.R

In pbsag/outviz: Build Output Tables and Visualizations for Travel Models

flows <- structure(list(
  origin = c(
    450571L, 450571L, 450571L, 450911L, 450911L, 450911L, 450911L, 450911L,
    450912L, 450912L, 450912L, 450912L, 450912L, 450913L, 450913L, 450913L,
    450914L, 450914L, 450914L, 450914L),
  destination = c(
    450571L, 450911L, 450912L,  450571L, 450911L, 450912L, 450913L, 450914L,
    450571L, 450911L,  450912L, 450913L, 450914L, 450911L, 450912L, 450913L,
    450571L, 450911L, 450913L, 450914L),
  flow = c(
    7343.76031494141, 815.5, 2374.62005615234, 1027.76002693176,
    107178.229492188, 3341.03994750977, 1339.87002563477, 2849.02011489868,
    2728.1298828125, 16700.0099487305, 47972.5511474609, 938.200012207031,
    1185.88000488281, 4985.63995361328, 650.150024414062, 18869.8399658203,
    16.7399997711182, 12441.4396972656, 4207.58994007111, 27470.6008300781)),
  class = c("tbl_df", "tbl", "data.frame"),
  row.names = c(NA, -20L), .Names = c("origin", "destination", "flow"))

devtools::use_data(flows)