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