# NOT RUN {
x <- file_create(file_temp(), "000")
file_chmod(x, "777")
file_info(x)$permissions
file_chmod(x, "u-x")
file_info(x)$permissions
file_chmod(x, "a-wrx")
file_info(x)$permissions
file_chmod(x, "u+wr")
file_info(x)$permissions
# }
Run the code above in your browser using DataLab