f <- as.mfile('test.m')
f
# detected code elements are written into temporary files
f <- as.mfile('test.m', "function [y] = myfun()
y = 1;
end
")
## Not run:
# file.show(f[2])
# ## End(Not run)
# remove all files
unlink(f)
Run the code above in your browser using DataLab