Minor change for encoding

processing/extractBH.R

@@ -168,7 +168,7 @@ extractBH_meta = function (computer_data_path, filedir, filename, verbose=TRUE)
     if (file.exists(file_path) & substr(file_path, nchar(file_path), nchar(file_path)) != '/') {
         
         # Extract all the header
-        metatxt = c(readLines(file_path, n=41))
+        metatxt = c(readLines(file_path, n=41, encoding="latin1"))
         
         # Create a tibble with all the metadata needed
         df_meta =