## ----include=FALSE------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
oldwidth <- options("width")
options(width = "800")
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.width = 7,
  fig.height = 5
)

## ----eval = FALSE-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
# # From CRAN / Via CRAN
# install.packages("documentosbr")
# 
# # Development version / Versão de desenvolvimento
# # remotes::install_github("rodrigo-borges/documentosbr")

## ----eval = FALSE-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
# library(documentosbr)
# 
# # Vectorized validation / Validação vetorizada
# cpfs <- c("12345678901", "56273869596")
# valida_doc(cpfs, type = "cpf")
# 
# # Health Card (CNS) / Cartão Nacional de Saúde
# valida_doc("123456789012345", type = "cnes")

## -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
library(documentosbr)
d <- valida_doc("56273869595", type = "pis", log = T)


## ----echo=FALSE---------------------------------------------------------------
knitr::kable(d)
options(oldwidth)