Geocode NYC парки на основе расшифровки. Если нет результата, напишите NA и переходите к другим строкам

Question

хотел бы запросить некоторую помощь - чтобы код продолжал цикл по всем другим строкам, если геокодирование некоторых парков не найдено. В настоящее время, если геокод API не найден, весь код останавливается. Пожалуйста, смотрите прилагаемое изображение.

#looping over park description.
for(i in 1:nrow(distinct_park))
{
  # Print("Working...")
  result <- geocode(distinct_park$park_desc [i], output = "latlona", source = "google", key = "key" )
  distinct_park$lon[i] <- as.numeric(result[1])
  distinct_park$lat[i] <- as.numeric(result[2])
  distinct_park$geoAddress[i] <- as.character(result[3])
}

Answer 1

Рассмотрим tryCatch для сопоставления итераций ошибок, чтобы присвоить NA нужным столбцам.

for(i in 1:nrow(distinct_park))
{
  # Print("Working...")
  tryCatch({
       result <- geocode(distinct_park$park_desc [i], output = "latlona", 
                         source = "google", key = "key" )
       distinct_park$lon[i] <- as.numeric(result[1])
       distinct_park$lat[i] <- as.numeric(result[2])
       distinct_park$geoAddress[i] <- as.character(result[3])

  }, error = function(e) { 
       distinct_park$lon[i] <- NA
       distinct_park$lat[i] <- NA
       distinct_park$geoAddress[i] <- NA
  })
}