load('rainfall.RData') for (st in stations$Station) { link <- paste0('<img src="https://dl.dropboxusercontent.com/u/7013997/ccpng/mp%20',st,'.png">') cat(link,'\n') }