Still gettting names to work.  This is hacky...should revise so that it uses dplyr method for renaming.