Fixes #1261 throw an error if data is not utf-8 encoded

Open-Systems-Pharmacology · Aug 14, 2024 · 5bfa12f · 5bfa12f
1 parent 271f79f
commit 5bfa12f
Show file tree

Hide file tree

Showing 3 changed files with 338 additions and 1 deletion.
diff --git a/R/utilities-observed-data.R b/R/utilities-observed-data.R
@@ -66,6 +66,7 @@ readObservedDataFile <- function(fileName,
                                  header = TRUE,
                                  encoding = "UTF-8") {
   validateFileExists(fileName)
+  validateIsFileUTF8(fileName)
   # Get function with the most appropriate reading defaults
   readObservedData <- getReaderFunction(fileName)
   observedData <- readObservedData(