Use tryCatch() correctly

KWB-R · Nov 1, 2024 · 9b42762 · 9b42762
1 parent bbac39d
commit 9b42762
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
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)),