From 03ba0b1e1bf03b879f020e50d9237708d7495855 Mon Sep 17 00:00:00 2001 From: Andrew Gene Brown Date: Fri, 17 May 2024 12:23:45 -0700 Subject: [PATCH] fetchSCAN: fix header format for #350, thanks to @dschlaep --- R/fetchSCAN.R | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/R/fetchSCAN.R b/R/fetchSCAN.R index 786f1993..8810c8e6 100644 --- a/R/fetchSCAN.R +++ b/R/fetchSCAN.R @@ -385,10 +385,11 @@ fetchSCAN <- function(site.code = NULL, year = NULL, report = 'SCAN', timeseries # attempt to read column headers, after skipping the first two lines of data # note: this moves the text connection cursor forward 3 lines # 2018-03-06 DEB: results have an extra line up top, now need to skip 3 lines + # 2024-05-17 AGB: results have 2 more extra lines; thanks to Daniel Schlaepfer for reporting h <- unlist(read.table( tc, nrows = 1, - skip = 3, + skip = 5, header = FALSE, stringsAsFactors = FALSE, sep = ',',