# NOT RUN {
x <- file_create(file_temp())
is_file(x)
# dir_create applied to the same path will fail
try(dir_create(x))
x <- dir_create(file_temp())
is_dir(x)
# file_create applied to the same path will fail
try(file_create(x))
# }
Run the code above in your browser using DataLab