# Check if R's COPYING file is readable
testFile(file.path(R.home(), "COPYING"), access = "r")
# Check if R's COPYING file is readable and writable
testFile(file.path(R.home(), "COPYING"), access = "rw")
Run the code above in your browser using DataLab