One way that seems to work is to open a NULL pdf
device. I originally tried this with the png
device, which doesn't work.
pdf(NULL)
dat <- tmPlot(GNI2010,
index=c("continent", "iso3"),
vSize="population",
vColor="GNI",
type="value")[[1]][[1]]
dev.off()