R Under development (unstable) (2024-02-07 r85873 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2024 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library("diseasemapping")
> 
> larynxRates= try(cancerRates("USA", year=1998:2002,site="Larynx"), silent=TRUE)
Warning message:
In file(file, "r") :
  cannot open URL 'https://ci5.iarc.fr/CI5plus/old/Table4r.asp?registry=8400199&period=1998&period=1999&period=2000&period=2001&period=2002&sex=1&window=1&text=1&stat=0&submit=Execute': HTTP status was '404 Not Found'
> 
> if(class(larynxRates)=='try-error') {
+ 	warning("iarc web site appears to be down")
+ } else {
+ 
+ 	larynxRates
+ 
+ data("kentucky")
+ kentucky = unwrap(kentucky)
+ 
+ kentucky2 = getSMR(kentucky, larynxRates, larynx, 
+ 		regionCode="County")
+ 
+ if(require('mapmisc', quietly=TRUE)) {
+ 	mycol = colourScale(kentucky2$SMR, breaks=9, 
+ 			dec=-log10(0.5), style='equal', transform='sqrt')
+ 	plot(kentucky2, col=mycol$plot)
+ 	legendBreaks('topleft', mycol)
+ }
+ }
Warning message:
iarc web site appears to be down 
> 
> proc.time()
   user  system elapsed 
   4.90    0.17    5.20