library(ggmap)
    library(leaflet)
    library(readxl)

     # no RStudio o diretorio de trabalho corrente do R aponta para o local
    # aonde o script está
    setwd(dirname(rstudioapi::getActiveDocumentContext()$path))

    # le arquivo excel capitais
    Pontos = read_excel("pontos_turisticos.xlsx")

    nome = Pontos$Nome;
    bairro = Pontos$Bairro;
    endereco = Pontos$Endereço;
    cidade = "Nova Friburgo";
    estado = "RJ";



     geocode("nome[1],bairro[1],endereco[1],cidade,estado");