Examples for 'utils::shortPathName'

### ** Examples

if(.Platform$OS.type == "windows") withAutoprint({

## No test: 
  cat(shortPathName(c(R.home(), tempdir())), sep = "\n")
## End(No test)
## Don't show: 
  cat(shortPathName(R.home()), sep = "\n")
## End(Don't show)
})