1 Introduction to data hell

Our goal is to download, import, and clean up the files posted at California Office of Statewide Health Planning and Development Hospital Quarterly Financial and Utilization Data Files from 2000-2015. The end result should be a data frame with one row per hospital per year and over 100 columns of information, set up so that I could easily do whatever analysis I wanted with it.

The data of interest are provided in files grouped annually for 2000-2015. Someone studying public spending on healthcare over this time period would be interested in these data. For example, an analyst might want to look at time trends on spending within each hospital, examine hospital characteristics (like size, affiliation) and their relationship with expenditures, or compute total hospital spending by city or county within each year.

This seems straightforward, but turns out to be challenging due to surprise inconsistencies in how this agency prepared the Excel files. It took me about 10 hours to figure everything out and write this up, and I didn’t even do any actual analysis! This is slightly more complex than typical data issues I encounter, but it’s an “in the wild” example of manageable size, and worth studying to see how you can solve issues as they pop up.

1.1 Conceptual takeaways

Some lessons you can take away from reading through this:

Using looping really does save us a lot of repetition when it’s working right! Imagine if you had copied and pasted code and made changes for each year: use functions to read in 2000, use functions for 2001, etc. Even the most saintly among us would probably forget to change something somewhere.
However, there are some one-off problems to deal with, and you will spend most of your time dealing with exceptions to the rule. In this case, we have a conspiracy of human-introduced inconsistencies in file names, column names, column formatting, manually “blanked” cells in Excel, and undocumented extra columns.
The R functions and packages we use help a lot in avoiding manual typing out of things, but the readxl package — like many others in R — is still in relatively early development. It shows some limitations here in handling certain aspects of these spreadsheets that drive me to seek less-than-elegant solutions.
Excel is great for entering in data by-hand, but is a very poor format for transmitting data. Much of my time in this process was spent dealing with Excel-specific issues (primarily where it thinks the “last cell” is) that would not have arisen if the files had been provided as flat text CSVs in the first place.

In this case, I could have done this all more quickly by: downloading each of the files individually, opening them up one-by-one in Excel, creating a “master” Excel file, manually pasting in the data from each one of the files into the master file, fixing up column type issues within Excel, exporting this to a single CSV, and importing the CSV into R. However, this is an unappealing solution:

It does not provide documentation of my process: copying/pasting data or manually telling Excel to export to CSV doesn’t leave a digital “trail” behind. You’d have to take my word for what I said I did. Maybe I am a liar, very sloppy, or not forthcoming! Writing code automatically documents your process.
It provides many opportunities for additional human error (like the Reinhart and Rogoff failure to drag the Excel formula all the way down). For example, maybe I thought I copied data for 2009, and tried to paste it at the bottom of the master spreadsheet. However, I hit a wrong key and the copying didn’t work, and instead I end up pasting 2008’s data twice without noticing.
I would need to be smart about running checks on the data to detect issues like the above. I might not notice there was a problem like the above until after I already have the data in and I make a plot by year and see zero data for 2009.
If I do make a mistake and find it late in the process, I might have to re-do everything about to fix it since it might not be obvious where I screwed up. With R, you just need to change a few lines of code.

Goofus and Gallant sharing data

2 Downloading the data automatically

The first step: get the data off the web and onto my computer in a folder called “Downloaded_data”, which has the same parent folder as the working directory I set using RStudio project options. I’m going to load some libraries in anticipation of future tasks:

library(readxl)
library(dplyr)
library(lubridate)

2.1 URL patterns

Let’s examine all the URLs for the 2000-2015 data to identify patterns and figure out an efficient way to write a loop.

If we were lucky, these would all follow a regular pattern. We are not completely lucky, and here’s what I observe:

All files are inside a web directory of the form http://oshpd.ca.gov/hid/Products/Hospitals/QuatrlyFinanData/Qtr[YEAR] where we replace [YEAR] with the appropriate year, so this part is consistent.
All files have extension .xls, also consistent (they could have but did not switch to .xlsx).
Files for 2000, 2002, 2004, and 2005 are named in pattern [YEAR]_R4Q4_Rev5-07.
File for 2001 is named 2001_R4Q4_Rev5-07_1.
File for 2003 has a typo in the name vs. the pattern from 2000, 2002, 2004, and 2005: 2003_R4QR_Rev5-07. (It’s subtle – do you see it?) Oops!
Files for 2006, 2007, 2009, and 2013 are named in pattern [YEAR]_Q4R4.
File for 2008 named 2008Q4R4_Revised.
File for 2010 named 2010_Q4R4_Rev2.
File for 2011 and 2012 named [YEAR]R4_Q4.
File for 2014 and 2015 named [YEAR]_R4_Q4.
Place your bets on the file name for 2016?

What would make sense here is to use a bit of looping to generate these URLs without a ton of copying and pasting by piecing together the parts that do follow a consistent pattern with the parts that don’t, which I’ll use conditional logic to control. Then when I download these spreadsheets, I’ll rename the files something better and consistent for posterity: CA_OSHPD_utilization_[YEAR].xls, inside a folder called Downloaded_data. That will make reading the data in after downloading simpler, in theory.

2.2 Easy part: making the file names to use for saving

Let’s make a vector of the new file names to use (i.e. what will I call the downoaded files). Usually when you download by hand it just gives files the same name they came with, but when you download programmatically, you have a choice. Let’s make good choices, or at least better ones than the people who prepared the data made.

To do this, I will use the paste0 function, which takes character strings (or numbers to convert to characters) and then smushes them together into a single string with no separator. paste0 uses R’s recycling, so giving it [character vector of length 1] + [vector of years] + [character vector of length 1] will give us a vector as long as the number of years where the character vectors are all repeated.

years <- 2000:2015
extension <- ".xls"
# On Rebecca's computer: working directory is Lectures folder.
# This path goes one level up from there (that's the .. part),
# and then into a folder called Downloaded_data.
# You will need to create or modify these directories based on
# where you are doing things!!
(new_filenames <- paste0("../Downloaded_data/CA_OSHPD_utilization_", years, extension))

##  [1] "../Downloaded_data/CA_OSHPD_utilization_2000.xls"
##  [2] "../Downloaded_data/CA_OSHPD_utilization_2001.xls"
##  [3] "../Downloaded_data/CA_OSHPD_utilization_2002.xls"
##  [4] "../Downloaded_data/CA_OSHPD_utilization_2003.xls"
##  [5] "../Downloaded_data/CA_OSHPD_utilization_2004.xls"
##  [6] "../Downloaded_data/CA_OSHPD_utilization_2005.xls"
##  [7] "../Downloaded_data/CA_OSHPD_utilization_2006.xls"
##  [8] "../Downloaded_data/CA_OSHPD_utilization_2007.xls"
##  [9] "../Downloaded_data/CA_OSHPD_utilization_2008.xls"
## [10] "../Downloaded_data/CA_OSHPD_utilization_2009.xls"
## [11] "../Downloaded_data/CA_OSHPD_utilization_2010.xls"
## [12] "../Downloaded_data/CA_OSHPD_utilization_2011.xls"
## [13] "../Downloaded_data/CA_OSHPD_utilization_2012.xls"
## [14] "../Downloaded_data/CA_OSHPD_utilization_2013.xls"
## [15] "../Downloaded_data/CA_OSHPD_utilization_2014.xls"
## [16] "../Downloaded_data/CA_OSHPD_utilization_2015.xls"

I put parentheses around the object assignment so that it makes new_filenames and then shows me what new_filenames is. The output from the above looks good: I’ve made a vector of names to give the downloaded files that is very nice and consistent.

2.3 Using `for` loops and `if` to generate URLs

Now that we know what we’ll call the downloaded files, let’s make a vector of the actual URLs to download from. We’ll try to avoid manual repetition by making a variable that stores the common part of the URL, and a variable that captures the stuff that does change, and paste0ing it all together:

# the common part for everything
base_url <- "http://oshpd.ca.gov/hid/Products/Hospitals/QuatrlyFinanData/Qtr"

# initialize (pre-allocate) vector for the urls
urls <- character(length(years))

# give its entries names so we don't have to refer to the index
# like 1, 2, 3, ... but rather "2000", "2001", "2002", ...
names(urls) <- years

# loop over years:
for(yr in years) {
    # depending on the year, there's a part of the filename that
    # changes which we figured out by looking at patterns
    # call this changing part "nm"
    if(yr %in% c(2000, 2002, 2004:2005)) {
        nm <- "_R4Q4_Rev5-07"
    } else if(yr == 2001) {
        nm <- "_R4Q4_Rev5-07_1"
    } else if(yr == 2003) {
        nm <- "_R4QR_Rev5-07"
    } else if(yr %in% c(2006:2007, 2009, 2013)) {
        nm <- "_Q4R4"
    } else if(yr == 2008) {
        nm <- "Q4R4_Revised"
    } else if(yr == 2010) {
        nm <- "_Q4R4_Rev2"
    } else if(yr %in% 2011:2012) {
        nm <- "R4_Q4"
    } else if(yr %in% 2014:2015) {
        nm <- "_R4_Q4"
    }
    # now combine all the pieces of the URL to get the full one
    # the "yr" and "nm" parts are what change in the loop
    # urls[as.character(yr)] takes the yr, makes it a character,
    # and then treats that as a name in the named vector urls
    # e.g. if yr is 2000, then as.character(yr) is "2000"
    # so that's pointing to urls["2000"]
    urls[as.character(yr)] <- paste0(base_url, yr, "/", yr, nm, extension)
}
urls

##                                                                                          2000 
##   "http://oshpd.ca.gov/hid/Products/Hospitals/QuatrlyFinanData/Qtr2000/2000_R4Q4_Rev5-07.xls" 
##                                                                                          2001 
## "http://oshpd.ca.gov/hid/Products/Hospitals/QuatrlyFinanData/Qtr2001/2001_R4Q4_Rev5-07_1.xls" 
##                                                                                          2002 
##   "http://oshpd.ca.gov/hid/Products/Hospitals/QuatrlyFinanData/Qtr2002/2002_R4Q4_Rev5-07.xls" 
##                                                                                          2003 
##   "http://oshpd.ca.gov/hid/Products/Hospitals/QuatrlyFinanData/Qtr2003/2003_R4QR_Rev5-07.xls" 
##                                                                                          2004 
##   "http://oshpd.ca.gov/hid/Products/Hospitals/QuatrlyFinanData/Qtr2004/2004_R4Q4_Rev5-07.xls" 
##                                                                                          2005 
##   "http://oshpd.ca.gov/hid/Products/Hospitals/QuatrlyFinanData/Qtr2005/2005_R4Q4_Rev5-07.xls" 
##                                                                                          2006 
##           "http://oshpd.ca.gov/hid/Products/Hospitals/QuatrlyFinanData/Qtr2006/2006_Q4R4.xls" 
##                                                                                          2007 
##           "http://oshpd.ca.gov/hid/Products/Hospitals/QuatrlyFinanData/Qtr2007/2007_Q4R4.xls" 
##                                                                                          2008 
##    "http://oshpd.ca.gov/hid/Products/Hospitals/QuatrlyFinanData/Qtr2008/2008Q4R4_Revised.xls" 
##                                                                                          2009 
##           "http://oshpd.ca.gov/hid/Products/Hospitals/QuatrlyFinanData/Qtr2009/2009_Q4R4.xls" 
##                                                                                          2010 
##      "http://oshpd.ca.gov/hid/Products/Hospitals/QuatrlyFinanData/Qtr2010/2010_Q4R4_Rev2.xls" 
##                                                                                          2011 
##           "http://oshpd.ca.gov/hid/Products/Hospitals/QuatrlyFinanData/Qtr2011/2011R4_Q4.xls" 
##                                                                                          2012 
##           "http://oshpd.ca.gov/hid/Products/Hospitals/QuatrlyFinanData/Qtr2012/2012R4_Q4.xls" 
##                                                                                          2013 
##           "http://oshpd.ca.gov/hid/Products/Hospitals/QuatrlyFinanData/Qtr2013/2013_Q4R4.xls" 
##                                                                                          2014 
##          "http://oshpd.ca.gov/hid/Products/Hospitals/QuatrlyFinanData/Qtr2014/2014_R4_Q4.xls" 
##                                                                                          2015 
##          "http://oshpd.ca.gov/hid/Products/Hospitals/QuatrlyFinanData/Qtr2015/2015_R4_Q4.xls"

Looks good, yeah?

3 Downloading the files

Now let’s download these files using a loop, from the right URL and saving in the right filename, printing a warning if one of the years didn’t work. We’ll use the download.file command for this. We have to tell it where to download from (url =), where to save (destfile =) using relative paths, and how to write the file (mode =). The operating system needs to write the file with a different mode depending if it’s something like plain text (which you can look at and what you see is what you get) or something more complicated like a special document type or program. Use mode = "w" when downloading plain text (e.g. CSVs), and mode ="wb" when downloading files that only open in something special (like Excel).

When we use download.file, it downloads the file (duh), but this happens outside of R and doesn’t make a new object — it’s just dropping it on your hard drive. The R object download.file does return is an integer that lets you know if everything is okay (0 is okay, anything else is bad). We’ll store that integer to a temporary variable called file_check so that we can make sure things went fine.

for(i in seq_along(urls)) {
    # download the Excel files:
    # mode "wb" means to write a binary file (like Excel or zip)
    # for plain text like a csv, use "w" instead
    file_check <- download.file(url = urls[i],
                                destfile = new_filenames[i],
                                mode = "wb")
    # value returned from download.file is 0 if everything worked
    if(file_check != 0) {
        print(paste0(years[i], " did not work, uh oh!"))
    }
}

Thanks to being careful with the detail in the URLs, this worked! If it hadn’t, I would have gotten an error message on one of the years, and so I would have to double-check that the URL was really what I wanted.

4 Reading in the data

4.1 A simple first attempt

Now I have files saved locally in Downloaded_data. Next, I want to import these Excel files into R.

The obvious thing to do is use the read_excel function from the readxl package to read each file into a data frame. But I still need to loop over each file from 2000 through 2015, and I don’t want to make a bunch of extra data frames lying around and have to give each its own special name. A good way to organize this is to make a list object to hold each data frame, so I’ll do that and call it yearly_frames. I’ll give yearly_frames names (using the years for each slot) in case it’s useful later.

One thing that could go wrong is I might accidentally point to a file that doesn’t exist because something had gotten bungled earlier. I’m checking for this before I try read_excel, just to be extra safe.

# pre-allocate a list for the data for each year
yearly_frames <- vector("list", length(urls))
# give names to these for easier indexing
names(yearly_frames) <- years

for(i in seq_along(new_filenames)) {
    # extra check that file exists
    if(file.exists(new_filenames[i])) {
        yearly_frames[[i]] <- read_excel(new_filenames[i])
    }
}

## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 c3 01 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 c3 01 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 c3 01 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 c3 01 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bf 01 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bf 01 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bf 01 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bf 01 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 00 00 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 00 00 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 00 00 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 00 00 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [187, 13] got `(661) 326-2000`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [437, 13] got `(909) 275-8400`

## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [272, 13] got `(909) 275-8400`

This doesn’t look good!

The abundant DEFINEDNAME: messages turn out not to be errors, but appears to convey the readxl package’s confusion over some cells in the Excel spreadsheet apparently having cell names. That’s a thing you can do in Excel, in case you’ve never seen it before. These cell names are meta-information that will not make it into our data, which is fine in this case. I found this out by Googling DEFINEDNAME: and read_excel, and it turns out this a known issue with this package (see here). Sometimes we just get weird stuff in R output and have to deal with it, and this looks like one of those times.

4.2 Trying to fix column types

The bigger issue is the warning about column type issues that come up at the end: in particular, a phone number (column 13, based on the output) in some year that was treated as numeric but should not have been because phone numbers aren’t really numeric even though they sure sound like it.

So, at this point I want to re-do this loop, but now I’m adding in extra arguments to read_excel to be consistent about the column types for each year since read_excel may be guessing wrong when the values are inconsistently formatted or should really be characters but look like numbers (e.g. with ID numbers).

This means going to the data documention PDF and looking at the columns to figure out what should be character and what should be numeric. The first two columns are identifiers (number and name), and should be character. Columns 4 and 5 are dates. Columns 6-17 should be character. The rest of the 121 columns appear to be numeric quantities, mostly dollar amounts or counts.

The documentation for read_excel (using ?read_excel to pull up the help) indicates we can pass a character vector to the col_types argument containing "blank", "numeric", "date" or "text" as its entries, with each entry corresponding to a column.

Note: this is different than what we saw in Week 5 when we used the read_csv function from readr to bring in the Billboard Hot 100 data. The conceptual idea is the same, but there we wanted a single string (i.e. character vector of length 1) that encoded what happened to each column like "ccciDiiiii" or something. What read_csv looks for is apparently different, probably to keep us on our toes and stave off dementia.

The code below makes a nice character vector the specifies the type for each column in order:

OSHPD_col_types <- c("text", "text", "numeric", "date", "date",
                     rep("text", 17 - 6 + 1),
                     rep("numeric", 121 - 17))

Let’s try reading in the files again using col_types. This time, anticipating potential further issues, I’ll make the loop print messages if there are problems. Putting in print statements into your loop to give you status updates is often a good idea!

for(i in seq_along(new_filenames)) {
    # extra check that file exists
    if(file.exists(new_filenames[i])) {
        print(paste0("Now trying ", years[i]))
        yearly_frames[[i]] <- read_excel(new_filenames[i],
                                         col_types = OSHPD_col_types)
    }
}

## [1] "Now trying 2000"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## [1] "Now trying 2001"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## [1] "Now trying 2002"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## [1] "Now trying 2003"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## [1] "Now trying 2004"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## [1] "Now trying 2005"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## [1] "Now trying 2006"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## [1] "Now trying 2007"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 c3 01 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 c3 01 00 00 78 00 
## [1] "Now trying 2008"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bf 01 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bf 01 00 00 78 00 
## [1] "Now trying 2009"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 00 00 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 00 00 00 00 78 00 
## [1] "Now trying 2010"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## [1] "Now trying 2011"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## [1] "Now trying 2012"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## [1] "Now trying 2013"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00

## Error in eval(expr, envir, enclos): `col_names` and `col_types` must have the same length

4.3 2013: “`col_names` and `col_types` must have the same length”

That error message we just got seems to suggest that things were going okay until the 2013 file has an unexpected number of columns (or some other reason for getting a mismatch between number of column types and the column names), and that’s breaking things. So let’s look at this year on its own without saying what col_types is to get to the bottom of this (note that current value of i is where the loop broke so this gets me 2013 as intended):

plain_2013 <- read_excel(new_filenames[i])

## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00

ncol(plain_2013) == length(OSHPD_col_types)

## [1] TRUE

When I compare the number of columns on the file I read in with the number of columns I said to read in for col_types, those appear to match.

What about the names of the columns in 2013, could something be up there? I’ll look at how long the names are when I read it in on its own without col_types, and how they compare to a file that worked when I did set col_types (specifically, the first file, for year 2000). I’m using all.equal to compare the two character vectors:

length(colnames(plain_2013)) == length(OSHPD_col_types)

## [1] TRUE

all.equal(colnames(plain_2013), colnames(yearly_frames[[1]]))

## [1] "115 string mismatches"

4.3.1 A side journey into column name inconsistencies

Doesn’t look like anything is wrong with how many columns there are, though the names don’t match those from the first file we read in (data for 2000) — why?! Let’s just look at the first few column names:

head(colnames(plain_2013), 10)

##  [1] "FAC NO"      "FAC NAME"    "YEAR QTR"    "BEG DATE"    "END DATE"   
##  [6] "OP STATUS"   "COUNTY NAME" "HSA"         "HFPA"        "TYPE CNTRL"

head(colnames(yearly_frames[[1]]), 10)

##  [1] "FAC_NO"      "FAC_NAME"    "YEAR_QTR"    "BEG_DATE"    "END_DATE"   
##  [6] "OP_STATUS"   "COUNTY_NAME" "HSA"         "HFPA"        "TYPE_CNTRL"

It looks like the first year of data used underscores in the column names in the original file, while this weird 2013 file had spaces instead. That shouldn’t be related to the problems I’m having because I’m not combining things yet, but does mean I should manually specify the column names as well as types when reading the data in to get consistency across years. (Inconsistency in column names would be a big problem when we try to combine everything because then R doesn’t want to match up like column with like column!) So going forward, I’ll use the names as set up in 2000 for every year.

4.4 Back to 2013: messing with `col_names` and `col_types`

After more digging into how the read_excel function determines col_names, we can try saying col_names = FALSE to not use any for this file, and see if that provides any clues into our errors:

names_types_2013 <- read_excel(new_filenames[i],
                               col_names = FALSE,
                               col_types = OSHPD_col_types)

## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00

## Error in eval(expr, envir, enclos): `col_names` and `col_types` must have the same length

That got us back to our previous error message from when we had only set col_types. I don’t really know what I’m doing, so just experimenting, maybe we can use the col_names from the first year of data?

names_types_2013_2 <- read_excel(new_filenames[i],
                                 col_names = colnames(yearly_frames[[1]]),
                                 col_types = OSHPD_col_types)

## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00

## Error in eval(expr, envir, enclos): Need one name and type for each column

This is a slightly different error message than before. What gives?!

4.5 “Fake blank” cells of doom

Googling this new error message Error: Need one name and type for each column, I encounter a suggestion here that there may be blank columns in the Excel file causing it. (You can also see in that github thread that I raised this issue for our data with the readxl package author.) When I open up the file, I don’t see any blank columns, but there could be some on the right side of the data.

You might be thinking, I don’t see any data past column DQ, which is the 121st column, and that is how many things I want to read in. Why is this a problem? Well, this is some Excel-specific nonsense: there was some data in columns after DQ at some point in this spreadsheet’s history, but they were blanked out by a person, though not deleted. Excel treats these columns as if they have data in them. They clearly don’t any longer, but read_excel is still getting a signal from Excel making it think there’s something all the way over there to be read in. Confusing? Very!

How can we figure this out since we can’t see a blank column? If we press Command-fn-Right arrow on a Mac laptop in Excel, (Cntl-End on a full Windows keyboard), it jumps to what Excel believes is the last cell. Do so for the 2013 data, and you see this is indeed one column over from the visible range of the data.

So yes, this column to the right of where we think our data stops is actually a “fake blank” column that we’ll need to account for. Thus, we should be able to get the import to work if add an entry for one more column as type "blank" for 2013. read_excel will then drop this "blank" column automatically without complaining. We can combine this with the rest of the column types using c().

blanks_2013 <- read_excel("../Downloaded_data/CA_OSHPD_utilization_2013.xls",
                          col_types = c(OSHPD_col_types, "blank"))

## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00

dim(blanks_2013)

## [1] 444 121

4.6 Whack-a-mole in 2014 and 2015

Victory! Now I just have to make a change in the loop for 2013’s columns to add conditional logic to deal with one more entry to the col_types for that stupid blank column. Also, for consistency, I want to manually specify column names and skip the header row for each file with skip = 1. (Before, it was using the header row just to get the column names, but now I don’t want it to do that since they change from file to file, so we need to tell read_excel to skip it.)

Brace yourself for several hundred lines of errors to scroll past:

# set the column names based on the first year of data previously read in
OSHPD_col_names <- colnames(yearly_frames[[1]])

for(i in seq_along(new_filenames)) {
    if(file.exists(new_filenames[i])) {
        print(paste0("Now trying ", years[i]))
        # set column names and types for standardized import
        cnames <- OSHPD_col_names
        ctypes <- OSHPD_col_types
        # 2013 is a special case -- add one more column
        if(years[i] == 2013) {
            cnames <- c(OSHPD_col_names, "missing")
            ctypes <- c(OSHPD_col_types, "blank")
        }
        yearly_frames[[i]] <- read_excel(new_filenames[i],
                                         col_names = cnames,
                                         col_types = ctypes,
                                         skip = 1) # ignore header
    }
}

## [1] "Now trying 2000"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## [1] "Now trying 2001"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## [1] "Now trying 2002"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## [1] "Now trying 2003"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## [1] "Now trying 2004"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## [1] "Now trying 2005"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## [1] "Now trying 2006"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## [1] "Now trying 2007"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 c3 01 00 00 78 00 
## [1] "Now trying 2008"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bf 01 00 00 78 00 
## [1] "Now trying 2009"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 00 00 00 00 78 00 
## [1] "Now trying 2010"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## [1] "Now trying 2011"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## [1] "Now trying 2012"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## [1] "Now trying 2013"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## [1] "Now trying 2014"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [1, 18] got `199.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [2, 18] got `49.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [3, 18] got `223.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [4, 18] got `281.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [5, 18] got `144.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [6, 18] got `458.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [7, 18] got `504.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [8, 18] got `306.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [9, 18] got `66.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [10, 18] got `156.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [11, 18] got `420.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [12, 18] got `456.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [13, 18] got `1275.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [14, 18] got `95.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [15, 18] got `134.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [16, 18] got `118.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [17, 18] got `80.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [18, 18] got `87.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [19, 18] got `47.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [20, 18] got `426.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [21, 18] got `60.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [22, 18] got `25.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [23, 18] got `105.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [24, 18] got `30.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [25, 18] got `111.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [26, 18] got `30.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [27, 18] got `100.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [28, 18] got `224.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [29, 18] got `97.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [30, 18] got `45.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [31, 18] got `16.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [32, 18] got `319.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [33, 18] got `951.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [34, 18] got `228.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [35, 18] got `106.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [36, 18] got `68.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [37, 18] got `12.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [38, 18] got `886.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [39, 18] got `369.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [40, 18] got `49.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [41, 18] got `100.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [42, 18] got `114.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [43, 18] got `356.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [44, 18] got `568.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [45, 18] got `54.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [46, 18] got `279.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [47, 18] got `190.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [48, 18] got `29.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [49, 18] got `54.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [50, 18] got `126.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [51, 18] got `518.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [52, 18] got `217.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [53, 18] got `123.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [54, 18] got `1500.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [55, 18] got `117.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [56, 18] got `178.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [57, 18] got `187.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [58, 18] got `122.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [59, 18] got `157.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [60, 18] got `25.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [61, 18] got `48.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [62, 18] got `81.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [63, 18] got `208.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [64, 18] got `258.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [65, 18] got `347.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [66, 18] got `208.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [67, 18] got `242.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [68, 18] got `808.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [69, 18] got `146.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [70, 18] got `238.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [71, 18] got `16.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [72, 18] got `16.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [73, 18] got `16.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [74, 18] got `16.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [75, 18] got `16.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [76, 18] got `16.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [77, 18] got `202.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [78, 18] got `166.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [79, 18] got `156.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [80, 18] got `385.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [81, 18] got `148.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [82, 18] got `73.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [83, 18] got `46.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [84, 18] got `459.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [85, 18] got `124.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [86, 18] got `251.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [87, 18] got `199.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [88, 18] got `371.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [89, 18] got `127.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [90, 18] got `76.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [91, 18] got `130.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [92, 18] got `476.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [93, 18] got `443.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [94, 18] got `161.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [95, 18] got `16.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [96, 18] got `209.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [97, 18] got `150.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [98, 18] got `298.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [99, 18] got `28.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [100, 18] got `1218.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [101, 18] got `146.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [102, 18] got `100.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [103, 18] got `105.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [104, 18] got `400.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [105, 18] got `25.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [106, 18] got `96.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [107, 18] got `103.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [108, 18] got `57.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [109, 18] got `27.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [110, 18] got `167.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [111, 18] got `107.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [112, 18] got `210.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [113, 18] got `55.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [114, 18] got `119.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [115, 18] got `515.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [116, 18] got `334.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [117, 18] got `128.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [118, 18] got `47.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [119, 18] got `122.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [120, 18] got `154.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [121, 18] got `408.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [122, 18] got `474.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [123, 18] got `117.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [124, 18] got `181.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [125, 18] got `43.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [126, 18] got `27.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [127, 18] got `66.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [128, 18] got `48.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [129, 18] got `417.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [130, 18] got `238.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [131, 18] got `125.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [132, 18] got `179.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [133, 18] got `475.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [134, 18] got `527.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [135, 18] got `70.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [136, 18] got `434.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [137, 18] got `131.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [138, 18] got `548.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [139, 18] got `9.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [140, 18] got `491.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [141, 18] got `34.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [142, 18] got `156.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [143, 18] got `73.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [144, 18] got `267.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [145, 18] got `572.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [146, 18] got `249.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [147, 18] got `150.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [148, 18] got `269.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [149, 18] got `352.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [150, 18] got `529.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [151, 18] got `106.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [152, 18] got `169.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [153, 18] got `247.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [154, 18] got `319.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [155, 18] got `464.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [156, 18] got `239.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [157, 18] got `71.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [158, 18] got `391.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [159, 18] got `365.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [160, 18] got `350.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [161, 18] got `218.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [162, 18] got `149.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [163, 18] got `248.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [164, 18] got `222.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [165, 18] got `340.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [166, 18] got `287.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [167, 18] got `392.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [168, 18] got `242.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [169, 18] got `216.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [170, 18] got `116.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [171, 18] got `327.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [172, 18] got `173.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [173, 18] got `231.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [174, 18] got `217.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [175, 18] got `120.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [176, 18] got `64.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [177, 18] got `233.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [178, 18] got `305.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [179, 18] got `262.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [180, 18] got `0.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [181, 18] got `0.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [182, 18] got `24.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [183, 18] got `581.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [184, 18] got `411.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [185, 18] got `72.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [186, 18] got `60.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [187, 18] got `222.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [188, 18] got `99.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [189, 18] got `91.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [190, 18] got `86.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [191, 18] got `248.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [192, 18] got `81.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [193, 18] got `91.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [194, 18] got `55.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [195, 18] got `40.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [196, 18] got `70.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [197, 18] got `99.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [198, 18] got `84.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [199, 18] got `109.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [200, 18] got `16.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [201, 18] got `141.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [202, 18] got `453.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [203, 18] got `355.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [204, 18] got `289.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [205, 18] got `676.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [206, 18] got `780.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [207, 18] got `172.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [208, 18] got `67.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [209, 18] got `1286.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [210, 18] got `214.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [211, 18] got `89.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [212, 18] got `881.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [213, 18] got `106.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [214, 18] got `170.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [215, 18] got `458.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [216, 18] got `167.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [217, 18] got `180.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [218, 18] got `404.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [219, 18] got `302.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [220, 18] got `78.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [221, 18] got `106.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [222, 18] got `17.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [223, 18] got `353.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [224, 18] got `16.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [225, 18] got `235.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [226, 18] got `90.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [227, 18] got `48.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [228, 18] got `113.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [229, 18] got `121.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [230, 18] got `172.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [231, 18] got `46.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [232, 18] got `423.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [233, 18] got `25.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [234, 18] got `84.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [235, 18] got `16.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [236, 18] got `432.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [237, 18] got `222.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [238, 18] got `106.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [239, 18] got `33.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [240, 18] got `186.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [241, 18] got `267.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [242, 18] got `370.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [243, 18] got `24.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [244, 18] got `329.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [245, 18] got `400.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [246, 18] got `1054.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [247, 18] got `301.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [248, 18] got `17.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [249, 18] got `145.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [250, 18] got `552.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [251, 18] got `87.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [252, 18] got `49.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [253, 18] got `102.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [254, 18] got `101.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [255, 18] got `405.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [256, 18] got `37.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [257, 18] got `1362.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [258, 18] got `172.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [259, 18] got `34.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [260, 18] got `177.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [261, 18] got `16.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [262, 18] got `190.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [263, 18] got `88.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [264, 18] got `25.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [265, 18] got `409.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [266, 18] got `47.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [267, 18] got `150.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [268, 18] got `358.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [269, 18] got `91.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [270, 18] got `204.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [271, 18] got `218.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [272, 18] got `133.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [273, 18] got `30.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [274, 18] got `231.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [275, 18] got `37.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [276, 18] got `157.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [277, 18] got `51.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [278, 18] got `679.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [279, 18] got `291.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [280, 18] got `193.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [281, 18] got `10.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [282, 18] got `1287.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [283, 18] got `80.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [284, 18] got `107.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [285, 18] got `114.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [286, 18] got `25.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [287, 18] got `236.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [288, 18] got `399.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [289, 18] got `1210.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [290, 18] got `548.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [291, 18] got `213.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [292, 18] got `57.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [293, 18] got `377.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [294, 18] got `356.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [295, 18] got `442.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [296, 18] got `266.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [297, 18] got `414.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [298, 18] got `245.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [299, 18] got `211.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [300, 18] got `520.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [301, 18] got `229.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [302, 18] got `35.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [303, 18] got `249.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [304, 18] got `74.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [305, 18] got `16.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [306, 18] got `233.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [307, 18] got `98.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [308, 18] got `372.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [309, 18] got `439.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [310, 18] got `466.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [311, 18] got `50.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [312, 18] got `325.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [313, 18] got `269.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [314, 18] got `279.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [315, 18] got `301.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [316, 18] got `101.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [317, 18] got `598.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [318, 18] got `273.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [319, 18] got `71.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [320, 18] got `254.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [321, 18] got `16.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [322, 18] got `196.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [323, 18] got `62.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [324, 18] got `93.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [325, 18] got `16.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [326, 18] got `509.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [327, 18] got `123.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [328, 18] got `510.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [329, 18] got `16.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [330, 18] got `574.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [331, 18] got `265.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [332, 18] got `414.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [333, 18] got `11.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [334, 18] got `173.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [335, 18] got `194.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [336, 18] got `318.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [337, 18] got `684.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [338, 18] got `16.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [339, 18] got `26.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [340, 18] got `189.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [341, 18] got `478.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [342, 18] got `343.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [343, 18] got `181.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [344, 18] got `532.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [345, 18] got `16.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [346, 18] got `862.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [347, 18] got `149.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [348, 18] got `246.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [349, 18] got `153.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [350, 18] got `60.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [351, 18] got `80.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [352, 18] got `121.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [353, 18] got `167.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [354, 18] got `120.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [355, 18] got `164.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [356, 18] got `234.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [357, 18] got `188.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [358, 18] got `1413.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [359, 18] got `83.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [360, 18] got `152.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [361, 18] got `565.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [362, 18] got `37.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [363, 18] got `252.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [364, 18] got `436.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [365, 18] got `427.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [366, 18] got `76.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [367, 18] got `384.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [368, 18] got `288.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [369, 18] got `151.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [370, 18] got `61.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [371, 18] got `25.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [372, 18] got `180.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [373, 18] got `265.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [374, 18] got `153.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [375, 18] got `491.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [376, 18] got `35.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [377, 18] got `366.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [378, 18] got `329.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [379, 18] got `93.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [380, 18] got `212.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [381, 18] got `302.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [382, 18] got `403.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [383, 18] got `217.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [384, 18] got `366.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [385, 18] got `613.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [386, 18] got `23.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [387, 18] got `16.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [388, 18] got `26.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [389, 18] got `52.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [390, 18] got `72.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [391, 18] got `73.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [392, 18] got `49.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [393, 18] got `48.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [394, 18] got `145.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [395, 18] got `30.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [396, 18] got `30.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [397, 18] got `328.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [398, 18] got `646.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [399, 18] got `135.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [400, 18] got `102.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [401, 18] got `84.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [402, 18] got `14.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [403, 18] got `81.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [404, 18] got `16.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [405, 18] got `62.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [406, 18] got `60.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [407, 18] got `25.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [408, 18] got `26.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [409, 18] got `16.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [410, 18] got `16.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [411, 18] got `16.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [412, 18] got `16.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [413, 18] got `16.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [414, 18] got `140.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [415, 18] got `170.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [416, 18] got `50.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [417, 18] got `63.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [418, 18] got `446.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [419, 18] got `81.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [420, 18] got `397.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [421, 18] got `51.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [422, 18] got `112.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [423, 18] got `122.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [424, 18] got `660.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [425, 18] got `67.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [426, 18] got `619.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [427, 18] got `411.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [428, 18] got `563.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [429, 18] got `60.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [430, 18] got `158.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [431, 18] got `350.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [432, 18] got `242.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [433, 18] got `272.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [434, 18] got `58.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [435, 18] got `110.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [436, 18] got `101.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [437, 18] got `68.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [438, 18] got `341.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [439, 18] got `106.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [440, 18] got `219.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [441, 18] got `225.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [442, 18] got `188.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [443, 18] got `228.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [444, 18] got `353.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [445, 18] got `178.00`

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [446, 18] got `108.00`

## [1] "Now trying 2015"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00

## Error in eval(expr, envir, enclos): Need one name and type for each column

Dang! This time, we got that error message for 2015, but also all those warnings with 2014 in column 18 (AVG_LIC_BEDS is what we’re calling that variable).

4.7 2014: manually fixing a column type

First, fixing the 2014 issue: When I open the 2014 file in Excel, I see some ding-dong has encoded column 18 as text instead of a number (there are little green warning flags about this in the Excel sheet). It really should be a number (it’s a count of beds), but read_excel is picking up the sheet’s strong desire to represent this data as character.

I’ll make an exception for 2014 and read column 18 in as a character, and then convert it to numeric using as.numeric inside the funs for mutate_each_ in dplyr. I prefer this solution over messing with the original Excel file for reproducibility reasons.

Note: the _ at the end of mutate_each_ means we use what’s called standard evaluation, where the variables are given as character vector values rather than “naked” as we usually do with dplyr (e.g. select(country, year, lifeExp) from gapminder has no quotes). This is convenient in this case because I want to refer to the variable to convert by position in the column name vector I made rather that typing it manually. See the non-standard evaluation vignette for more details, but the gist is that the underscore version of the function lets use use quotes around variables.

for(i in seq_along(new_filenames)) {
    if(file.exists(new_filenames[i])) {
        print(paste0("Now trying ", years[i]))
        # set column names and types for standardized import
        cnames <- OSHPD_col_names
        ctypes <- OSHPD_col_types  
        if(years[i] == 2013) {
            cnames <- c(OSHPD_col_names, "missing")
            ctypes <- c(OSHPD_col_types, "blank")
        }
        # special character column type in 2014
        if(years[i] == 2014) {
            ctypes[18] <- "text"
        }
        yearly_frames[[i]] <- read_excel(new_filenames[i],
                                         col_names = cnames,
                                         col_types = ctypes,
                                         skip = 1) # ignore header
        # convert 2014 column 18 to numeric
        if(years[i] == 2014) {
            # use mutate_each_ (not plain mutate) so that I can refer
            # to columns as quoted values in conversion
            yearly_frames[[i]] <- yearly_frames[[i]] %>%
                mutate_each_(funs(as.numeric),
                             OSHPD_col_names[18])
        }
    }
}

## [1] "Now trying 2000"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## [1] "Now trying 2001"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## [1] "Now trying 2002"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## [1] "Now trying 2003"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## [1] "Now trying 2004"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## [1] "Now trying 2005"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## [1] "Now trying 2006"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## [1] "Now trying 2007"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 c3 01 00 00 78 00 
## [1] "Now trying 2008"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bf 01 00 00 78 00 
## [1] "Now trying 2009"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 00 00 00 00 78 00 
## [1] "Now trying 2010"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## [1] "Now trying 2011"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## [1] "Now trying 2012"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## [1] "Now trying 2013"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## [1] "Now trying 2014"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## [1] "Now trying 2015"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00

## Error in eval(expr, envir, enclos): Need one name and type for each column

4.8 2015: an unexpected “gift”

Okay, so now 2013 and 2014 are fixed. What is 2015’s problem? We’ll try reading it in on its own with nothing special as a starter diagnostic.

plain_2015 <- read_excel(new_filenames[i])

## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting numeric in [272, 13] got `(909) 275-8400`

ncol(plain_2015)

## [1] 133

The warning about the phone number in column 13 I can deal with. But my bigger problem is someone thought it would be nice to provide undocumented extra columns for 2015. So kind! Why do we have 133 instead of 121? What are these?

I’ll make a data frame comparing the variable in 2015 to the ones in the older files (using the column names we grabbed from 2000). Since these aren’t of equal length, I’ll pad out the old column names from 2000 with missing values:

# how many extra columns did we get?
extra_col_count <- ncol(plain_2015) - length(OSHPD_col_names)
# make data frame: first column has 2015 col names, second has old ones
# with NAs to make up difference
(compare_cols <- data.frame(names_2015 = colnames(plain_2015),
                            names_other = c(OSHPD_col_names,
                                            rep("NA", extra_col_count))))

##             names_2015       names_other
## 1               FAC_NO            FAC_NO
## 2             FAC_NAME          FAC_NAME
## 3             YEAR_QTR          YEAR_QTR
## 4             BEG_DATE          BEG_DATE
## 5             END_DATE          END_DATE
## 6            OP_STATUS         OP_STATUS
## 7          COUNTY_NAME       COUNTY_NAME
## 8                  HSA               HSA
## 9                 HFPA              HFPA
## 10          TYPE_CNTRL        TYPE_CNTRL
## 11           TYPE_HOSP         TYPE_HOSP
## 12          TEACH_RURL        TEACH_RURL
## 13               PHONE             PHONE
## 14             ADDRESS           ADDRESS
## 15                CITY              CITY
## 16            ZIP_CODE          ZIP_CODE
## 17                 CEO               CEO
## 18            LIC_BEDS      AVG_LIC_BEDS
## 19            AVL_BEDS      AVG_AVL_BEDS
## 20            STF_BEDS      AVG_STF_BEDS
## 21            DIS_MCAR          DIS_MCAR
## 22         DIS_MCAR_MC       DIS_MCAR_MC
## 23            DIS_MCAL          DIS_MCAL
## 24         DIS_MCAL_MC       DIS_MCAL_MC
## 25            DIS_CNTY          DIS_CNTY
## 26         DIS_CNTY_MC       DIS_CNTY_MC
## 27            DIS_THRD          DIS_THRD
## 28         DIS_THRD_MC       DIS_THRD_MC
## 29          DIS_INDGNT        DIS_INDGNT
## 30             DIS_OTH           DIS_OTH
## 31             DIS_TOT           DIS_TOT
## 32             DIS_LTC           DIS_LTC
## 33            DAY_MCAR          DAY_MCAR
## 34         DAY_MCAR_MC       DAY_MCAR_MC
## 35            DAY_MCAL          DAY_MCAL
## 36         DAY_MCAL_MC       DAY_MCAL_MC
## 37            DAY_CNTY          DAY_CNTY
## 38         DAY_CNTY_MC       DAY_CNTY_MC
## 39            DAY_THRD          DAY_THRD
## 40         DAY_THRD_MC       DAY_THRD_MC
## 41          DAY_INDGNT        DAY_INDGNT
## 42             DAY_OTH           DAY_OTH
## 43             DAY_TOT           DAY_TOT
## 44             DAY_LTC           DAY_LTC
## 45            VIS_MCAR          VIS_MCAR
## 46         VIS_MCAR_MC       VIS_MCAR_MC
## 47            VIS_MCAL          VIS_MCAL
## 48         VIS_MCAL_MC       VIS_MCAL_MC
## 49            VIS_CNTY          VIS_CNTY
## 50         VIS_CNTY_MC       VIS_CNTY_MC
## 51            VIS_THRD          VIS_THRD
## 52         VIS_THRD_MC       VIS_THRD_MC
## 53          VIS_INDGNT        VIS_INDGNT
## 54             VIS_OTH           VIS_OTH
## 55             VIS_TOT           VIS_TOT
## 56           GRIP_MCAR         GRIP_MCAR
## 57        GRIP_MCAR_MC      GRIP_MCAR_MC
## 58           GRIP_MCAL         GRIP_MCAL
## 59        GRIP_MCAL_MC      GRIP_MCAL_MC
## 60           GRIP_CNTY         GRIP_CNTY
## 61        GRIP_CNTY_MC      GRIP_CNTY_MC
## 62           GRIP_THRD         GRIP_THRD
## 63        GRIP_THRD_MC      GRIP_THRD_MC
## 64         GRIP_INDGNT       GRIP_INDGNT
## 65            GRIP_OTH          GRIP_OTH
## 66            GRIP_TOT          GRIP_TOT
## 67           GROP_MCAR         GROP_MCAR
## 68        GROP_MCAR_MC      GROP_MCAR_MC
## 69           GROP_MCAL         GROP_MCAL
## 70        GROP_MCAL_MC      GROP_MCAL_MC
## 71           GROP_CNTY         GROP_CNTY
## 72        GROP_CNTY_MC      GROP_CNTY_MC
## 73           GROP_THRD         GROP_THRD
## 74        GROP_THRD_MC      GROP_THRD_MC
## 75         GROP_INDGNT       GROP_INDGNT
## 76            GROP_OTH          GROP_OTH
## 77            GROP_TOT          GROP_TOT
## 78            BAD_DEBT          BAD_DEBT
## 79           CADJ_MCAR         CADJ_MCAR
## 80        CADJ_MCAR_MC      CADJ_MCAR_MC
## 81           CADJ_MCAL         CADJ_MCAL
## 82        CADJ_MCAL_MC      CADJ_MCAL_MC
## 83            DISP_855          DISP_855
## 84           CADJ_CNTY         CADJ_CNTY
## 85        CADJ_CNTY_MC      CADJ_CNTY_MC
## 86           CADJ_THRD         CADJ_THRD
## 87        CADJ_THRD_MC      CADJ_THRD_MC
## 88             CHAR_HB           CHAR_HB
## 89            CHAR_OTH          CHAR_OTH
## 90          SUB_INDGNT        SUB_INDGNT
## 91           TCH_ALLOW         TCH_ALLOW
## 92            TCH_SUPP          TCH_SUPP
## 93             DED_OTH           DED_OTH
## 94             DED_TOT           DED_TOT
## 95            CAP_MCAR          CAP_MCAR
## 96            CAP_MCAL          CAP_MCAL
## 97            CAP_CNTY          CAP_CNTY
## 98            CAP_THRD          CAP_THRD
## 99             CAP_TOT           CAP_TOT
## 100           NET_MCAR          NET_MCAR
## 101        NET_MCAR_MC       NET_MCAR_MC
## 102           NET_MCAL          NET_MCAL
## 103        NET_MCAL_MC       NET_MCAL_MC
## 104           NET_CNTY          NET_CNTY
## 105        NET_CNTY_MC       NET_CNTY_MC
## 106           NET_THRD          NET_THRD
## 107        NET_THRD_MC       NET_THRD_MC
## 108         NET_INDGNT        NET_INDGNT
## 109            NET_OTH           NET_OTH
## 110            NET_TOT           NET_TOT
## 111         OTH_OP_REV        OTH_OP_REV
## 112         TOT_OP_EXP        TOT_OP_EXP
## 113           PHY_COMP          PHY_COMP
## 114          NONOP_REV         NONOP_REV
## 115           DIS_PIPS          DIS_PIPS
## 116           DAY_PIPS          DAY_PIPS
## 117           EXP_PIPS          EXP_PIPS
## 118           EXP_POPS          EXP_POPS
## 119            CAP_EXP           CAP_EXP
## 120         FIX_ASSETS ENDING_FIX_ASSETS
## 121         DISP_TRNFR        DISP_TRNFR
## 122         DIS_TOT_CC                NA
## 123     PAT_DAY_TOT_CC                NA
## 124     TOT_OUT_VIS_CC                NA
## 125  GROS_INPAT_REV_CC                NA
## 126 GROS_OUTPAT_REV_CC                NA
## 127       CONTR_ADJ_CC                NA
## 128     OTHR_DEDUCT_CC                NA
## 129    CAP_PREM_REV_CC                NA
## 130     NET_PAT_REV_CC                NA
## 131            QA_FEES                NA
## 132       QA_SUPPL_PAY                NA
## 133   MNGD_CARE_QA_PAY                NA

From this, we see that the old columns match up to the new ones, and the new ones are undocumented information apparently not provided at all for previous years. Stuff isn’t moved around, it’s just extra. Looking at the 2015 file, these bonus columns are all numeric. I’ll take the names from what we have for these in 2015 and specify that these are numeric in the next version of this loop (warning warning: lots of warnings to follow!):

# define special extra columns for 2015:
# want old names and types to be the same, but add on more
# for the extra ones in 2015 file
OSHPD_col_types_2015 <- c(OSHPD_col_types, rep("numeric", extra_col_count))
OSHPD_col_names_2015 <- c(OSHPD_col_names,
                          colnames(plain_2015)[(length(OSHPD_col_names) + 1):length(OSHPD_col_types_2015)])
                          
for(i in seq_along(new_filenames)) {
    if(file.exists(new_filenames[i])) {
        print(paste0("Now trying ", years[i]))
        # set column names and types for standardized import
        cnames <- OSHPD_col_names
        ctypes <- OSHPD_col_types  
        if(years[i] == 2013) {
            cnames <- c(OSHPD_col_names, "missing")
            ctypes <- c(OSHPD_col_types, "blank")
        }
        # special character column type in 2014
        if(years[i] == 2014) {
            ctypes[18] <- "text"
        }
        if(years[i] == 2015) {
            ctypes <- OSHPD_col_types_2015
            cnames <- OSHPD_col_names_2015
        }
        yearly_frames[[i]] <- read_excel(new_filenames[i],
                                         col_names = cnames,
                                         col_types = ctypes,
                                         skip = 1) # ignore header
        # convert 2014 column 18 to numeric
        if(years[i] == 2014) {
            # use mutate_each_ (not plain mutate) so that I can refer
            # to columns as quoted values in conversion
            yearly_frames[[i]] <- yearly_frames[[i]] %>%
                mutate_each_(funs(as.numeric),
                             cnames[18])
        }
    }
}

## [1] "Now trying 2000"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## [1] "Now trying 2001"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## [1] "Now trying 2002"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## [1] "Now trying 2003"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## [1] "Now trying 2004"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## [1] "Now trying 2005"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## [1] "Now trying 2006"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## [1] "Now trying 2007"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 c3 01 00 00 78 00 
## [1] "Now trying 2008"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bf 01 00 00 78 00 
## [1] "Now trying 2009"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 00 00 00 00 78 00 
## [1] "Now trying 2010"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## [1] "Now trying 2011"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## [1] "Now trying 2012"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## [1] "Now trying 2013"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## [1] "Now trying 2014"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## [1] "Now trying 2015"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [1, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [1, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [2, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [2, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [3, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [3, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [4, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [4, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [5, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [5, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [6, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [6, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [7, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [7, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [8, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [8, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [9, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [9, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [10, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [10, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [11, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [11, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [12, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [12, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [13, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [13, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [14, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [14, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [15, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [15, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [16, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [16, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [17, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [17, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [18, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [18, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [19, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [19, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [20, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [20, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [21, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [21, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [22, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [22, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [23, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [23, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [24, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [24, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [25, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [25, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [26, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [26, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [27, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [27, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [28, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [28, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [29, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [29, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [30, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [30, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [31, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [31, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [32, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [32, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [33, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [33, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [34, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [34, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [35, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [35, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [36, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [36, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [37, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [37, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [38, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [38, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [39, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [39, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [40, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [40, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [41, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [41, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [42, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [42, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [43, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [43, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [44, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [44, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [45, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [45, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [46, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [46, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [47, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [47, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [48, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [48, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [49, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [49, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [50, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [50, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [51, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [51, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [52, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [52, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [53, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [53, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [54, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [54, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [55, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [55, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [56, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [56, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [57, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [57, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [58, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [58, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [59, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [59, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [60, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [60, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [61, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [61, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [62, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [62, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [63, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [63, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [64, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [64, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [65, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [65, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [66, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [66, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [67, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [67, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [68, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [68, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [69, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [69, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [70, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [70, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [71, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [71, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [72, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [72, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [73, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [73, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [74, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [74, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [75, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [75, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [76, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [76, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [77, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [77, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [78, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [78, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [79, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [79, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [80, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [80, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [81, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [81, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [82, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [82, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [83, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [83, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [84, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [84, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [85, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [85, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [86, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [86, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [87, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [87, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [88, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [88, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [89, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [89, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [90, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [90, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [91, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [91, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [92, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [92, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [93, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [93, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [94, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [94, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [95, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [95, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [96, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [96, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [97, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [97, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [98, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [98, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [99, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [99, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [100, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [100, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [101, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [101, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [102, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [102, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [103, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [103, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [104, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [104, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [105, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [105, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [106, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [106, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [107, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [107, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [108, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [108, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [109, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [109, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [110, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [110, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [111, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [111, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [112, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [112, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [113, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [113, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [114, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [114, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [115, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [115, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [116, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [116, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [117, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [117, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [118, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [118, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [119, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [119, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [120, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [120, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [121, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [121, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [122, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [122, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [123, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [123, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [124, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [124, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [125, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [125, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [126, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [126, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [127, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [127, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [128, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [128, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [129, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [129, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [130, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [130, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [131, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [131, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [132, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [132, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [133, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [133, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [134, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [134, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [135, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [135, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [136, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [136, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [137, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [137, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [138, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [138, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [139, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [139, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [140, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [140, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [141, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [141, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [142, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [142, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [143, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [143, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [144, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [144, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [145, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [145, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [146, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [146, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [147, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [147, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [148, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [148, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [149, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [149, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [150, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [150, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [151, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [151, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [152, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [152, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [153, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [153, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [154, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [154, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [155, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [155, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [156, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [156, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [157, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [157, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [158, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [158, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [159, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [159, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [160, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [160, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [161, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [161, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [162, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [162, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [163, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [163, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [164, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [164, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [165, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [165, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [166, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [166, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [167, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [167, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [168, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [168, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [169, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [169, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [170, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [170, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [171, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [171, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [172, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [172, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [173, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [173, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [174, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [174, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [175, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [175, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [176, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [176, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [177, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [177, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [178, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [178, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [179, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [179, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [180, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [180, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [181, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [181, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [182, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [182, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [183, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [183, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [184, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [184, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [185, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [185, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [186, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [186, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [187, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [187, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [188, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [188, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [189, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [189, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [190, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [190, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [191, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [191, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [192, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [192, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [193, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [193, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [194, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [194, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [195, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [195, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [196, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [196, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [197, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [197, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [198, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [198, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [199, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [199, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [200, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [200, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [201, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [201, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [202, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [202, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [203, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [203, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [204, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [204, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [205, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [205, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [206, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [206, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [207, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [207, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [208, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [208, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [209, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [209, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [210, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [210, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [211, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [211, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [212, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [212, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [213, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [213, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [214, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [214, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [215, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [215, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [216, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [216, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [217, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [217, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [218, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [218, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [219, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [219, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [220, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [220, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [221, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [221, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [222, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [222, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [223, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [223, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [224, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [224, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [225, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [225, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [226, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [226, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [227, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [227, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [228, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [228, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [229, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [229, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [230, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [230, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [231, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [231, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [232, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [232, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [233, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [233, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [234, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [234, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [235, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [235, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [236, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [236, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [237, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [237, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [238, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [238, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [239, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [239, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [240, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [240, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [241, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [241, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [242, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [242, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [243, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [243, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [244, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [244, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [245, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [245, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [246, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [246, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [247, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [247, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [248, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [248, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [249, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [249, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [250, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [250, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [251, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [251, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [252, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [252, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [253, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [253, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [254, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [254, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [255, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [255, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [256, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [256, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [257, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [257, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [258, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [258, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [259, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [259, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [260, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [260, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [261, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [261, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [262, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [262, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [263, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [263, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [264, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [264, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [265, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [265, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [266, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [266, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [267, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [267, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [268, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [268, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [269, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [269, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [270, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [270, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [271, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [271, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [272, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [272, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [273, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [273, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [274, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [274, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [275, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [275, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [276, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [276, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [277, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [277, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [278, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [278, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [279, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [279, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [280, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [280, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [281, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [281, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [282, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [282, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [283, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [283, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [284, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [284, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [285, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [285, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [286, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [286, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [287, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [287, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [288, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [288, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [289, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [289, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [290, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [290, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [291, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [291, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [292, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [292, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [293, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [293, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [294, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [294, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [295, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [295, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [296, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [296, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [297, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [297, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [298, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [298, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [299, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [299, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [300, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [300, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [301, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [301, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [302, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [302, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [303, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [303, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [304, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [304, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [305, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [305, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [306, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [306, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [307, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [307, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [308, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [308, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [309, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [309, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [310, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [310, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [311, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [311, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [312, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [312, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [313, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [313, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [314, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [314, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [315, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [315, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [316, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [316, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [317, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [317, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [318, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [318, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [319, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [319, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [320, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [320, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [321, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [321, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [322, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [322, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [323, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [323, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [324, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [324, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [325, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [325, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [326, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [326, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [327, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [327, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [328, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [328, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [329, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [329, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [330, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [330, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [331, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [331, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [332, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [332, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [333, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [333, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [334, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [334, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [335, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [335, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [336, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [336, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [337, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [337, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [338, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [338, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [339, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [339, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [340, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [340, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [341, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [341, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [342, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [342, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [343, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [343, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [344, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [344, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [345, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [345, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [346, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [346, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [347, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [347, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [348, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [348, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [349, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [349, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [350, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [350, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [351, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [351, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [352, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [352, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [353, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [353, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [354, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [354, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [355, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [355, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [356, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [356, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [357, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [357, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [358, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [358, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [359, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [359, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [360, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [360, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [361, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [361, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [362, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [362, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [363, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [363, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [364, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [364, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [365, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [365, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [366, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [366, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [367, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [367, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [368, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [368, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [369, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [369, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [370, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [370, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [371, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [371, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [372, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [372, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [373, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [373, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [374, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [374, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [375, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [375, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [376, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [376, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [377, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [377, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [378, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [378, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [379, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [379, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [380, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [380, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [381, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [381, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [382, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [382, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [383, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [383, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [384, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [384, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [385, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [385, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [386, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [386, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [387, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [387, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [388, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [388, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [389, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [389, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [390, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [390, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [391, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [391, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [392, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [392, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [393, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [393, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [394, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [394, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [395, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [395, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [396, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [396, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [397, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [397, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [398, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [398, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [399, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [399, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [400, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [400, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [401, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [401, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [402, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [402, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [403, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [403, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [404, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [404, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [405, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [405, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [406, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [406, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [407, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [407, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [408, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [408, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [409, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [409, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [410, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [410, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [411, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [411, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [412, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [412, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [413, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [413, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [414, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [414, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [415, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [415, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [416, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [416, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [417, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [417, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [418, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [418, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [419, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [419, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [420, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [420, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [421, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [421, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [422, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [422, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [423, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [423, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [424, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [424, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [425, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [425, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [426, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [426, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [427, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [427, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [428, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [428, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [429, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [429, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [430, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [430, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [431, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [431, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [432, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [432, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [433, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [433, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [434, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [434, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [435, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [435, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [436, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [436, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [437, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [437, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [438, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [438, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [439, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [439, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [440, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [440, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [441, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [441, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [442, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [442, 5] got '12/31/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [443, 4] got '01/01/2015'

## Warning in xls_cols(path, sheet, col_names = col_names, col_types =
## col_types, : Expecting date in [443, 5] got '12/31/2015'

4.9 Back to the drawing board with 2015’s dates

UGH. The 2015 file read in this time, extra columns and all, but I’m getting warning messages about the two date columns (columns 4 and 5). There’s nothing weird-looking with the Excel file except that the dates are styled as MM/DD/YYYY instead of M/D/YYYY like in the other files. I’ll fix this using a similar approach as with the weird not-a-number-but-should-have-been column for bed county in the 2014 file: read them in as character, then convert to a date (using the lubridate package).

# special column type for 2015 dates
OSHPD_col_types_2015[4:5] <- "text"
                          
for(i in seq_along(new_filenames)) {
    if(file.exists(new_filenames[i])) {
        print(paste0("Now trying ", years[i]))
        # set column names and types for standardized import
        cnames <- OSHPD_col_names
        ctypes <- OSHPD_col_types  
        if(years[i] == 2013) {
            cnames <- c(OSHPD_col_names, "missing")
            ctypes <- c(OSHPD_col_types, "blank")
        }
        # special character column type in 2014
        if(years[i] == 2014) {
            ctypes[18] <- "text"
        }
        if(years[i] == 2015) {
            ctypes <- OSHPD_col_types_2015
            cnames <- OSHPD_col_names_2015
        }
        yearly_frames[[i]] <- read_excel(new_filenames[i],
                                         col_names = cnames,
                                         col_types = ctypes,
                                         skip = 1) # ignore header
        # convert 2014 column 18 to numeric
        if(years[i] == 2014) {
            # use mutate_each_ (not plain mutate) so that I can refer
            # to columns as quoted values in conversion
            yearly_frames[[i]] <- yearly_frames[[i]] %>%
                mutate_each_(funs(as.numeric),
                             cnames[18])
        }
        # convert 2015 date columns (4 and 5) to dates
        # since they get read in as character to fix a problem
        if(years[i] == 2015) {
            yearly_frames[[i]] <- yearly_frames[[i]] %>%
                mutate_each_(funs(mdy),
                             cnames[4:5])
        }
    }
}

## [1] "Now trying 2000"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## [1] "Now trying 2001"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## [1] "Now trying 2002"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## [1] "Now trying 2003"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## [1] "Now trying 2004"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## [1] "Now trying 2005"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## [1] "Now trying 2006"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## [1] "Now trying 2007"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 c3 01 00 00 78 00 
## [1] "Now trying 2008"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bf 01 00 00 78 00 
## [1] "Now trying 2009"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 00 00 00 00 78 00 
## [1] "Now trying 2010"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 bc 01 00 00 78 00 
## [1] "Now trying 2011"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## [1] "Now trying 2012"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## [1] "Now trying 2013"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## [1] "Now trying 2014"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00 
## [1] "Now trying 2015"
## DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 00 00 cf 01 78 00 78 00

FINALLY! Can you believe it?

If I wasn’t being transparent about this iterative bug-squashing process, basically all I would have in my final R code is this last loop and the variable definitions that went into it.

5 Combining everything

After much effort, we have read all the data in and formatted it properly and consistenly across years. Let’s combine the files for all years using bind_rows from dplyr to get one big file rather than 16 separate. I’m going to use the .id argument in the bind_rows function to add a column called orig_file for which file number each row came from for further debugging. This takes the name of the list element each thing came from and makes a column of it. We set this to be the year of each file, so it’s very informative.

# combine everything
CA_OSHPD_util <- bind_rows(yearly_frames, .id = "orig_file")
dim(CA_OSHPD_util)

## [1] 7307  134

summary(CA_OSHPD_util)

##   orig_file            FAC_NO            FAC_NAME            YEAR_QTR    
##  Length:7307        Length:7307        Length:7307        Min.   :20001  
##  Class :character   Class :character   Class :character   1st Qu.:20034  
##  Mode  :character   Mode  :character   Mode  :character   Median :20074  
##                                                           Mean   :20078  
##                                                           3rd Qu.:20114  
##                                                           Max.   :20154  
##                                                           NA's   :7      
##     BEG_DATE                      END_DATE                  
##  Min.   :1999-12-13 00:00:00   Min.   :2000-01-14 00:00:00  
##  1st Qu.:2003-01-01 00:00:00   1st Qu.:2003-12-31 00:00:00  
##  Median :2007-01-01 00:00:00   Median :2007-12-31 00:00:00  
##  Mean   :2007-05-12 20:43:08   Mean   :2008-05-08 09:26:55  
##  3rd Qu.:2011-01-01 00:00:00   3rd Qu.:2011-12-31 00:00:00  
##  Max.   :2015-01-01 00:00:00   Max.   :2015-12-31 00:00:00  
##  NA's   :7                     NA's   :7                    
##   OP_STATUS         COUNTY_NAME            HSA           
##  Length:7307        Length:7307        Length:7307       
##  Class :character   Class :character   Class :character  
##  Mode  :character   Mode  :character   Mode  :character  
##                                                          
##                                                          
##                                                          
##                                                          
##      HFPA            TYPE_CNTRL         TYPE_HOSP        
##  Length:7307        Length:7307        Length:7307       
##  Class :character   Class :character   Class :character  
##  Mode  :character   Mode  :character   Mode  :character  
##                                                          
##                                                          
##                                                          
##                                                          
##   TEACH_RURL           PHONE             ADDRESS         
##  Length:7307        Length:7307        Length:7307       
##  Class :character   Class :character   Class :character  
##  Mode  :character   Mode  :character   Mode  :character  
##                                                          
##                                                          
##                                                          
##                                                          
##      CITY             ZIP_CODE             CEO             AVG_LIC_BEDS   
##  Length:7307        Length:7307        Length:7307        Min.   :   0.0  
##  Class :character   Class :character   Class :character   1st Qu.:  70.0  
##  Mode  :character   Mode  :character   Mode  :character   Median : 158.0  
##                                                           Mean   : 225.2  
##                                                           3rd Qu.: 306.0  
##                                                           Max.   :4875.0  
##                                                           NA's   :7       
##   AVG_AVL_BEDS     AVG_STF_BEDS       DIS_MCAR      DIS_MCAR_MC     
##  Min.   :   0.0   Min.   :   0.0   Min.   :    0   Min.   :    0.0  
##  1st Qu.:  67.0   1st Qu.:  55.0   1st Qu.:  317   1st Qu.:    0.0  
##  Median : 150.0   Median : 121.0   Median : 1102   Median :  129.5  
##  Mean   : 204.2   Mean   : 171.6   Mean   : 1920   Mean   :  829.2  
##  3rd Qu.: 279.6   3rd Qu.: 236.8   3rd Qu.: 2898   3rd Qu.:  967.2  
##  Max.   :1527.0   Max.   :1550.0   Max.   :20254   Max.   :12378.0  
##  NA's   :7        NA's   :7        NA's   :7       NA's   :7        
##     DIS_MCAL         DIS_MCAL_MC         DIS_CNTY        DIS_CNTY_MC     
##  Min.   :    0.00   Min.   :    0.0   Min.   :   -9.0   Min.   :   0.00  
##  1st Qu.:   67.75   1st Qu.:    0.0   1st Qu.:    0.0   1st Qu.:   0.00  
##  Median :  456.00   Median :  100.0   Median :    0.0   Median :   0.00  
##  Mean   : 1218.91   Mean   :  598.0   Mean   :  180.9   Mean   :  13.04  
##  3rd Qu.: 1610.25   3rd Qu.:  808.2   3rd Qu.:   67.0   3rd Qu.:   0.00  
##  Max.   :17220.00   Max.   :12393.0   Max.   :21787.0   Max.   :4320.00  
##  NA's   :7          NA's   :7         NA's   :7         NA's   :7        
##     DIS_THRD        DIS_THRD_MC      DIS_INDGNT         DIS_OTH    
##  Min.   :    0.0   Min.   :    0   Min.   :   0.00   Min.   : -52  
##  1st Qu.:   35.0   1st Qu.:    2   1st Qu.:   0.00   1st Qu.:  30  
##  Median :  142.0   Median :  654   Median :   0.00   Median : 125  
##  Mean   :  542.1   Mean   : 2036   Mean   :  71.57   Mean   : 268  
##  3rd Qu.:  438.0   3rd Qu.: 2789   3rd Qu.:  36.00   3rd Qu.: 330  
##  Max.   :19838.0   Max.   :22375   Max.   :6064.00   Max.   :7964  
##  NA's   :7         NA's   :7       NA's   :7         NA's   :7     
##     DIS_TOT         DIS_LTC           DAY_MCAR       DAY_MCAR_MC     
##  Min.   :    0   Min.   :   0.00   Min.   :     0   Min.   :    0.0  
##  1st Qu.: 1334   1st Qu.:   0.00   1st Qu.:  1983   1st Qu.:    0.0  
##  Median : 4986   Median :   0.00   Median :  7718   Median :  788.5  
##  Mean   : 7678   Mean   :  64.01   Mean   : 12513   Mean   : 3813.5  
##  3rd Qu.:12186   3rd Qu.:   0.00   3rd Qu.: 19084   3rd Qu.: 4570.2  
##  Max.   :51839   Max.   :7483.00   Max.   :397298   Max.   :55172.0  
##  NA's   :7       NA's   :7         NA's   :7        NA's   :7        
##     DAY_MCAL       DAY_MCAL_MC         DAY_CNTY         DAY_CNTY_MC      
##  Min.   :-16132   Min.   :    0.0   Min.   :  -321.0   Min.   :    0.00  
##  1st Qu.:   723   1st Qu.:    0.0   1st Qu.:     0.0   1st Qu.:    0.00  
##  Median :  3564   Median :  511.5   Median :     0.0   Median :    0.00  
##  Mean   : 11698   Mean   : 2597.5   Mean   :  1067.7   Mean   :   68.12  
##  3rd Qu.: 11912   3rd Qu.: 3215.2   3rd Qu.:   299.2   3rd Qu.:    0.00  
##  Max.   :378655   Max.   :90743.0   Max.   :106641.0   Max.   :21683.00  
##  NA's   :7        NA's   :7         NA's   :7          NA's   :7         
##     DAY_THRD       DAY_THRD_MC       DAY_INDGNT         DAY_OTH        
##  Min.   :     0   Min.   :     0   Min.   :    0.0   Min.   :  -232.0  
##  1st Qu.:   163   1st Qu.:     7   1st Qu.:    0.0   1st Qu.:   155.8  
##  Median :   680   Median :  2694   Median :    0.0   Median :   586.5  
##  Mean   :  2706   Mean   :  8271   Mean   :  373.3   Mean   :  5321.2  
##  3rd Qu.:  2102   3rd Qu.: 11835   3rd Qu.:  151.0   3rd Qu.:  1546.0  
##  Max.   :215060   Max.   :103413   Max.   :45277.0   Max.   :553963.0  
##  NA's   :7        NA's   :7        NA's   :7         NA's   :7         
##     DAY_TOT          DAY_LTC          VIS_MCAR       VIS_MCAR_MC    
##  Min.   :     0   Min.   :     0   Min.   :   -14   Min.   :     0  
##  1st Qu.: 13643   1st Qu.:     0   1st Qu.:  1540   1st Qu.:     0  
##  Median : 30863   Median :     0   Median :  9742   Median :   523  
##  Mean   : 48429   Mean   :  3442   Mean   : 22149   Mean   :  5296  
##  3rd Qu.: 64279   3rd Qu.:     0   3rd Qu.: 27098   3rd Qu.:  4234  
##  Max.   :557001   Max.   :157164   Max.   :454873   Max.   :154908  
##  NA's   :7        NA's   :7        NA's   :7        NA's   :7       
##     VIS_MCAL       VIS_MCAL_MC        VIS_CNTY         VIS_CNTY_MC      
##  Min.   :     0   Min.   :     0   Min.   :  -220.0   Min.   :     0.0  
##  1st Qu.:   145   1st Qu.:     0   1st Qu.:     0.0   1st Qu.:     0.0  
##  Median :  3928   Median :  1346   Median :     0.0   Median :     0.0  
##  Mean   : 12265   Mean   :  9722   Mean   :  3890.9   Mean   :   352.5  
##  3rd Qu.: 12430   3rd Qu.: 10198   3rd Qu.:   534.2   3rd Qu.:     0.0  
##  Max.   :380683   Max.   :389360   Max.   :540811.0   Max.   :116352.0  
##  NA's   :7        NA's   :7        NA's   :7          NA's   :7         
##     VIS_THRD       VIS_THRD_MC       VIS_INDGNT       VIS_OTH        
##  Min.   :     0   Min.   :     0   Min.   :   -2   Min.   :     0.0  
##  1st Qu.:   305   1st Qu.:     0   1st Qu.:    0   1st Qu.:   393.8  
##  Median :  2500   Median :  7508   Median :    0   Median :  3696.5  
##  Mean   :  9433   Mean   : 29576   Mean   : 1232   Mean   :  7292.8  
##  3rd Qu.:  9039   3rd Qu.: 34644   3rd Qu.:  288   3rd Qu.:  8335.2  
##  Max.   :482875   Max.   :943951   Max.   :91325   Max.   :280975.0  
##  NA's   :7        NA's   :7        NA's   :7       NA's   :7         
##     VIS_TOT          GRIP_MCAR          GRIP_MCAR_MC      
##  Min.   :      0   Min.   :0.000e+00   Min.   :  -262754  
##  1st Qu.:  14038   1st Qu.:4.397e+06   1st Qu.:        0  
##  Median :  55084   Median :4.124e+07   Median :  1740122  
##  Mean   : 101209   Mean   :1.201e+08   Mean   : 28873916  
##  3rd Qu.: 128727   3rd Qu.:1.587e+08   3rd Qu.: 30398143  
##  Max.   :1383408   Max.   :3.880e+09   Max.   :631911333  
##  NA's   :7         NA's   :7           NA's   :7          
##    GRIP_MCAL          GRIP_MCAL_MC         GRIP_CNTY        
##  Min.   :0.000e+00   Min.   :   -23811   Min.   :-11771532  
##  1st Qu.:1.855e+06   1st Qu.:        0   1st Qu.:        0  
##  Median :1.530e+07   Median :  1545964   Median :        0  
##  Mean   :6.121e+07   Mean   : 24993212   Mean   :  6496313  
##  3rd Qu.:6.722e+07   3rd Qu.: 23551008   3rd Qu.:  1773999  
##  Max.   :1.413e+09   Max.   :955588878   Max.   :636711114  
##  NA's   :7           NA's   :7           NA's   :7          
##   GRIP_CNTY_MC         GRIP_THRD          GRIP_THRD_MC       
##  Min.   :        0   Min.   :    -7271   Min.   :     -4703  
##  1st Qu.:        0   1st Qu.:   426088   1st Qu.:         0  
##  Median :        0   Median :  4301870   Median :   9499869  
##  Mean   :   664110   Mean   : 18414946   Mean   :  79598293  
##  3rd Qu.:        0   3rd Qu.: 15009187   3rd Qu.:  80018317  
##  Max.   :133465498   Max.   :722093312   Max.   :3005027109  
##  NA's   :7           NA's   :7           NA's   :7           
##   GRIP_INDGNT           GRIP_OTH            GRIP_TOT        
##  Min.   : -1763304   Min.   :-25931128   Min.   :0.000e+00  
##  1st Qu.:        0   1st Qu.:   283053   1st Qu.:2.441e+07  
##  Median :        0   Median :  2825272   Median :1.359e+08  
##  Mean   :  3392958   Mean   :  9931565   Mean   :3.536e+08  
##  3rd Qu.:  1307425   3rd Qu.:  9526321   3rd Qu.:4.746e+08  
##  Max.   :277185655   Max.   :462302069   Max.   :8.746e+09  
##  NA's   :7           NA's   :7           NA's   :7          
##    GROP_MCAR           GROP_MCAR_MC         GROP_MCAL        
##  Min.   :     -7380   Min.   :    -1005   Min.   :    -2355  
##  1st Qu.:    828066   1st Qu.:        0   1st Qu.:        0  
##  Median :  12763269   Median :   351400   Median :  4447413  
##  Mean   :  40440654   Mean   :  9801634   Mean   : 14739821  
##  3rd Qu.:  45189888   3rd Qu.:  8452178   3rd Qu.: 16087650  
##  Max.   :1864963872   Max.   :461991014   Max.   :392819692  
##  NA's   :7            NA's   :7           NA's   :7          
##   GROP_MCAL_MC         GROP_CNTY          GROP_CNTY_MC      
##  Min.   :        0   Min.   :  -123015   Min.   :   -15441  
##  1st Qu.:        0   1st Qu.:        0   1st Qu.:        0  
##  Median :   849563   Median :        0   Median :        0  
##  Mean   : 15983621   Mean   :  3876997   Mean   :   542433  
##  3rd Qu.: 15323784   3rd Qu.:   702508   3rd Qu.:        0  
##  Max.   :600864160   Max.   :436742504   Max.   :162178098  
##  NA's   :7           NA's   :7           NA's   :7          
##    GROP_THRD          GROP_THRD_MC        GROP_INDGNT       
##  Min.   :   -54009   Min.   :0.000e+00   Min.   :   -16606  
##  1st Qu.:    55425   1st Qu.:0.000e+00   1st Qu.:        0  
##  Median :  3889702   Median :6.080e+06   Median :        0  
##  Mean   : 11691187   Mean   :5.056e+07   Mean   :  1885272  
##  3rd Qu.: 11267608   3rd Qu.:5.694e+07   3rd Qu.:   558170  
##  Max.   :566191080   Max.   :2.885e+09   Max.   :122018590  
##  NA's   :7           NA's   :7           NA's   :7          
##     GROP_OTH            GROP_TOT            BAD_DEBT        
##  Min.   :     -403   Min.   :0.000e+00   Min.   :-16554289  
##  1st Qu.:    79880   1st Qu.:4.708e+06   1st Qu.:   236449  
##  Median :  3274352   Median :6.201e+07   Median :  3167402  
##  Mean   :  8391699   Mean   :1.579e+08   Mean   :  8224615  
##  3rd Qu.: 10639047   3rd Qu.:1.975e+08   3rd Qu.: 10381800  
##  Max.   :387582151   Max.   :6.500e+09   Max.   :335002152  
##  NA's   :7           NA's   :7           NA's   :7          
##    CADJ_MCAR           CADJ_MCAR_MC         CADJ_MCAL         
##  Min.   :  -1253106   Min.   :  -578380   Min.   : -54469737  
##  1st Qu.:   3436604   1st Qu.:        0   1st Qu.:   1052394  
##  Median :  39764054   Median :  1348738   Median :  14377716  
##  Mean   : 127244808   Mean   : 32005011   Mean   :  56759491  
##  3rd Qu.: 159354385   3rd Qu.: 30145130   3rd Qu.:  64987530  
##  Max.   :5086234155   Max.   :934559376   Max.   :1204393780  
##  NA's   :7            NA's   :7           NA's   :7           
##   CADJ_MCAL_MC           DISP_855            CADJ_CNTY        
##  Min.   : -15266466   Min.   :-438850000   Min.   :-11465655  
##  1st Qu.:         0   1st Qu.:      -532   1st Qu.:        0  
##  Median :   2071308   Median :         0   Median :        0  
##  Mean   :  33694067   Mean   :  -4102897   Mean   :  8834115  
##  3rd Qu.:  32530989   3rd Qu.:         0   3rd Qu.:  1617174  
##  Max.   :1220856346   Max.   :  56209959   Max.   :869281751  
##  NA's   :7            NA's   :7            NA's   :7          
##   CADJ_CNTY_MC         CADJ_THRD           CADJ_THRD_MC       
##  Min.   :  -151492   Min.   : -14731668   Min.   : -13481954  
##  1st Qu.:        0   1st Qu.:    130665   1st Qu.:         0  
##  Median :        0   Median :   4303873   Median :   9966192  
##  Mean   :  1011097   Mean   :  18109877   Mean   :  84164444  
##  3rd Qu.:        0   3rd Qu.:  15359146   3rd Qu.:  93746948  
##  Max.   :280782314   Max.   :1148767451   Max.   :4288598220  
##  NA's   :7           NA's   :7            NA's   :7           
##     CHAR_HB            CHAR_OTH           SUB_INDGNT       
##  Min.   : -182223   Min.   : -1290072   Min.   :-79976453  
##  1st Qu.:       0   1st Qu.:        0   1st Qu.:        0  
##  Median :       0   Median :   767640   Median :        0  
##  Mean   :   14868   Mean   :  7294340   Mean   :   -64039  
##  3rd Qu.:       0   3rd Qu.:  5872641   3rd Qu.:        0  
##  Max.   :14071736   Max.   :280409770   Max.   :   745893  
##  NA's   :7          NA's   :7           NA's   :7          
##    TCH_ALLOW           TCH_SUPP            DED_OTH         
##  Min.   :    -192   Min.   :-14845149   Min.   :-44557893  
##  1st Qu.:       0   1st Qu.:        0   1st Qu.:        0  
##  Median :       0   Median :        0   Median :   633688  
##  Mean   :   63848   Mean   :   -86562   Mean   :  7004324  
##  3rd Qu.:       0   3rd Qu.:        0   3rd Qu.:  5503615  
##  Max.   :14845149   Max.   : 14640979   Max.   :391369018  
##  NA's   :7          NA's   :7           NA's   :7          
##     DED_TOT              CAP_MCAR            CAP_MCAL        
##  Min.   :-4.100e+05   Min.   :  -591178   Min.   :  -479291  
##  1st Qu.: 1.538e+07   1st Qu.:        0   1st Qu.:        0  
##  Median : 1.350e+08   Median :        0   Median :        0  
##  Mean   : 3.802e+08   Mean   :  2262495   Mean   :  1144320  
##  3rd Qu.: 5.154e+08   3rd Qu.:        0   3rd Qu.:        0  
##  Max.   : 1.057e+10   Max.   :102587734   Max.   :273370098  
##  NA's   :7            NA's   :7           NA's   :7          
##     CAP_CNTY          CAP_THRD            CAP_TOT         
##  Min.   :      0   Min.   : -3277468   Min.   : -3017154  
##  1st Qu.:      0   1st Qu.:        0   1st Qu.:        0  
##  Median :      0   Median :        0   Median :        0  
##  Mean   :  10731   Mean   :  2215529   Mean   :  5633074  
##  3rd Qu.:      0   3rd Qu.:        0   3rd Qu.:   760101  
##  Max.   :5253420   Max.   :196433600   Max.   :274714289  
##  NA's   :7         NA's   :7           NA's   :7          
##     NET_MCAR          NET_MCAR_MC           NET_MCAL         
##  Min.   :-85699449   Min.   :-54540240   Min.   :-125646606  
##  1st Qu.:  3253728   1st Qu.:        0   1st Qu.:    692106  
##  Median : 16376562   Median :   758224   Median :   4526860  
##  Mean   : 32806718   Mean   :  8819332   Mean   :  22496737  
##  3rd Qu.: 43525645   3rd Qu.:  9171892   3rd Qu.:  17324662  
##  Max.   :657707928   Max.   :383157879   Max.   :1352731865  
##  NA's   :7           NA's   :7           NA's   :7           
##   NET_MCAL_MC            NET_CNTY          NET_CNTY_MC       
##  Min.   :-144547336   Min.   :-44217493   Min.   :-17576418  
##  1st Qu.:         0   1st Qu.:        0   1st Qu.:        0  
##  Median :    635946   Median :        0   Median :        0  
##  Mean   :   8388381   Mean   :  1367259   Mean   :   215186  
##  3rd Qu.:   7378026   3rd Qu.:   423134   3rd Qu.:        0  
##  Max.   :1337394028   Max.   :201381984   Max.   : 68806584  
##  NA's   :7            NA's   :7           NA's   :7          
##     NET_THRD           NET_THRD_MC           NET_INDGNT       
##  Min.   :-718962227   Min.   : -40975508   Min.   :-79235282  
##  1st Qu.:    379819   1st Qu.:         0   1st Qu.:        0  
##  Median :   3187529   Median :   6539740   Median :        0  
##  Mean   :  11293128   Mean   :  46850529   Mean   :   395209  
##  3rd Qu.:  10828971   3rd Qu.:  46104484   3rd Qu.:        0  
##  Max.   : 418542401   Max.   :2164487668   Max.   :302874096  
##  NA's   :7            NA's   :7            NA's   :7          
##     NET_OTH              NET_TOT            OTH_OP_REV        
##  Min.   :-141347662   Min.   :0.000e+00   Min.   :-5.714e+06  
##  1st Qu.:         0   1st Qu.:1.721e+07   1st Qu.: 7.702e+04  
##  Median :    868312   Median :5.964e+07   Median : 6.184e+05  
##  Mean   :   4367442   Mean   :1.370e+08   Mean   : 2.229e+07  
##  3rd Qu.:   4187317   3rd Qu.:1.733e+08   3rd Qu.: 2.984e+06  
##  Max.   : 462302069   Max.   :3.304e+09   Max.   : 1.351e+10  
##  NA's   :7            NA's   :7           NA's   :7           
##    TOT_OP_EXP           PHY_COMP           NONOP_REV         
##  Min.   :0.000e+00   Min.   :  -928000   Min.   :-389248724  
##  1st Qu.:1.905e+07   1st Qu.:        0   1st Qu.:         0  
##  Median :6.204e+07   Median :        0   Median :     90000  
##  Mean   :1.601e+08   Mean   :  1583547   Mean   :   7064276  
##  3rd Qu.:1.826e+08   3rd Qu.:        0   3rd Qu.:   1858880  
##  Max.   :7.826e+09   Max.   :198522121   Max.   :1494461489  
##  NA's   :7           NA's   :7           NA's   :7           
##     DIS_PIPS           DAY_PIPS           EXP_PIPS       
##  Min.   :       0   Min.   :    0.00   Min.   : -198568  
##  1st Qu.:       0   1st Qu.:    0.00   1st Qu.:       0  
##  Median :       0   Median :    0.00   Median :       0  
##  Mean   :    5241   Mean   :   40.74   Mean   :  149084  
##  3rd Qu.:       0   3rd Qu.:    0.00   3rd Qu.:       0  
##  Max.   :38206405   Max.   :24430.00   Max.   :46023192  
##  NA's   :7          NA's   :7          NA's   :7         
##     EXP_POPS           CAP_EXP          ENDING_FIX_ASSETS  
##  Min.   : -102293   Min.   :  -113916   Min.   :0.000e+00  
##  1st Qu.:       0   1st Qu.:   421972   1st Qu.:4.576e+06  
##  Median :       0   Median :  2656994   Median :2.579e+07  
##  Mean   :   64706   Mean   : 13913403   Mean   :8.948e+07  
##  3rd Qu.:       0   3rd Qu.: 10954038   3rd Qu.:8.883e+07  
##  Max.   :49092403   Max.   :558889619   Max.   :2.132e+09  
##  NA's   :7          NA's   :7           NA's   :7          
##    DISP_TRNFR          DIS_TOT_CC      PAT_DAY_TOT_CC    TOT_OUT_VIS_CC   
##  Min.   :-60929054   Min.   :  0.000   Min.   :   0.00   Min.   :   0.00  
##  1st Qu.:        0   1st Qu.:  0.000   1st Qu.:   0.00   1st Qu.:   0.00  
##  Median :        0   Median :  0.000   Median :   0.00   Median :   0.00  
##  Mean   :  1888134   Mean   :  5.914   Mean   :  23.67   Mean   :  56.63  
##  3rd Qu.:        0   3rd Qu.:  0.000   3rd Qu.:   0.00   3rd Qu.:   0.00  
##  Max.   :558310000   Max.   :401.000   Max.   :1934.00   Max.   :5507.00  
##  NA's   :7           NA's   :6864      NA's   :6864      NA's   :6864     
##  GROS_INPAT_REV_CC  GROS_OUTPAT_REV_CC  CONTR_ADJ_CC     
##  Min.   :       0   Min.   :       0   Min.   :       0  
##  1st Qu.:       0   1st Qu.:       0   1st Qu.:       0  
##  Median :       0   Median :       0   Median :       0  
##  Mean   :  540866   Mean   :  352239   Mean   :  629475  
##  3rd Qu.:       0   3rd Qu.:       0   3rd Qu.:       0  
##  Max.   :54936396   Max.   :21146957   Max.   :55219879  
##  NA's   :6864       NA's   :6864       NA's   :6864      
##  OTHR_DEDUCT_CC     CAP_PREM_REV_CC NET_PAT_REV_CC        QA_FEES        
##  Min.   :     0.0   Min.   :0       Min.   :       0   Min.   :       0  
##  1st Qu.:     0.0   1st Qu.:0       1st Qu.:       0   1st Qu.:       0  
##  Median :     0.0   Median :0       Median :       0   Median :       0  
##  Mean   :   286.2   Mean   :0       Mean   :  263344   Mean   : 1610551  
##  3rd Qu.:     0.0   3rd Qu.:0       3rd Qu.:       0   3rd Qu.:       0  
##  Max.   :126784.0   Max.   :0       Max.   :20863474   Max.   :79991597  
##  NA's   :6864       NA's   :6864    NA's   :6864       NA's   :6864      
##   QA_SUPPL_PAY      MNGD_CARE_QA_PAY  
##  Min.   :       0   Min.   :       0  
##  1st Qu.:       0   1st Qu.:       0  
##  Median :       0   Median :       0  
##  Mean   : 1447404   Mean   :  548592  
##  3rd Qu.:       0   3rd Qu.:       0  
##  Max.   :65291574   Max.   :28607994  
##  NA's   :6864       NA's   :6864

5.1 Missing rows

This worked well. One thing I see is that there are some unexpected missing values in things that seem like they shouldn’t have any, like the YEAR_QTR column. Which file did these come from?

CA_OSHPD_util %>%
    filter(is.na(YEAR_QTR))

## Source: local data frame [7 x 134]
## 
##   orig_file FAC_NO FAC_NAME YEAR_QTR BEG_DATE END_DATE OP_STATUS
##       (chr)  (chr)    (chr)    (dbl)   (time)   (time)     (chr)
## 1        12     NA       NA       NA     <NA>     <NA>        NA
## 2        12     NA       NA       NA     <NA>     <NA>        NA
## 3        12     NA       NA       NA     <NA>     <NA>        NA
## 4        12     NA       NA       NA     <NA>     <NA>        NA
## 5        16     NA       NA       NA     <NA>     <NA>        NA
## 6        16     NA       NA       NA     <NA>     <NA>        NA
## 7        16     NA       NA       NA     <NA>     <NA>        NA
## Variables not shown: COUNTY_NAME (chr), HSA (chr), HFPA (chr), TYPE_CNTRL
##   (chr), TYPE_HOSP (chr), TEACH_RURL (chr), PHONE (chr), ADDRESS (chr),
##   CITY (chr), ZIP_CODE (chr), CEO (chr), AVG_LIC_BEDS (dbl), AVG_AVL_BEDS
##   (dbl), AVG_STF_BEDS (dbl), DIS_MCAR (dbl), DIS_MCAR_MC (dbl), DIS_MCAL
##   (dbl), DIS_MCAL_MC (dbl), DIS_CNTY (dbl), DIS_CNTY_MC (dbl), DIS_THRD
##   (dbl), DIS_THRD_MC (dbl), DIS_INDGNT (dbl), DIS_OTH (dbl), DIS_TOT
##   (dbl), DIS_LTC (dbl), DAY_MCAR (dbl), DAY_MCAR_MC (dbl), DAY_MCAL (dbl),
##   DAY_MCAL_MC (dbl), DAY_CNTY (dbl), DAY_CNTY_MC (dbl), DAY_THRD (dbl),
##   DAY_THRD_MC (dbl), DAY_INDGNT (dbl), DAY_OTH (dbl), DAY_TOT (dbl),
##   DAY_LTC (dbl), VIS_MCAR (dbl), VIS_MCAR_MC (dbl), VIS_MCAL (dbl),
##   VIS_MCAL_MC (dbl), VIS_CNTY (dbl), VIS_CNTY_MC (dbl), VIS_THRD (dbl),
##   VIS_THRD_MC (dbl), VIS_INDGNT (dbl), VIS_OTH (dbl), VIS_TOT (dbl),
##   GRIP_MCAR (dbl), GRIP_MCAR_MC (dbl), GRIP_MCAL (dbl), GRIP_MCAL_MC
##   (dbl), GRIP_CNTY (dbl), GRIP_CNTY_MC (dbl), GRIP_THRD (dbl),
##   GRIP_THRD_MC (dbl), GRIP_INDGNT (dbl), GRIP_OTH (dbl), GRIP_TOT (dbl),
##   GROP_MCAR (dbl), GROP_MCAR_MC (dbl), GROP_MCAL (dbl), GROP_MCAL_MC
##   (dbl), GROP_CNTY (dbl), GROP_CNTY_MC (dbl), GROP_THRD (dbl),
##   GROP_THRD_MC (dbl), GROP_INDGNT (dbl), GROP_OTH (dbl), GROP_TOT (dbl),
##   BAD_DEBT (dbl), CADJ_MCAR (dbl), CADJ_MCAR_MC (dbl), CADJ_MCAL (dbl),
##   CADJ_MCAL_MC (dbl), DISP_855 (dbl), CADJ_CNTY (dbl), CADJ_CNTY_MC (dbl),
##   CADJ_THRD (dbl), CADJ_THRD_MC (dbl), CHAR_HB (dbl), CHAR_OTH (dbl),
##   SUB_INDGNT (dbl), TCH_ALLOW (dbl), TCH_SUPP (dbl), DED_OTH (dbl),
##   DED_TOT (dbl), CAP_MCAR (dbl), CAP_MCAL (dbl), CAP_CNTY (dbl), CAP_THRD
##   (dbl), CAP_TOT (dbl), NET_MCAR (dbl), NET_MCAR_MC (dbl), NET_MCAL (dbl),
##   NET_MCAL_MC (dbl), NET_CNTY (dbl), NET_CNTY_MC (dbl), NET_THRD (dbl),
##   NET_THRD_MC (dbl), NET_INDGNT (dbl), NET_OTH (dbl), NET_TOT (dbl),
##   OTH_OP_REV (dbl), TOT_OP_EXP (dbl), PHY_COMP (dbl), NONOP_REV (dbl),
##   DIS_PIPS (dbl), DAY_PIPS (dbl), EXP_PIPS (dbl), EXP_POPS (dbl), CAP_EXP
##   (dbl), ENDING_FIX_ASSETS (dbl), DISP_TRNFR (dbl), DIS_TOT_CC (dbl),
##   PAT_DAY_TOT_CC (dbl), TOT_OUT_VIS_CC (dbl), GROS_INPAT_REV_CC (dbl),
##   GROS_OUTPAT_REV_CC (dbl), CONTR_ADJ_CC (dbl), OTHR_DEDUCT_CC (dbl),
##   CAP_PREM_REV_CC (dbl), NET_PAT_REV_CC (dbl), QA_FEES (dbl), QA_SUPPL_PAY
##   (dbl), MNGD_CARE_QA_PAY (dbl)

Some from file 2011, some from file 2015. I’m happy I made that file source column to tell me this! Let’s look at those files in the list and see if there were extra rows read in at the end:

tail(yearly_frames[["2011"]])

## NULL

tail(yearly_frames[["2015"]])

## NULL

Indeed, there were a few rows missing basically all info at the end of these two files. If I look at the original Excel files and press the keyboard command to find the real end of the file, these were “fake blank” rows (just like the fake blank columns that caused me grief with 2013). Fake blank rows are no sweat, though, not compared with the fake-blank columns breaking read_excel. I’ll just filter out these rows by looking for NA values in a column that should be fully populated.

# combine everything
CA_OSHPD_util <- CA_OSHPD_util %>%
    filter(!is.na(YEAR_QTR))

6 Character columns: fixing extraneous decimals

head(CA_OSHPD_util)

## Source: local data frame [6 x 134]
## 
##   orig_file           FAC_NO                              FAC_NAME
##       (chr)            (chr)                                 (chr)
## 1         1 106431013.000000                 AGNEWS STATE HOSPITAL
## 2         1 106010846.000000         ALAMEDA COUNTY MEDICAL CENTER
## 3         1 106010735.000000                      ALAMEDA HOSPITAL
## 4         1 106190017.000000                     ALHAMBRA HOSPITAL
## 5         1 106010739.000000 ALTA BATES SUMMIT MED CTR-ALTA BATES 
## 6         1 106540680.000000                ALTA HOSPITAL DISTRICT
## Variables not shown: YEAR_QTR (dbl), BEG_DATE (time), END_DATE (time),
##   OP_STATUS (chr), COUNTY_NAME (chr), HSA (chr), HFPA (chr), TYPE_CNTRL
##   (chr), TYPE_HOSP (chr), TEACH_RURL (chr), PHONE (chr), ADDRESS (chr),
##   CITY (chr), ZIP_CODE (chr), CEO (chr), AVG_LIC_BEDS (dbl), AVG_AVL_BEDS
##   (dbl), AVG_STF_BEDS (dbl), DIS_MCAR (dbl), DIS_MCAR_MC (dbl), DIS_MCAL
##   (dbl), DIS_MCAL_MC (dbl), DIS_CNTY (dbl), DIS_CNTY_MC (dbl), DIS_THRD
##   (dbl), DIS_THRD_MC (dbl), DIS_INDGNT (dbl), DIS_OTH (dbl), DIS_TOT
##   (dbl), DIS_LTC (dbl), DAY_MCAR (dbl), DAY_MCAR_MC (dbl), DAY_MCAL (dbl),
##   DAY_MCAL_MC (dbl), DAY_CNTY (dbl), DAY_CNTY_MC (dbl), DAY_THRD (dbl),
##   DAY_THRD_MC (dbl), DAY_INDGNT (dbl), DAY_OTH (dbl), DAY_TOT (dbl),
##   DAY_LTC (dbl), VIS_MCAR (dbl), VIS_MCAR_MC (dbl), VIS_MCAL (dbl),
##   VIS_MCAL_MC (dbl), VIS_CNTY (dbl), VIS_CNTY_MC (dbl), VIS_THRD (dbl),
##   VIS_THRD_MC (dbl), VIS_INDGNT (dbl), VIS_OTH (dbl), VIS_TOT (dbl),
##   GRIP_MCAR (dbl), GRIP_MCAR_MC (dbl), GRIP_MCAL (dbl), GRIP_MCAL_MC
##   (dbl), GRIP_CNTY (dbl), GRIP_CNTY_MC (dbl), GRIP_THRD (dbl),
##   GRIP_THRD_MC (dbl), GRIP_INDGNT (dbl), GRIP_OTH (dbl), GRIP_TOT (dbl),
##   GROP_MCAR (dbl), GROP_MCAR_MC (dbl), GROP_MCAL (dbl), GROP_MCAL_MC
##   (dbl), GROP_CNTY (dbl), GROP_CNTY_MC (dbl), GROP_THRD (dbl),
##   GROP_THRD_MC (dbl), GROP_INDGNT (dbl), GROP_OTH (dbl), GROP_TOT (dbl),
##   BAD_DEBT (dbl), CADJ_MCAR (dbl), CADJ_MCAR_MC (dbl), CADJ_MCAL (dbl),
##   CADJ_MCAL_MC (dbl), DISP_855 (dbl), CADJ_CNTY (dbl), CADJ_CNTY_MC (dbl),
##   CADJ_THRD (dbl), CADJ_THRD_MC (dbl), CHAR_HB (dbl), CHAR_OTH (dbl),
##   SUB_INDGNT (dbl), TCH_ALLOW (dbl), TCH_SUPP (dbl), DED_OTH (dbl),
##   DED_TOT (dbl), CAP_MCAR (dbl), CAP_MCAL (dbl), CAP_CNTY (dbl), CAP_THRD
##   (dbl), CAP_TOT (dbl), NET_MCAR (dbl), NET_MCAR_MC (dbl), NET_MCAL (dbl),
##   NET_MCAL_MC (dbl), NET_CNTY (dbl), NET_CNTY_MC (dbl), NET_THRD (dbl),
##   NET_THRD_MC (dbl), NET_INDGNT (dbl), NET_OTH (dbl), NET_TOT (dbl),
##   OTH_OP_REV (dbl), TOT_OP_EXP (dbl), PHY_COMP (dbl), NONOP_REV (dbl),
##   DIS_PIPS (dbl), DAY_PIPS (dbl), EXP_PIPS (dbl), EXP_POPS (dbl), CAP_EXP
##   (dbl), ENDING_FIX_ASSETS (dbl), DISP_TRNFR (dbl), DIS_TOT_CC (dbl),
##   PAT_DAY_TOT_CC (dbl), TOT_OUT_VIS_CC (dbl), GROS_INPAT_REV_CC (dbl),
##   GROS_OUTPAT_REV_CC (dbl), CONTR_ADJ_CC (dbl), OTHR_DEDUCT_CC (dbl),
##   CAP_PREM_REV_CC (dbl), NET_PAT_REV_CC (dbl), QA_FEES (dbl), QA_SUPPL_PAY
##   (dbl), MNGD_CARE_QA_PAY (dbl)

Something I’m observing looking at the file is that some of the values in the character columns that look like numbers (FAC_NO, HSA, HFPA) have weird decimals added due to Excel storing the info in “general” format some years and “text” format in others:

CA_OSHPD_util %>%
    select(FAC_NO, HSA, HFPA) %>%
    head(10)

## Source: local data frame [10 x 3]
## 
##              FAC_NO       HSA        HFPA
##               (chr)     (chr)       (chr)
## 1  106431013.000000  7.000000  431.000000
## 2  106010846.000000  5.000000  417.000000
## 3  106010735.000000  5.000000  417.000000
## 4  106190017.000000 11.000000  913.000000
## 5  106010739.000000  5.000000  415.000000
## 6  106540680.000000  9.000000  608.000000
## 7  106370652.000000 14.000000 1418.000000
## 8  106370749.000000 14.000000 1422.000000
## 9  106194010.000000 11.000000  917.000000
## 10 106560468.000000 10.000000  811.000000

These are going to be annoying if I wanted to group by any of these variables, because I need identifiers to be consistent across time and 6 extra decimal places does not help that cause. I want to take periods and any zeros after in these columns and remove them. We’ll see more about this in the string-cleaning lecture, but I’ll use the gsub function in base R inside mutate_each to do this to each of these variables.

CA_OSHPD_util <- CA_OSHPD_util %>%
    # translating the regular expression pattern:
    # \\. matches the location of the period.
    # 0+ matches at least one zero and possibly more following that period.
    # replacement for period + 0s is nothing (empty string)
    mutate_each(funs(gsub(pattern = "\\.0+",
                          x = .,
                          replacement = "")),
                # variables to fix:
                FAC_NO, HSA, HFPA)

CA_OSHPD_util %>%
    select(FAC_NO, HSA, HFPA) %>%
    head(10)

## Source: local data frame [10 x 3]
## 
##       FAC_NO   HSA  HFPA
##        (chr) (chr) (chr)
## 1  106431013     7   431
## 2  106010846     5   417
## 3  106010735     5   417
## 4  106190017    11   913
## 5  106010739     5   415
## 6  106540680     9   608
## 7  106370652    14  1418
## 8  106370749    14  1422
## 9  106194010    11   917
## 10 106560468    10   811

Much better! There are probably more issues at this point, but not ones I’m noticing. This is good enough for now.

7 Exporting the file and memory cleanup

To finish this off, I’ll save this formatted R file in a .rds format so that I can use it for whatever I want in the future and not worry about variable types getting screwed up.

# save the data in an R file
saveRDS(CA_OSHPD_util, "../Downloaded_data/CA_OSHPD_util.rds")

I’ll also get rid of the list that was storing the files for each year from memory since I don’t need it anymore. This isn’t strictly needed, but if these files were larger, I’d definitely want to do this to free up memory.

rm(yearly_frames)

8 Session information

sessionInfo()

## R version 3.2.4 (2016-03-10)
## Platform: x86_64-apple-darwin13.4.0 (64-bit)
## Running under: OS X 10.11.4 (El Capitan)
## 
## locale:
## [1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8
## 
## attached base packages:
## [1] stats     graphics  grDevices utils     datasets  methods   base     
## 
## other attached packages:
## [1] lubridate_1.5.0 dplyr_0.4.3     readxl_0.1.1   
## 
## loaded via a namespace (and not attached):
##  [1] Rcpp_0.12.4      codetools_0.2-14 digest_0.6.9     assertthat_0.1  
##  [5] R6_2.1.1         DBI_0.3.1        formatR_1.3      magrittr_1.5    
##  [9] evaluate_0.8     stringi_1.0-1    lazyeval_0.1.10  rmarkdown_0.9.5 
## [13] tools_3.2.4      stringr_1.0.0    yaml_2.1.13      parallel_3.2.4  
## [17] htmltools_0.3.5  knitr_1.12.3

Downloading data: a dark and depressing journey

Rebecca Ferrell

1 Introduction to data hell

1.1 Conceptual takeaways

2 Downloading the data automatically

2.1 URL patterns

2.2 Easy part: making the file names to use for saving

2.3 Using `for` loops and `if` to generate URLs

3 Downloading the files

4 Reading in the data

4.1 A simple first attempt

4.2 Trying to fix column types

4.3 2013: “`col_names` and `col_types` must have the same length”

4.3.1 A side journey into column name inconsistencies

4.4 Back to 2013: messing with `col_names` and `col_types`

4.5 “Fake blank” cells of doom

4.6 Whack-a-mole in 2014 and 2015

4.7 2014: manually fixing a column type

4.8 2015: an unexpected “gift”

4.9 Back to the drawing board with 2015’s dates

5 Combining everything

5.1 Missing rows

6 Character columns: fixing extraneous decimals

7 Exporting the file and memory cleanup

8 Session information

Downloading data: a dark and depressing journey

Rebecca Ferrell

1 Introduction to data hell

1.1 Conceptual takeaways

2 Downloading the data automatically

2.1 URL patterns

2.2 Easy part: making the file names to use for saving

2.3 Using for loops and if to generate URLs

3 Downloading the files

4 Reading in the data

4.1 A simple first attempt

4.2 Trying to fix column types

4.3 2013: “col_names and col_types must have the same length”

4.3.1 A side journey into column name inconsistencies

4.4 Back to 2013: messing with col_names and col_types

4.5 “Fake blank” cells of doom

4.6 Whack-a-mole in 2014 and 2015

4.7 2014: manually fixing a column type

4.8 2015: an unexpected “gift”

4.9 Back to the drawing board with 2015’s dates

5 Combining everything

5.1 Missing rows

6 Character columns: fixing extraneous decimals

7 Exporting the file and memory cleanup

8 Session information

2.3 Using `for` loops and `if` to generate URLs

4.3 2013: “`col_names` and `col_types` must have the same length”

4.4 Back to 2013: messing with `col_names` and `col_types`