Use tryCatch() correctly

hsonne · hsonne · commit 9b4276237e73 · 2024-11-01T19:07:14.000+01:00
diff --git a/R/extractObservationData.R b/R/extractObservationData.R
@@ -15,7 +15,7 @@ extractObservationData <- function(
         dbg = dbg
       )
     }, 
-    error = {
+    error = function(e) {
       do.call(extractObservationData_2, c(dot.args, list(
         text = text, 
         headerInfo = getHeaderInfo(text), 
diff --git a/R/readObservationsFromCsvText.R b/R/readObservationsFromCsvText.R
@@ -36,7 +36,7 @@ readObservationsFromCsvText <- function(
       utils::read.table, c(common_args, list(colClasses = colClasses))
     ), 
     silent = TRUE, 
-    error = {
+    error = function(e) {
       data <- do.call(utils::read.table, c(common_args, list(colClasses = NA)))
       convertTypes(data, dbg = dbg, classes = sapply(
         X = get_elements(inspectionDataFieldCodes(), names(data)), 

Original file line number	Diff line number	Diff line change
`@@ -15,7 +15,7 @@ extractObservationData <- function(`
`15`	`15`	`dbg = dbg`
`16`	`16`	`)`
`17`	`17`	`},`
`18`		`- error = {`
	`18`	`+ error = function(e) {`
`19`	`19`	`do.call(extractObservationData_2, c(dot.args, list(`
`20`	`20`	`text = text,`
`21`	`21`	`headerInfo = getHeaderInfo(text),`