data-raw/sn_empty_street_name_named_after_id.R

In giocomai/streetnamer: Match street names to their Wikidata identifier with a Shiny interface

## code to prepare `sn_empty_street_named_after_id` dataset goes here

sn_set_data_folder(path = tempdir())
tidywikidatar::tw_set_cache_folder(path = tempdir())

sn_write_street_named_after_id(
  gisco_id = "IT_022205",
  street_name = "Belvedere San Francesco",
  named_after_id = "Q676555",
  country = "IT",
  person = TRUE,
  category = NA,
  session = as.character(floor(runif(1) * 1e20)),
  # time = Sys.time(),
  checked = TRUE
)
sn_empty_street_named_after_id <- sn_get_street_named_after_id(
  gisco_id = "IT_022205",
  street_name = "Belvedere San Francesco",
  country = "IT"
) %>%
  dplyr::slice(0)

usethis::use_data(sn_empty_street_named_after_id, overwrite = TRUE)