# NOT RUN {
old.path <- Sys.getenv("X13_PATH")
Sys.setenv(X13_PATH = "") # its broken now
checkX13()
Sys.setenv(X13_PATH = old.path) # fix it (provided it worked in the first place)
checkX13()
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab