example <- default_Material('example')
file.name <- 'example'
## Not run:
# export_Material(example, file.name) # uncomment
# ## End(Not run)
# There is now an 'example.TL' and an 'example.OSL' file in the 'working directory'.
# These file are classical .txt files despite the extensions.
file.TL <- paste(getwd(),'/', file.name,'.TL', sep="")
print(file.TL)
# readLines(file.TL)
file.OSL <- paste(getwd(),'/', file.name,'.OSL', sep="")
print(file.OSL)
# readLines(file.OSL)
Run the code above in your browser using DataLab