Nothing
R/padronizar_complementos.R
In enderecobr: Padronizador de Endereços Brasileiros (Brazilian Addresses Standardizer)
Defines functions
padronizar_complementos
Documented in
padronizar_complementos
#' Padronizar complementos
#'
#' Padroniza um vetor de caracteres representando complementos de logradouros.
#' Veja a seção *Detalhes* para mais informações sobre a padronização.
#'
#' @param complementos Um vetor de caracteres. Os complementos a serem
#' padronizados.
#'
#' @return Um vetor de caracteres com os complementos padronizados.
#'
#' @section Detalhes:
#' Operações realizadas durante a padronização:
#'
#' - remoção de espaços em branco antes e depois das strings e remoção de
#' espaços em excesso entre palavras;
#' - conversão de caracteres para caixa alta;
#' - remoção de acentos e caracteres não ASCII;
#' - adição de espaços após abreviações sinalizadas por pontos;
#' - expansão de abreviações frequentemente utilizadas através de diversas
#' [expressões regulares
#' (regexes)](https://en.wikipedia.org/wiki/Regular_expression);
#' - correção de alguns pequenos erros ortográficos.
#'
#' @examples
#' complementos <- c("", "QD1 LT2 CS3", "APTO. 405")
#' padronizar_complementos(complementos)
#'
#' @export
padronizar_complementos <- function(complementos) {
checkmate::assert_character(complementos)
complementos_dedup <- unique(complementos)
complementos_padrao_dedup <- stringr::str_squish(complementos_dedup)
complementos_padrao_dedup <- toupper(complementos_padrao_dedup)
complementos_padrao_dedup <- stringi::stri_trans_general(
complementos_padrao_dedup,
"Latin-ASCII"
)
complementos_padrao_dedup <- stringr::str_replace_all(
complementos_padrao_dedup,
c(
# pontuacao
r"{\.\.+}" = ".", # remover pontos repetidos
r"{(\d+)\.(\d{3})}" = "\\1\\2", # pontos usados como separador de milhares
# r"{(\d+)\.(\d+)}" = "\\1,\\2", # pontos usados como separador de decimais (nao sei se esse vale, tem muitas poucas observacoes e ela sao meio ambiguas. no caso do cpf, por exemplo, tem so "BL 3.1 APTO 204", "KM 7.5", "2.2 BLOCO G" e "34.5KV" no primeiro milhao de observacoes)
r"{\.([^ ])}" = "\\. \\1", # garantir que haja espaco depois do ponto
r"{ (-|\.) }" = " ",
r"{\.$}" = "", # remocao de ponto final
# sinalizacao
r"{"}" = "'", # existem ocorrencias em que aspas duplas sao usadas para se referir a um logradouro/quadra com nome relativamente ambiguo - e.g. RUA \"A\", 26. isso pode causar um problema quando lido com o data.table: https://github.com/Rdatatable/data.table/issues/4779. por enquanto, substituindo por aspas simples. depois a gente pode ver o que fazer com as aspas simples rs.
# valores non-sense
r"{^(0|-)+$}" = "", # - --+ 0 00+
r"{^([^\dIX])\1{1,}$}" = "", # qualquer valor não numérico ou romano repetido 2+ vezes
r"{^(\d)\1{3,}$}" = "", # assumindo que qualquer numero que apareca 4 ou mais vezes repetido eh um erro de digitacao
r"{^I{4,}$}" = "", # IIII+
r"{^X{3,}$}" = "", # XXX+
r"{\bQD?-?(\d+)-?LT?-?(\d+)-?CS?-?(\d+)\b}" = "QUADRA \\1 LOTE \\2 CASA \\3",
r"{\bQD?-?(\d+)-?CS?-?(\d+)-?LT?-?(\d+)\b}" = "QUADRA \\1 LOTE \\3 CASA \\2",
r"{\bCS?-?(\d+)-?LT?-?(\d+)-?QD?-?(\d+)\b}" = "QUADRA \\3 LOTE \\2 CASA \\1",
r"{\bCS?-?(\d+)-?QD?-?(\d+)-?LT?-?(\d+)\b}" = "QUADRA \\2 LOTE \\3 CASA \\1",
r"{\bLT?-?(\d+)-?QD?-?(\d+)-?CS?-?(\d+)\b}" = "QUADRA \\2 LOTE \\1 CASA \\3",
r"{\bLT?-?(\d+)-?CS?-?(\d+)-?QD?-?(\d+)\b}" = "QUADRA \\3 LOTE \\1 CASA \\2",
r"{\bFDS-?QD?-?(\d+)-?LT?-?(\d+)\b}" = "QUADRA \\1 LOTE \\2 FUNDOS",
r"{\bQD?-?(\d+)-?LT?-?(\d+)\b}" = "QUADRA \\1 LOTE \\2",
r"{\bFDS-?LT?-?(\d+)-?QD?-?(\d+)\b}" = "QUADRA \\2 LOTE \\1 FUNDOS",
r"{\bLT?-?(\d+)-?QD?-?(\d+)\b}" = "QUADRA \\2 LOTE \\1",
r"{\bQD?-?(\d+)-?CS?-?(\d+)\b}" = "QUADRA \\1 CASA \\2",
r"{\bLT?-?(\d+)-?C-?(\d+)\b}" = "LOTE \\1 CASA \\2",
r"{\bC-?(\d+)-?LT?-?(\d+)\b}" = "LOTE \\2 CASA \\1",
r"{\bQD?-?(\d+)-?BL?-?(\d+)-?AP(TO?)?-?(\d+)\b}" = "QUADRA \\1 BLOCO \\2 APARTAMENTO \\4",
r"{\bLT?-?(\d+)-?BL?-?(\d+)-?AP(TO?)?-?(\d+)\b}" = "LOTE \\1 BLOCO \\2 APARTAMENTO \\4",
r"{\bB(LOCO|L)?-?(\d+)-?C(ASA|S)?-?(\d+)\b}" = "BLOCO \\2 CASA \\4",
r"{\bB(LOCO|L)?-?(\d+([A-Z]{1})?)-?AP(ARTAMENTO|TO?)?-?(\d+([A-Z]{1})?)\b}" = "BLOCO \\2 APARTAMENTO \\5",
r"{\bAP(ARTAMENTO|TO?)?-?(\d+([A-Z]{1})?)-?B(LOCO|L)?-?(\d+([A-Z]{1})?)\b}" = "BLOCO \\5 APARTAMENTO \\2",
# localidades
r"{\bAPR?T0\b}" = "APTO",
r"{\bAP(R?T(O|\u00BA)?|AR?T(O|AMENTO)?)?\.?(\d)}" = "APARTAMENTO \\4", # \u00BA = º, usado pro check não reclamar da presença de caracteres não-ascii
r"{(\d)AP(R?T(O|\u00BA)?|AR?T(O|AMENTO)?)?\b\.?}" = "\\1 APARTAMENTO", # "FUJIKAWA APATO"
r"{\bAP(R?T(O|\u00BA)?|AR?TO?)?\b\.?}" = "APARTAMENTO",
r"{\bAPARTAMENTO\b: ?}" = "APARTAMENTO ",
r"{\bAPARTAMENTO-(\d+)}" = "APARTAMENTO \\1",
r"{ ?-APARTAMENTO}" = " APARTAMENTO",
r"{\b(BLO CO|BLOC0|BLOO(CO)?|BLOQ)\b}" = "BLOCO",
r"{\b(BLOCO|BL(OC|Q|C?O?)?)\.?(\d+)}" = "BLOCO \\3",
r"{(\d)(BLOCO|BL(OC|Q|C?O?)?)\b\.?}" = "\\1 BLOCO",
r"{\bBL(OC|Q|C?O?)?\b\.?}" = "BLOCO", # "BLO CASA 03"? "CASA 07 BLO"? soh truncado talvez; vi alguns BLQ que nao parecem BLOCO Q, mas sim BLOCO mesmo. e.g. "QUADRA 19 BLQ A", "BLQ 40 APARTAMENTO 504", "BLQ 01"
r"{\bBLOCO\b: ?}" = "BLOCO ",
r"{\bBLOCO-(\d+)}" = "BLOCO \\1",
r"{ ?-BLOCO}" = " BLOCO",
r"{\b(BLOCO|BL(Q|C?O?)?)\.?-?([A-Z]{1}(\d{1})?)\b}" = "BLOCO \\2", # e.g. "APARTAMENTO 402 BLA", "BLOCO-C-42 APARTAMENTO 11", "C3 BLB1 APARTAMENTO 43"
# muita coisa pode ser quadra... Q A LOTE 2, Q I LOTE 45, QI, Q I, etc etc. tem que ver o que faz sentido
r"{QU ADRA}" = "QUADRA",
r"{\bQ(U(ADRA)?|D(RA?)?)\.?(\d)}" = "QUADRA \\4", # QDA pode ser QUADRA A. da tipo 1%~ das observacoes, pelo que vi aqui. vale a pena errar nesses 1% e transformar?
r"{(\d+)Q(U(ADRA)?|D(RA?)?)\b\.?}" = "\\1 QUADRA",
r"{\bQD(RA?)?\b\.?}" = "QUADRA",
r"{\bQU\b\.? }" = "QUADRA ", # espaco no final pra evitar casos como "EDIFICIO RES M LUIZA QU" e "BLOCO 3A APARTAMENTO 201 E M QU"
r"{\bQUADRA\b: ?}" = "QUADRA ",
r"{\bQUADRA-(\d+)}" = "QUADRA \\1",
r"{\bQ\.? ?(\d)}" = "QUADRA \\1",
r"{\bQ-(\d+)}" = "QUADRA \\1",
r"{\bQ-([A-Z])\b}" = "QUADRA \\1",
r"{ ?-QUADRA}" = " QUADRA",
r"{\b(LOTE|LTE?)\.?(\d)}" = "LOTE \\2",
r"{\b(?<!RUA |S\/)L\.? (\d)}" = "LOTE \\1", # o \\1 ta certo mesmo, os (?...) nao contam. transforma L 5 em LOTE 5, mas evita que RUA L 5 LOTE 45 vire RUA LOTE 5 LOTE 45 e que S/L 205 vire S/LOTE 205
r"{(\d)(LTE?|LOTE)\b\.?}" = "\\1 LOTE",
r"{\bLTE?\b\.?}" = "LOTE",
r"{\bLOTE\b: ?}" = "LOTE ",
r"{\bLOTE-(\d+)}" = "LOTE \\1",
r"{\b(?<!(TV|TRAVESSA|QUADRA) )L-(\d+)}" = "LOTE \\2", # "L-21-NOVO HORIZONTE" ? "L-36" ?
r"{ ?-LOTE}" = " LOTE",
r"{\b(LOTES|LTS)\.?(\d)}" = "LOTES \\2",
r"{(\d)(LTS|LOTES)\b\.?}" = "\\1 LOTES",
r"{\bLTS\b\.?}" = "LOTES",
# r"{\bLOT\.? ?(\d)}" = "LOTE \\1", # LOT seguido de numero tende a ser LOTE, mas seguido de palavra tende a ser LOTEAMENTO? tem excecoes e.g. "LOT 28 AGOSTO", "LOT 1 DE MAIO", "LOT 2 IRMAS", "LOT 3 COQUEIROS"
r"{\bLOT\.? ([A-Z]{2,})}" = "LOTEAMENTO \\1",
r"{\b(CASA|CS)\.?(\d)}" = "CASA \\2", # CSA?
r"{(\d)(CASA|CS)\b\.?}" = "\\1 CASA",
r"{\bCS\b\.?}" = "CASA",
r"{\bCASA\b: ?}" = "CASA ",
r"{\bCASA-(\d+)}" = "CASA \\1",
#r"{[^^]\b(?<!(APARTAMENTO|CONJUNTO|BLOCO|QUADRA) )C-(\d+)}" = "CASA \\1", # ESSE TEM MUITA VARIACAO, COMPLICADO #### Q-10 C-03 = Q-10 CASA 03, mas APARTAMENTO C-03 nao eh mexido, nem soh C-03 (pode ser soh C-03 mesmo)
r"{ ?-CASA}" = " CASA",
r"{\b(C(ON)?JT?|CONJUNTO)\.?(\d)}" = "CONJUNTO \\3",
r"{(\d)(C(ON)?JT?|CONJUNTO)\b\.?}" = "\\1 CONJUNTO",
r"{\bC(ON)?JT?\b\.?}" = "CONJUNTO",
r"{\bCONJUNTO\b: ?}" = "CONJUNTO ",
r"{\bCONJUNTO-(\d)}" = "CONJUNTO \\1",
r"{ ?-CONJUNTO}" = " CONJUNTO",
r"{\b(CONDOMINIO|C(O?N)?D)\.?(\d)}" = "CONDOMINIO \\3", # "LOTE 4 RUA 06 COND263"? "COND3 T7 APARTAMENTO 13"? "BLOCO 07 APARTAMENTO 204 CD2"?
r"{(\d)(CONDOMINIO|C(O?N)?D)\b\.?}" = "\\1 CONDOMINIO",
r"{\bC(O?N)?D\b\.?}" = "CONDOMINIO",
r"{\bCONDOMINIO\b: ?}" = "CONDOMINIO ",
r"{\bCONDOMINIO-(\d)}" = "CONDOMINIO \\1",
r"{ ?-CONDOMINIO}" = " CONDOMINIO",
r"{\bAND(AR)?\.?(\d)}" = "ANDAR \\2",
r"{(\dO?)AND(AR)?\b\.?}" = "\\1 ANDAR",
r"{\bAND\b\.?}" = "ANDAR",
r"{\bANDAR\b: ?}" = "ANDAR ",
r"{\bANDAR-(\d+)}" = "ANDAR \\1",
r"{ ?-ANDAR}" = " ANDAR",
r"{\bCOB(ERTURA)?\.?(\d)}" = "COBERTURA \\2",
r"{(\d)COB(ERTURA)?\b\.?}" = "\\1 COBERTURA",
r"{\bCOB\b\.?}" = "COBERTURA",
r"{\bCOBERTURA\b: ?}" = "COBERTURA ",
r"{\bCOBERTURA-(\d+)}" = "COBERTURA \\1",
r"{ ?-COBERTURA}" = " COBERTURA",
r"{\b(FDS|FUNDOS)\.?(\d)}" = "FUNDOS \\2",
r"{(\d)(FDS|FUNDOS)\b\.?}" = "\\1 FUNDOS",
r"{\bFDS\b\.?}" = "FUNDOS",
r"{-FUNDOS}" = " FUNDOS",
# tipos de logradouro
r"{\bAV\b\.?}" = "AVENIDA", # "APARTAMENTO 401 EDIFICIO RES 5O AV"? "GUARABU AV"? "TRAVESSA AV JOAO XXIII"?
r"{\bAVENIDA\b(:|-) ?}" = "AVENIDA ",
r"{\bROD\b\.?}" = "RODOVIA", # "FAZENDA FIRMESA ROD CRIO"
r"{\bRODOVIA (BR|RO|AC|AM|RR|PA|AP|TO|MA|PI|CE|RN|PB|PE|AL|SE|BA|MG|ES|RJ|SP|PR|SC|RS|MS|MT|GO|DF) ?(\d{3})\b}" = "\\1-\\2",
r"{\b(BR|RO|AC|AM|RR|PA|AP|TO|MA|PI|CE|RN|PB|PE|AL|SE|BA|MG|ES|RJ|SP|PR|SC|RS|MS|MT|GO|DF) ?(\d{3}) KM}" = "\\1-\\2 KM",
r"{^(BR|RO|AC|AM|RR|PA|AP|TO|MA|PI|CE|RN|PB|PE|AL|SE|BA|MG|ES|RJ|SP|PR|SC|RS|MS|MT|GO|DF) ?(\d{3})$}" = "\\1-\\2",
r"{\bESTR\b\.?}" = "ESTRADA",
# abreviacoes
r"{\bS\.? ?N\b\.?}" = "S/N",
r"{\bPRO?X\b\.?}" = "PROXIMO",
# r"{\bESQ\b\.?}" = "ESQUINA" # tem uns casos que ESQ = ESQUERDA, não ESQUINA - e.g. "LD ESQ", "A ESQ ENT XIQUITIM", "ULTIMA CASA LADO ESQ"
r"{\bLOTEAM?\b\.?}" = "LOTEAMENTO",
r"{\bCX\.? ?P(T|(OST(AL)?))?\b\.?}" = "CAIXA POSTAL",
r"{\bC\.? ?P(T|(OST(AL)?))?\b\.?}" = "CAIXA POSTAL", # separado pq nao tenho certeza. varios parecem ser caixa postal mesmo, mas tem bastante coisas como "A C CP 113". o que é esse A C/AC/etc que se repete antes?
r"{\bEDI?F?\b\.?}" = "EDIFICIO",
r"{\bN((O|\u00BA)?\.|\. (O|\u00BA)) (\d)}" = "NUMERO \\4",
r"{\b(PX|PROXI)\b\.?}" = "PROXIMO", # vale tentar ajustar a preposição? tem varios "PX AO FINAL DA LINHA" mas tb tem "PX VIADUTO" e "PX A CX DAGUA"
r"{\bLJ\b\.?}" = "LOJA",
r"{\bLJS\b\.?}" = "LOJAS",
r"{\bSLS\b\.?}" = "SALAS",
r"{\bFAZ(EN?)?\b\.?}" = "FAZENDA",
r"{\bPCA\b\.?}" = "PRACA",
r"{\bP((A?R)?Q|QU?E)\b\.?}" = "PARQUE",
r"{\bL(RG|GO)\b\.?}" = "LARGO",
r"{\bSIT\b\.?}" = "SITIO",
r"{\bCHAC\b\.?}" = "CHACARA",
r"{\bT(RA?)?V\b\.?}" = "TRAVESSA", # "3º TRV"? "TRV WE 40"? "TV. WE 49"? "TV WE 07"? o que é esse WE?
r"{\bJAR DIM\b}" = "JARDIM",
r"{\bJ(D(I?M)?|A?RD|AR(DIN)?)\b\.?}" = "JARDIM", # tendo a achar que JD tb eh jardim, mas tem uns mais estranhos e.g. "JD WALDES". sera que poderia ser abreviacao de um nome tb?
r"{\bVL\b\.?}" = "VILA",
r"{\bNUC\b\.?}" = "NUCLEO",
r"{\bNUCLEO H(AB)?\b\.?}" = "NUCLEO HABITACIONAL",
r"{\bNUCLEO COL\b\.?}" = "NUCLEO COLONIAL",
r"{\b(NUCLEO RES|(?<!S/)N\.? RES(IDENCIAL)?)\b\.?}" = "NUCLEO RESIDENCIAL",
r"{\b(NUCLEO RUR|(?<!S/)N\.? RURAL)\b\.?}" = "NUCLEO RURAL", # evita coisas como "S/N RURAL"
r"{\bASSENT\b\.?}" = "ASSENTAMENTO",
r"{\b(N(OS|SS?A?)?\.? S(RA|ENHORA)|(NOSSA|NSA\.?) (S(RA?)?|SEN(H(OR)?)?))\b\.?}" = "NOSSA SENHORA",
r"{\b(N(O?S)?\.? S(R|EN(H(OR)?)?)?\.?( DE?)?|NOSSA SENHORA|NS) (FAT.*|LO?UR.*|SANTANA|GUADALUPE|NAZ.*|COP*)\b}" = "NOSSA SENHORA DE \\7",
r"{\b(N(O?S)?\.? S(R|EN(H(OR)?)?)?\.?( D(A|E)?)?|NOSSA SENHORA|NS) (GRACA|VITORIA|PENHA|CONCEICAO|PAZ|GUIA|AJUDA|CANDELARIA|PURIFICACAO|SAUDE|PIEDADE|ABADIA|GLORIA|SALETE|APRESENTACAO)\b}" = "NOSSA SENHORA DA \\8",
r"{\b(N(O?S)?\.? S(R|EN(H(OR)?)?)?\.?( D(A|E)?)?|NOSSA SENHORA D(A|E)|NS) (APA.*|AUX.*|MEDIANEIRA|CONSOLADORA)\b}" = "NOSSA SENHORA \\9",
r"{\b(N(O?S)?\.? S(R|EN(H(OR)?)?)?\.?( D(OS?)?)?|NOSSA SENHORA|NS) (NAVEGANTES)\b}" = "NOSSA SENHORA DOS \\8",
r"{\b(N(O?S)?\.? S(R|EN(H(OR)?)?)?\.?( DO?)?|NOSSA SENHORA|NS) (CARMO|LIVRAMENTO|RETIRO|SION|ROSARIO|PILAR|ROCIO|CAMINHO|DESTERRO|BOM CONSELHO|AMPARO|PERP.*|P.* S.*)\b}" = "NOSSA SENHORA DO \\7",
r"{\b(N(O?S)?\.? S(R|EN(H(OR)?)?)?\.?( D(AS?)?)?|NOSSA SENHORA|NS) (GRACAS|DORES)\b}" = "NOSSA SENHORA DAS \\8",
r"{\b(S(R|ENH?)\.?( D(OS?)?)?|SENHOR( D(OS)?)?) (BON\w*)\b}" = "SENHOR DO BONFIM",
r"{\b(S(R|ENH?)\.?( D(OS?)?)?|SENHOR( D(OS?)?)?) (BOM ?F\w*)\b}" = "SENHOR DO BONFIM",
r"{\b(S(R|ENH?)\.?( D(OS?)?)?|SENHOR) (PASS\w*|MONT\w*)\b}" = "SENHOR DOS \\5",
r"{\bS(R|ENH?)\.? (BOM J\w*)\b}" = "SENHOR BOM JESUS",
r"{\b(N(O?S)?\.? S(R|EN(H(OR)?)?)?\.?( D(OS?)?)?|NOSSO SENHOR|NS) (BONF\w*|BOM ?F\w*)\b}" = "NOSSO SENHOR DO BONFIM",
r"{\b(N(O?S)?\.? S(R|EN(H(OR)?)?)?\.?( D(OS?)?)?|NOSSO SENHOR|NS) (PASS\w*|MONT\w*)\b}" = "NOSSO SENHOR DOS \\8",
r"{\bSTA\b\.?}" = "SANTA",
r"{\bSTO\b\.?}" = "SANTO",
r"{\bSRA\b\.?}" = "SENHORA",
r"{\bSR\b\.?}" = "SENHOR", # "Q SR LOTE 1"?
r"{\bS\.? (JOSE|JOAO)\b}" = "SAO \\1",
r"{\bPROF\b\.?}" = "PROFESSOR",
# r"{\bDR\b\.?}" = "DOUTOR", # tem varios DR que nao parecem ser DOUTOR... e.g. "DR 16", "AREA DR", "1O DR DER DF"
r"{\bMONS\b\.?}" = "MONSENHOR",
r"{\bPRES(ID)?\b\.?}" = "PRESIDENTE",
r"{\bGOV\b\.?}" = "GOVERNADOR",
r"{\bVISC\b\.?}" = "VISCONDE",
r"{\b(\d+)\. (O|\u00BA)\b}" = "\\1O", # o que fazer com "6O ANDAR"? transformar em "6 ANDAR"? de forma geral, o que fazer com numeros ordinais
r"{\b(\d+)(O|\u00BA)\b\.}" = "\\1O",
# datas
r"{\b(\d+) DE? JAN(?!EIRO)\b}" = "\\1 DE JANEIRO",
r"{\b(\d+) DE? FEV(?!EREIRO)\b}" = "\\1 DE FEVEREIRO",
r"{\b(\d+) DE? MAR(?!CO)\b}" = "\\1 DE MARCO",
r"{\b(\d+) DE? ABR(?!IL)\b}" = "\\1 DE ABRIL",
r"{\b(\d+) DE? MAI(?!O)\b}" = "\\1 DE MAIO",
r"{\b(\d+) DE? JUN(?!HO)\b}" = "\\1 DE JUNHO",
r"{\b(\d+) DE? JUL(?!HO)\b}" = "\\1 DE JULHO",
r"{\b(\d+) DE? AGO(?!STO)\b}" = "\\1 DE AGOSTO",
r"{\b(\d+) DE? SET(?!EMBRO)\b}" = "\\1 DE SETEMBRO",
r"{\b(\d+) DE? OUT(?!UBRO)\b}" = "\\1 DE OUTUBRO",
r"{\b(\d+) DE? NOV(?!EMBRO)\b}" = "\\1 DE NOVEMBRO",
r"{\b(\d+) DE? DEZ(?!EMBRO)\b}" = "\\1 DE DEZEMBRO"
)
)
names(complementos_padrao_dedup) <- complementos_dedup
complementos_padrao <- complementos_padrao_dedup[complementos]
names(complementos_padrao) <- NULL
complementos_padrao[complementos_padrao == ""] <- NA_character_
return(complementos_padrao)
}
Try the enderecobr package in your browser
Any scripts or data that you put into this service are public.
enderecobr documentation built on April 3, 2025, 8:40 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Defines functions padronizar_complementos
Documented in padronizar_complementos
#' Padronizar complementos
#'
#' Padroniza um vetor de caracteres representando complementos de logradouros.
#' Veja a seção *Detalhes* para mais informações sobre a padronização.
#'
#' @param complementos Um vetor de caracteres. Os complementos a serem
#' padronizados.
#'
#' @return Um vetor de caracteres com os complementos padronizados.
#'
#' @section Detalhes:
#' Operações realizadas durante a padronização:
#'
#' - remoção de espaços em branco antes e depois das strings e remoção de
#' espaços em excesso entre palavras;
#' - conversão de caracteres para caixa alta;
#' - remoção de acentos e caracteres não ASCII;
#' - adição de espaços após abreviações sinalizadas por pontos;
#' - expansão de abreviações frequentemente utilizadas através de diversas
#' [expressões regulares
#' (regexes)](https://en.wikipedia.org/wiki/Regular_expression);
#' - correção de alguns pequenos erros ortográficos.
#'
#' @examples
#' complementos <- c("", "QD1 LT2 CS3", "APTO. 405")
#' padronizar_complementos(complementos)
#'
#' @export
padronizar_complementos <- function(complementos) {
checkmate::assert_character(complementos)
complementos_dedup <- unique(complementos)
complementos_padrao_dedup <- stringr::str_squish(complementos_dedup)
complementos_padrao_dedup <- toupper(complementos_padrao_dedup)
complementos_padrao_dedup <- stringi::stri_trans_general(
complementos_padrao_dedup,
"Latin-ASCII"
)
complementos_padrao_dedup <- stringr::str_replace_all(
complementos_padrao_dedup,
c(
# pontuacao
r"{\.\.+}" = ".", # remover pontos repetidos
r"{(\d+)\.(\d{3})}" = "\\1\\2", # pontos usados como separador de milhares
# r"{(\d+)\.(\d+)}" = "\\1,\\2", # pontos usados como separador de decimais (nao sei se esse vale, tem muitas poucas observacoes e ela sao meio ambiguas. no caso do cpf, por exemplo, tem so "BL 3.1 APTO 204", "KM 7.5", "2.2 BLOCO G" e "34.5KV" no primeiro milhao de observacoes)
r"{\.([^ ])}" = "\\. \\1", # garantir que haja espaco depois do ponto
r"{ (-|\.) }" = " ",
r"{\.$}" = "", # remocao de ponto final
# sinalizacao
r"{"}" = "'", # existem ocorrencias em que aspas duplas sao usadas para se referir a um logradouro/quadra com nome relativamente ambiguo - e.g. RUA \"A\", 26. isso pode causar um problema quando lido com o data.table: https://github.com/Rdatatable/data.table/issues/4779. por enquanto, substituindo por aspas simples. depois a gente pode ver o que fazer com as aspas simples rs.
# valores non-sense
r"{^(0|-)+$}" = "", # - --+ 0 00+
r"{^([^\dIX])\1{1,}$}" = "", # qualquer valor não numérico ou romano repetido 2+ vezes
r"{^(\d)\1{3,}$}" = "", # assumindo que qualquer numero que apareca 4 ou mais vezes repetido eh um erro de digitacao
r"{^I{4,}$}" = "", # IIII+
r"{^X{3,}$}" = "", # XXX+
r"{\bQD?-?(\d+)-?LT?-?(\d+)-?CS?-?(\d+)\b}" = "QUADRA \\1 LOTE \\2 CASA \\3",
r"{\bQD?-?(\d+)-?CS?-?(\d+)-?LT?-?(\d+)\b}" = "QUADRA \\1 LOTE \\3 CASA \\2",
r"{\bCS?-?(\d+)-?LT?-?(\d+)-?QD?-?(\d+)\b}" = "QUADRA \\3 LOTE \\2 CASA \\1",
r"{\bCS?-?(\d+)-?QD?-?(\d+)-?LT?-?(\d+)\b}" = "QUADRA \\2 LOTE \\3 CASA \\1",
r"{\bLT?-?(\d+)-?QD?-?(\d+)-?CS?-?(\d+)\b}" = "QUADRA \\2 LOTE \\1 CASA \\3",
r"{\bLT?-?(\d+)-?CS?-?(\d+)-?QD?-?(\d+)\b}" = "QUADRA \\3 LOTE \\1 CASA \\2",
r"{\bFDS-?QD?-?(\d+)-?LT?-?(\d+)\b}" = "QUADRA \\1 LOTE \\2 FUNDOS",
r"{\bQD?-?(\d+)-?LT?-?(\d+)\b}" = "QUADRA \\1 LOTE \\2",
r"{\bFDS-?LT?-?(\d+)-?QD?-?(\d+)\b}" = "QUADRA \\2 LOTE \\1 FUNDOS",
r"{\bLT?-?(\d+)-?QD?-?(\d+)\b}" = "QUADRA \\2 LOTE \\1",
r"{\bQD?-?(\d+)-?CS?-?(\d+)\b}" = "QUADRA \\1 CASA \\2",
r"{\bLT?-?(\d+)-?C-?(\d+)\b}" = "LOTE \\1 CASA \\2",
r"{\bC-?(\d+)-?LT?-?(\d+)\b}" = "LOTE \\2 CASA \\1",
r"{\bQD?-?(\d+)-?BL?-?(\d+)-?AP(TO?)?-?(\d+)\b}" = "QUADRA \\1 BLOCO \\2 APARTAMENTO \\4",
r"{\bLT?-?(\d+)-?BL?-?(\d+)-?AP(TO?)?-?(\d+)\b}" = "LOTE \\1 BLOCO \\2 APARTAMENTO \\4",
r"{\bB(LOCO|L)?-?(\d+)-?C(ASA|S)?-?(\d+)\b}" = "BLOCO \\2 CASA \\4",
r"{\bB(LOCO|L)?-?(\d+([A-Z]{1})?)-?AP(ARTAMENTO|TO?)?-?(\d+([A-Z]{1})?)\b}" = "BLOCO \\2 APARTAMENTO \\5",
r"{\bAP(ARTAMENTO|TO?)?-?(\d+([A-Z]{1})?)-?B(LOCO|L)?-?(\d+([A-Z]{1})?)\b}" = "BLOCO \\5 APARTAMENTO \\2",
# localidades
r"{\bAPR?T0\b}" = "APTO",
r"{\bAP(R?T(O|\u00BA)?|AR?T(O|AMENTO)?)?\.?(\d)}" = "APARTAMENTO \\4", # \u00BA = º, usado pro check não reclamar da presença de caracteres não-ascii
r"{(\d)AP(R?T(O|\u00BA)?|AR?T(O|AMENTO)?)?\b\.?}" = "\\1 APARTAMENTO", # "FUJIKAWA APATO"
r"{\bAP(R?T(O|\u00BA)?|AR?TO?)?\b\.?}" = "APARTAMENTO",
r"{\bAPARTAMENTO\b: ?}" = "APARTAMENTO ",
r"{\bAPARTAMENTO-(\d+)}" = "APARTAMENTO \\1",
r"{ ?-APARTAMENTO}" = " APARTAMENTO",
r"{\b(BLO CO|BLOC0|BLOO(CO)?|BLOQ)\b}" = "BLOCO",
r"{\b(BLOCO|BL(OC|Q|C?O?)?)\.?(\d+)}" = "BLOCO \\3",
r"{(\d)(BLOCO|BL(OC|Q|C?O?)?)\b\.?}" = "\\1 BLOCO",
r"{\bBL(OC|Q|C?O?)?\b\.?}" = "BLOCO", # "BLO CASA 03"? "CASA 07 BLO"? soh truncado talvez; vi alguns BLQ que nao parecem BLOCO Q, mas sim BLOCO mesmo. e.g. "QUADRA 19 BLQ A", "BLQ 40 APARTAMENTO 504", "BLQ 01"
r"{\bBLOCO\b: ?}" = "BLOCO ",
r"{\bBLOCO-(\d+)}" = "BLOCO \\1",
r"{ ?-BLOCO}" = " BLOCO",
r"{\b(BLOCO|BL(Q|C?O?)?)\.?-?([A-Z]{1}(\d{1})?)\b}" = "BLOCO \\2", # e.g. "APARTAMENTO 402 BLA", "BLOCO-C-42 APARTAMENTO 11", "C3 BLB1 APARTAMENTO 43"
# muita coisa pode ser quadra... Q A LOTE 2, Q I LOTE 45, QI, Q I, etc etc. tem que ver o que faz sentido
r"{QU ADRA}" = "QUADRA",
r"{\bQ(U(ADRA)?|D(RA?)?)\.?(\d)}" = "QUADRA \\4", # QDA pode ser QUADRA A. da tipo 1%~ das observacoes, pelo que vi aqui. vale a pena errar nesses 1% e transformar?
r"{(\d+)Q(U(ADRA)?|D(RA?)?)\b\.?}" = "\\1 QUADRA",
r"{\bQD(RA?)?\b\.?}" = "QUADRA",
r"{\bQU\b\.? }" = "QUADRA ", # espaco no final pra evitar casos como "EDIFICIO RES M LUIZA QU" e "BLOCO 3A APARTAMENTO 201 E M QU"
r"{\bQUADRA\b: ?}" = "QUADRA ",
r"{\bQUADRA-(\d+)}" = "QUADRA \\1",
r"{\bQ\.? ?(\d)}" = "QUADRA \\1",
r"{\bQ-(\d+)}" = "QUADRA \\1",
r"{\bQ-([A-Z])\b}" = "QUADRA \\1",
r"{ ?-QUADRA}" = " QUADRA",
r"{\b(LOTE|LTE?)\.?(\d)}" = "LOTE \\2",
r"{\b(?<!RUA |S\/)L\.? (\d)}" = "LOTE \\1", # o \\1 ta certo mesmo, os (?...) nao contam. transforma L 5 em LOTE 5, mas evita que RUA L 5 LOTE 45 vire RUA LOTE 5 LOTE 45 e que S/L 205 vire S/LOTE 205
r"{(\d)(LTE?|LOTE)\b\.?}" = "\\1 LOTE",
r"{\bLTE?\b\.?}" = "LOTE",
r"{\bLOTE\b: ?}" = "LOTE ",
r"{\bLOTE-(\d+)}" = "LOTE \\1",
r"{\b(?<!(TV|TRAVESSA|QUADRA) )L-(\d+)}" = "LOTE \\2", # "L-21-NOVO HORIZONTE" ? "L-36" ?
r"{ ?-LOTE}" = " LOTE",
r"{\b(LOTES|LTS)\.?(\d)}" = "LOTES \\2",
r"{(\d)(LTS|LOTES)\b\.?}" = "\\1 LOTES",
r"{\bLTS\b\.?}" = "LOTES",
# r"{\bLOT\.? ?(\d)}" = "LOTE \\1", # LOT seguido de numero tende a ser LOTE, mas seguido de palavra tende a ser LOTEAMENTO? tem excecoes e.g. "LOT 28 AGOSTO", "LOT 1 DE MAIO", "LOT 2 IRMAS", "LOT 3 COQUEIROS"
r"{\bLOT\.? ([A-Z]{2,})}" = "LOTEAMENTO \\1",
r"{\b(CASA|CS)\.?(\d)}" = "CASA \\2", # CSA?
r"{(\d)(CASA|CS)\b\.?}" = "\\1 CASA",
r"{\bCS\b\.?}" = "CASA",
r"{\bCASA\b: ?}" = "CASA ",
r"{\bCASA-(\d+)}" = "CASA \\1",
#r"{[^^]\b(?<!(APARTAMENTO|CONJUNTO|BLOCO|QUADRA) )C-(\d+)}" = "CASA \\1", # ESSE TEM MUITA VARIACAO, COMPLICADO #### Q-10 C-03 = Q-10 CASA 03, mas APARTAMENTO C-03 nao eh mexido, nem soh C-03 (pode ser soh C-03 mesmo)
r"{ ?-CASA}" = " CASA",
r"{\b(C(ON)?JT?|CONJUNTO)\.?(\d)}" = "CONJUNTO \\3",
r"{(\d)(C(ON)?JT?|CONJUNTO)\b\.?}" = "\\1 CONJUNTO",
r"{\bC(ON)?JT?\b\.?}" = "CONJUNTO",
r"{\bCONJUNTO\b: ?}" = "CONJUNTO ",
r"{\bCONJUNTO-(\d)}" = "CONJUNTO \\1",
r"{ ?-CONJUNTO}" = " CONJUNTO",
r"{\b(CONDOMINIO|C(O?N)?D)\.?(\d)}" = "CONDOMINIO \\3", # "LOTE 4 RUA 06 COND263"? "COND3 T7 APARTAMENTO 13"? "BLOCO 07 APARTAMENTO 204 CD2"?
r"{(\d)(CONDOMINIO|C(O?N)?D)\b\.?}" = "\\1 CONDOMINIO",
r"{\bC(O?N)?D\b\.?}" = "CONDOMINIO",
r"{\bCONDOMINIO\b: ?}" = "CONDOMINIO ",
r"{\bCONDOMINIO-(\d)}" = "CONDOMINIO \\1",
r"{ ?-CONDOMINIO}" = " CONDOMINIO",
r"{\bAND(AR)?\.?(\d)}" = "ANDAR \\2",
r"{(\dO?)AND(AR)?\b\.?}" = "\\1 ANDAR",
r"{\bAND\b\.?}" = "ANDAR",
r"{\bANDAR\b: ?}" = "ANDAR ",
r"{\bANDAR-(\d+)}" = "ANDAR \\1",
r"{ ?-ANDAR}" = " ANDAR",
r"{\bCOB(ERTURA)?\.?(\d)}" = "COBERTURA \\2",
r"{(\d)COB(ERTURA)?\b\.?}" = "\\1 COBERTURA",
r"{\bCOB\b\.?}" = "COBERTURA",
r"{\bCOBERTURA\b: ?}" = "COBERTURA ",
r"{\bCOBERTURA-(\d+)}" = "COBERTURA \\1",
r"{ ?-COBERTURA}" = " COBERTURA",
r"{\b(FDS|FUNDOS)\.?(\d)}" = "FUNDOS \\2",
r"{(\d)(FDS|FUNDOS)\b\.?}" = "\\1 FUNDOS",
r"{\bFDS\b\.?}" = "FUNDOS",
r"{-FUNDOS}" = " FUNDOS",
# tipos de logradouro
r"{\bAV\b\.?}" = "AVENIDA", # "APARTAMENTO 401 EDIFICIO RES 5O AV"? "GUARABU AV"? "TRAVESSA AV JOAO XXIII"?
r"{\bAVENIDA\b(:|-) ?}" = "AVENIDA ",
r"{\bROD\b\.?}" = "RODOVIA", # "FAZENDA FIRMESA ROD CRIO"
r"{\bRODOVIA (BR|RO|AC|AM|RR|PA|AP|TO|MA|PI|CE|RN|PB|PE|AL|SE|BA|MG|ES|RJ|SP|PR|SC|RS|MS|MT|GO|DF) ?(\d{3})\b}" = "\\1-\\2",
r"{\b(BR|RO|AC|AM|RR|PA|AP|TO|MA|PI|CE|RN|PB|PE|AL|SE|BA|MG|ES|RJ|SP|PR|SC|RS|MS|MT|GO|DF) ?(\d{3}) KM}" = "\\1-\\2 KM",
r"{^(BR|RO|AC|AM|RR|PA|AP|TO|MA|PI|CE|RN|PB|PE|AL|SE|BA|MG|ES|RJ|SP|PR|SC|RS|MS|MT|GO|DF) ?(\d{3})$}" = "\\1-\\2",
r"{\bESTR\b\.?}" = "ESTRADA",
# abreviacoes
r"{\bS\.? ?N\b\.?}" = "S/N",
r"{\bPRO?X\b\.?}" = "PROXIMO",
# r"{\bESQ\b\.?}" = "ESQUINA" # tem uns casos que ESQ = ESQUERDA, não ESQUINA - e.g. "LD ESQ", "A ESQ ENT XIQUITIM", "ULTIMA CASA LADO ESQ"
r"{\bLOTEAM?\b\.?}" = "LOTEAMENTO",
r"{\bCX\.? ?P(T|(OST(AL)?))?\b\.?}" = "CAIXA POSTAL",
r"{\bC\.? ?P(T|(OST(AL)?))?\b\.?}" = "CAIXA POSTAL", # separado pq nao tenho certeza. varios parecem ser caixa postal mesmo, mas tem bastante coisas como "A C CP 113". o que é esse A C/AC/etc que se repete antes?
r"{\bEDI?F?\b\.?}" = "EDIFICIO",
r"{\bN((O|\u00BA)?\.|\. (O|\u00BA)) (\d)}" = "NUMERO \\4",
r"{\b(PX|PROXI)\b\.?}" = "PROXIMO", # vale tentar ajustar a preposição? tem varios "PX AO FINAL DA LINHA" mas tb tem "PX VIADUTO" e "PX A CX DAGUA"
r"{\bLJ\b\.?}" = "LOJA",
r"{\bLJS\b\.?}" = "LOJAS",
r"{\bSLS\b\.?}" = "SALAS",
r"{\bFAZ(EN?)?\b\.?}" = "FAZENDA",
r"{\bPCA\b\.?}" = "PRACA",
r"{\bP((A?R)?Q|QU?E)\b\.?}" = "PARQUE",
r"{\bL(RG|GO)\b\.?}" = "LARGO",
r"{\bSIT\b\.?}" = "SITIO",
r"{\bCHAC\b\.?}" = "CHACARA",
r"{\bT(RA?)?V\b\.?}" = "TRAVESSA", # "3º TRV"? "TRV WE 40"? "TV. WE 49"? "TV WE 07"? o que é esse WE?
r"{\bJAR DIM\b}" = "JARDIM",
r"{\bJ(D(I?M)?|A?RD|AR(DIN)?)\b\.?}" = "JARDIM", # tendo a achar que JD tb eh jardim, mas tem uns mais estranhos e.g. "JD WALDES". sera que poderia ser abreviacao de um nome tb?
r"{\bVL\b\.?}" = "VILA",
r"{\bNUC\b\.?}" = "NUCLEO",
r"{\bNUCLEO H(AB)?\b\.?}" = "NUCLEO HABITACIONAL",
r"{\bNUCLEO COL\b\.?}" = "NUCLEO COLONIAL",
r"{\b(NUCLEO RES|(?<!S/)N\.? RES(IDENCIAL)?)\b\.?}" = "NUCLEO RESIDENCIAL",
r"{\b(NUCLEO RUR|(?<!S/)N\.? RURAL)\b\.?}" = "NUCLEO RURAL", # evita coisas como "S/N RURAL"
r"{\bASSENT\b\.?}" = "ASSENTAMENTO",
r"{\b(N(OS|SS?A?)?\.? S(RA|ENHORA)|(NOSSA|NSA\.?) (S(RA?)?|SEN(H(OR)?)?))\b\.?}" = "NOSSA SENHORA",
r"{\b(N(O?S)?\.? S(R|EN(H(OR)?)?)?\.?( DE?)?|NOSSA SENHORA|NS) (FAT.*|LO?UR.*|SANTANA|GUADALUPE|NAZ.*|COP*)\b}" = "NOSSA SENHORA DE \\7",
r"{\b(N(O?S)?\.? S(R|EN(H(OR)?)?)?\.?( D(A|E)?)?|NOSSA SENHORA|NS) (GRACA|VITORIA|PENHA|CONCEICAO|PAZ|GUIA|AJUDA|CANDELARIA|PURIFICACAO|SAUDE|PIEDADE|ABADIA|GLORIA|SALETE|APRESENTACAO)\b}" = "NOSSA SENHORA DA \\8",
r"{\b(N(O?S)?\.? S(R|EN(H(OR)?)?)?\.?( D(A|E)?)?|NOSSA SENHORA D(A|E)|NS) (APA.*|AUX.*|MEDIANEIRA|CONSOLADORA)\b}" = "NOSSA SENHORA \\9",
r"{\b(N(O?S)?\.? S(R|EN(H(OR)?)?)?\.?( D(OS?)?)?|NOSSA SENHORA|NS) (NAVEGANTES)\b}" = "NOSSA SENHORA DOS \\8",
r"{\b(N(O?S)?\.? S(R|EN(H(OR)?)?)?\.?( DO?)?|NOSSA SENHORA|NS) (CARMO|LIVRAMENTO|RETIRO|SION|ROSARIO|PILAR|ROCIO|CAMINHO|DESTERRO|BOM CONSELHO|AMPARO|PERP.*|P.* S.*)\b}" = "NOSSA SENHORA DO \\7",
r"{\b(N(O?S)?\.? S(R|EN(H(OR)?)?)?\.?( D(AS?)?)?|NOSSA SENHORA|NS) (GRACAS|DORES)\b}" = "NOSSA SENHORA DAS \\8",
r"{\b(S(R|ENH?)\.?( D(OS?)?)?|SENHOR( D(OS)?)?) (BON\w*)\b}" = "SENHOR DO BONFIM",
r"{\b(S(R|ENH?)\.?( D(OS?)?)?|SENHOR( D(OS?)?)?) (BOM ?F\w*)\b}" = "SENHOR DO BONFIM",
r"{\b(S(R|ENH?)\.?( D(OS?)?)?|SENHOR) (PASS\w*|MONT\w*)\b}" = "SENHOR DOS \\5",
r"{\bS(R|ENH?)\.? (BOM J\w*)\b}" = "SENHOR BOM JESUS",
r"{\b(N(O?S)?\.? S(R|EN(H(OR)?)?)?\.?( D(OS?)?)?|NOSSO SENHOR|NS) (BONF\w*|BOM ?F\w*)\b}" = "NOSSO SENHOR DO BONFIM",
r"{\b(N(O?S)?\.? S(R|EN(H(OR)?)?)?\.?( D(OS?)?)?|NOSSO SENHOR|NS) (PASS\w*|MONT\w*)\b}" = "NOSSO SENHOR DOS \\8",
r"{\bSTA\b\.?}" = "SANTA",
r"{\bSTO\b\.?}" = "SANTO",
r"{\bSRA\b\.?}" = "SENHORA",
r"{\bSR\b\.?}" = "SENHOR", # "Q SR LOTE 1"?
r"{\bS\.? (JOSE|JOAO)\b}" = "SAO \\1",
r"{\bPROF\b\.?}" = "PROFESSOR",
# r"{\bDR\b\.?}" = "DOUTOR", # tem varios DR que nao parecem ser DOUTOR... e.g. "DR 16", "AREA DR", "1O DR DER DF"
r"{\bMONS\b\.?}" = "MONSENHOR",
r"{\bPRES(ID)?\b\.?}" = "PRESIDENTE",
r"{\bGOV\b\.?}" = "GOVERNADOR",
r"{\bVISC\b\.?}" = "VISCONDE",
r"{\b(\d+)\. (O|\u00BA)\b}" = "\\1O", # o que fazer com "6O ANDAR"? transformar em "6 ANDAR"? de forma geral, o que fazer com numeros ordinais
r"{\b(\d+)(O|\u00BA)\b\.}" = "\\1O",
# datas
r"{\b(\d+) DE? JAN(?!EIRO)\b}" = "\\1 DE JANEIRO",
r"{\b(\d+) DE? FEV(?!EREIRO)\b}" = "\\1 DE FEVEREIRO",
r"{\b(\d+) DE? MAR(?!CO)\b}" = "\\1 DE MARCO",
r"{\b(\d+) DE? ABR(?!IL)\b}" = "\\1 DE ABRIL",
r"{\b(\d+) DE? MAI(?!O)\b}" = "\\1 DE MAIO",
r"{\b(\d+) DE? JUN(?!HO)\b}" = "\\1 DE JUNHO",
r"{\b(\d+) DE? JUL(?!HO)\b}" = "\\1 DE JULHO",
r"{\b(\d+) DE? AGO(?!STO)\b}" = "\\1 DE AGOSTO",
r"{\b(\d+) DE? SET(?!EMBRO)\b}" = "\\1 DE SETEMBRO",
r"{\b(\d+) DE? OUT(?!UBRO)\b}" = "\\1 DE OUTUBRO",
r"{\b(\d+) DE? NOV(?!EMBRO)\b}" = "\\1 DE NOVEMBRO",
r"{\b(\d+) DE? DEZ(?!EMBRO)\b}" = "\\1 DE DEZEMBRO"
)
)
names(complementos_padrao_dedup) <- complementos_dedup
complementos_padrao <- complementos_padrao_dedup[complementos]
names(complementos_padrao) <- NULL
complementos_padrao[complementos_padrao == ""] <- NA_character_
return(complementos_padrao)
}
Try the enderecobr package in your browser
Any scripts or data that you put into this service are public.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.