# \donttest{
if (identical(Sys.getenv("OSRM_EXAMPLES"), "true")) {
# Clean up a temporary project's .Rprofile
old <- setwd(tempdir())
on.exit(setwd(old), add = TRUE)
writeLines(
c(
"#added-by-r-pkg-osrm.backend",
'Sys.setenv(PATH = paste("dummy", Sys.getenv("PATH"), sep = .Platform$path.sep))'
),
".Rprofile"
)
osrm_clear_path(quiet = TRUE)
unlink(".Rprofile")
}
# }
Run the code above in your browser using DataLab