# NOT RUN {
model = "
DATAMODEL Test
FIELDS
A : STRING[1]
B : INTEGER[1]
C : REAL[3,1]
D : REAL[3]
E : (Male, Female)
F : 1..20
G : 1.00..100.00
ENDMODEL
"
data =
"A12.3.121 1 1.00
B23.41.2210 20.20
C34.512.120100.00"
blafile = tempfile('testbla', fileext = '.bla')
writeLines(model, con = blafile)
datafile = tempfile('testdata', fileext = '.asc')
writeLines(data, con = datafile)
df = read_fwf_blaise(datafile, blafile)
unlink(blafile)
unlink(datafile)
# }
Run the code above in your browser using DataLab