Flip wqp inventory and data pull comparisons back

[lindsayplatt]

When running the code for reviewing #69, I got a message about the inventory and the data having different numbers of records. This seemed odd because both had just built within the same 10 minute span. I dug into the summarize_wqp_data() function and found that the records and sites for what was downloaded and what was inventoried were recently switched by accident. So, we are comparing the excpected number of records to the downloaded number of sites and vice versa.

A simple flip of these two object names will solve the problem!

compare_summaries <- wqp_summary %>%
    left_join(wqp_inventory_summary, by = "CharacteristicName") %>% 
    mutate(results_diff = n_records_expected - n_records,
           sites_diff = n_sites_expected - n_sites)

[lekoenig]

lol it was me 😱