Как геокодировать через For L oop с помощью Tidygeocoder

Question

Я пытаюсь l oop просмотреть список адресов и вернуть список долгот и широт в исходном файле. Я получаю сообщение об ошибке Error: unexpected '}' in "}", которое меня смущает. Любая причина, почему я получаю эту ошибку?

library(tidygeocoder)
library(tidyverse)

id  <- c(1,2,3,4,5)
loc_address <- as.character(c("17401 Perdido Key Dr, Pensacola, FL 32507",                            
   "16495 Perdido Key Dr, Pensacola, FL 32507" ,                 
   "29348 Perdido Beach Blvd #3, Orange Beach, AL 36561",                
   "31000 Harbour Dr, Orange Beach, AL 36561" ,               
   "16313 Perdido Key Dr, Pensacola, FL 32507"))

tbl <- data.frame(id, loc_address)
tbl$loc_address <- as.character(tbl$loc_address)


tbl <- tbl %>%
  mutate(long = 0,
         lat  = 0)

for(add in 1:dim(tbl) [1]) {
  print(add)
  long_lat<- geo_census(tbl$loc_address[add])
  Sys.sleep(1)
  if(dim(long_lat) [1] !=0 {
    long_lat$lat[add] = long_lat$lat
    long_lat$long[add] = long_lat$long
  }
}

Answer 1

Основываясь на ответе @ eipi10, ниже приведено рабочее решение

library(tidygeocoder)
library(tidyverse)

id  <- c(1,2,3,4,5)
loc_address <- as.character(c("17401 Perdido Key Dr, Pensacola, FL 32507",                            
   "16495 Perdido Key Dr, Pensacola, FL 32507" ,                 
   "29348 Perdido Beach Blvd #3, Orange Beach, AL 36561",                
   "31000 Harbour Dr, Orange Beach, AL 36561" ,               
   "16313 Perdido Key Dr, Pensacola, FL 32507"))

tbl <- data.frame(id, loc_address)
tbl$loc_address <- as.character(tbl$loc_address)


tbl <- tbl %>%
  mutate(long = 0,
         lat  = 0)

for(add in 1:dim(tbl)) [1]) {
  print(add)
  long_lat<- geo_census(tbl$loc_address[add])
  Sys.sleep(1)
  if(dim(long_lat) [1] !=0) {
    tbl$lat[add] = long_lat$lat
    tbl$long[add] = long_lat$long
  }
}