                                  address
1  Rua Fulano de tal, 123, Nome da Cidade
2        Rua Ciclano, 312, Nome da Cidade

> latlng(dataframeAddress, 1)  # Nome do data frame e a coluna onde está o endereço

                                  address       lat        lng
1  Rua Fulano de tal, 123, Nome da Cidade  10.00000 -100.00000 
2        Rua Ciclano, 312, Nome da Cidade -10.00000   10.00000

#-

# Funcão

#------------------

latlng <- function(address, column) {
  readyAddress <- data.frame(formatted=c(gsub(' ', '+', address[, column])))

  prePart <- "http://maps.google.com/maps/api/geocode/json?address="
  posPart <- "&sensor=true"

  request <- paste(prePart, readyAddress$formatted, posPart, sep="")
  json <- character(length(request))
  store <- data.frame(lat=numeric(length(request)), lng=numeric(length(request)))

  for (i in 1:length(request)) {
    json[i] <- getURL(url=request[i])
    temp <- fromJSON(json[i])
    latLng <- temp$results[[1]]$geometry$location
    store[i, ] <- latLng
  }

  result <- cbind(address[, column], store)
  colnames(result) <- c("address", "lat", "lng")
  result
}

---

Espero que seja útil.

Abs,