year <- format(Sys.time(), "%Y")
abs <- trimws(gsub("\\s+", " ", meta$Description))
abs <- gsub("'", "", abs)
title <- gsub("'", "", meta$Title)

bibentry(
  "Manual",
  header = paste0("To cite '", meta$Package, "' in publications use:"),
  title = "{CatastRo}: Interface to the {API} Sede Electrónica Del Catastro",
  author = c(person("Ángel", "Delgado Panadero"), person("Diego", "Hernangómez")),
  year = year,
  version = meta$Version,
  url = unlist(strsplit(meta$URL, ","))[1],
  doi = "10.5281/zenodo.6044091",
  abstract = abs,
  key = "R-catastro",
  textVersion = paste0("Delgado Panadero A, Hernangomez D (",year,"). _CatastRo: ",
    "Interface to the API Sede Electrónica Del Catastro_. <https://doi.org/10.5281/zenodo.6044091>, <",
    unlist(strsplit(meta$URL, ","))[1],">")
)
