Update quote=FALSE for new versions of R

rscripts/get_gridded_vals.R

@@ -94,7 +94,7 @@ for ( year in my_args[1]:my_args[2] ) {
     ##hts.by.id  <-  read.table(paste0("ENS_HTS/htbyid_",year,".psv.gz"),header=F,sep="|")
     hts_file_id <- file.path(out_dir,sprintf("htbyid_%s.psv",year))
     if(file.exists(hts_file_id)){
-        hts.by.id  <-  read.table(hts_file_id,header=F,sep="|",comment.char="",quote=FALSE)
+        hts.by.id  <-  read.table(hts_file_id,header=F,sep="|",comment.char="",quote="")
         cat("got ID hts","\n")
     } else {
         cat('no height file, skipping',year,"\n")