edit

prcwiek · prcwiek · commit 8e9bc72e4aaf · 2026-06-04T18:21:13.000+02:00
diff --git a/R/metar_get_historical.R b/R/metar_get_historical.R
@@ -181,7 +181,7 @@ metar_get_historical <- function(airport = "EPWA",
     ds <- utils::read.csv((textConnection(myfile)), stringsAsFactors = FALSE)
     # check if ds is a data frame and number of rows is greater than 0
     if (!is.data.frame(ds) | ncol(ds) != 3 | nrow(ds) == 0) {
-      stop("pmetar package error: Malformed answer from the server mesonet.agron.iastate.edu! ", call. = FALSE)
+      stop("pmetar package error: Malformed answer from the server mesonet.agron.iastate.edu!", call. = FALSE)
     }
     # check if there are all columns needed in ds
     if (!("station" %in% names(ds)) | !("valid" %in% names(ds)) | !("metar" %in% names(ds))) {

Original file line number	Diff line number	Diff line change
`@@ -181,7 +181,7 @@ metar_get_historical <- function(airport = "EPWA",`
`181`	`181`	`ds <- utils::read.csv((textConnection(myfile)), stringsAsFactors = FALSE)`
`182`	`182`	`# check if ds is a data frame and number of rows is greater than 0`
`183`	`183`	`if (!is.data.frame(ds) \| ncol(ds) != 3 \| nrow(ds) == 0) {`
`184`		`- stop("pmetar package error: Malformed answer from the server mesonet.agron.iastate.edu! ", call. = FALSE)`
	`184`	`+ stop("pmetar package error: Malformed answer from the server mesonet.agron.iastate.edu!", call. = FALSE)`
`185`	`185`	`}`
`186`	`186`	`# check if there are all columns needed in ds`
`187`	`187`	`if (!("station" %in% names(ds)) \| !("valid" %in% names(ds)) \| !("metar" %in% names(ds))) {`