Trouble with Spatial Data Example Script

-----Original Message-----
From: lorenzo.isella at gmail.com
Sent: Fri, 10 Aug 2012 22:20:56 +0200
To: r-help at stat.math.ethz.ch
Subject: [R] Trouble with Spatial Data Example Script

Dear All,
I need to do something relatively simple: generate a map of Europe and
paint the various states with different colors (only 3-4 are needed)
according to a rule.
I would like to keep it as simple as possible and the script resorting to
the sp package that I found at

http://bit.ly/Oc71ub

is exactly what I am looking for (I need to repeat the exercise with
Europe instead of Switzerland and to have a legend).
However, when I try to run the script (which I also paste at the end of
the email), well, nothing happens and I certainly do not see a map of
Switzerland.
I am not familiar with the sp package, but am I missing the obvious?
Any help is appreciated.
Best Regards

Lorenzo

########################################?

library(sp)
con <- url("http://gadm.org/data/rda/CHE_adm1.RData")
print(load(con))
close(con)



language <- c("german", "german", "german","german",
  "german","german","french", "french",
  "german","german","french", "french",
  "german", "french","german","german",
  "german","german","german", "german",
  "german","italian","german","french",
  "french","german","german")
gadm$language <- as.factor(language)
col = rainbow(length(levels(gadm$language)))
spplot(gadm, "language", col.regions=col, main="Swiss Language Regions")

###########################################