header mismatch in load_data

[serbinsh]

It looks like when reading in the CR1000 files we have 1 more column than labels we assign, the last col of -1. the HT2 col. Can we just drop that col if we dont need it?

> Header
         V1     V2     V3     V4     V5     V6     V7     V8     V9    V10    V11    V12    V13    V14    V15    V16    V17 V18 V19
1 TIMESTAMP RECORD TH1(1) TH1(2) TH1(3) TH1(4) TH1(5) TH2(1) TH2(2) TH2(3) TH2(4) TH2(5) TH3(1) TH3(2) TH3(3) TH3(4) TH3(5)  HT HT2

  colnames(unprocData) <- Header
  # stock names for sapflux data frames
  names(unprocData) <- c("TIMESTAMP", "RECORD", "TREE1_TH1", "TREE2_TH1", 
                         "TREE3_TH1", "TREE4_TH1", "TREE5_TH1",
                         "TREE1_TH2", "TREE2_TH2", "TREE3_TH2", "TREE4_TH2", 
                         "TREE5_TH2", "TREE1_TH3", "TREE2_TH3", 
                         "TREE3_TH3", "TREE4_TH3", "TREE5_TH3", "HT_START")

Note we have 1 less assigned names than columns in the input data