Simple R script to convert Long/Lat to UTM format

lonlat2utm.R

#!/usr/bin/Rscript
#
#Copyright (c) 2012 Bruno Vieira [http://bmpvieira.com]
#License: MIT
#Description: Simple R script to convert Long/Lat to UTM format

require("PBSmapping") || install.packages("PBSmapping", dependencies=TRUE) && require("PBSmapping")
input <- commandArgs(TRUE)[1]
coord <- read.csv(input, header = TRUE)
attr(coord, "projection") <- "LL"
attr(coord, "zone") <- NA
coord.utm <- convUL(coord)
output <-  sub(pattern = ".csv", replacement = ".utm.csv",  x = input)
write.csv(coord.utm, output)