Reads composite files with 13C data from IRIS/Wagner Analysen. The composite files start as follows:
"Testergebnis"
"Nummer","1330"
"Datum","10.10.2013"
"Testart"Arguments
- filename
name of IRIS/Wagner file in composite format
- text
alternatively, text can be given as string
Value
List of class breathtest_data with
file_name, patient_name, patient_first_name,
test, identifikation, and data frame data with time
and dob
Examples
filename = btcore_file("IrisMulti.TXT")
cat(readLines(filename, n = 10), sep="\n")
#> "Testergebnis"
#> "Nummer","22"
#> "Datum","12.06.2009"
#> "Testart"
#> "Name","Magenentleerung fest"
#> "Abk<fc>rzung","GE FEST"
#> "Substrat","Natriumoktanoat"
#> "Molekulargewicht [g/mol]","0"
#> "13C-Atome/Molek<fc>l","1"
#> "Anreicherung [%]","0"
#
iris_data = read_iris(filename)
str(iris_data)
#> List of 23
#> $ patient_id : chr "1871960"
#> $ name : chr "V"
#> $ first_name : chr "S"
#> $ initials : chr "VS"
#> $ dob : logi NA
#> $ birth_year : logi NA
#> $ gender : logi NA
#> $ study : chr "GE FEST"
#> $ pat_study_id: logi NA
#> $ file_name : chr "IrisMulti.TXT"
#> $ device : chr "Iris"
#> $ substrate : chr "octanoate"
#> $ record_date : chr "2020-06-12"
#> $ start_time : chr "2020-06-12"
#> $ end_time : chr "2020-06-12"
#> $ test_no : int 22
#> $ dose : num 100
#> $ height : num 180
#> $ weight : num 80
#> $ t50 : logi NA
#> $ gec : logi NA
#> $ tlag : logi NA
#> $ data :'data.frame': 14 obs. of 3 variables:
#> ..$ minute: num [1:14] 0 10 20 45 60 75 90 105 120 140 ...
#> ..$ dob : num [1:14] 0 -2.46 1.13 1.39 2.91 2.35 3.24 4.27 3.22 3.64 ...
#> ..$ pdr : num [1:14] 0 -2.8 1.29 1.58 3.32 ...
#> - attr(*, "class")= chr "breathtest_data"