kguidonimartins

Testes de qualidade de dados

Este documento é um espelho das especificações para testes de validação de dados em Darwin Core definidos pelo TDWG em https://github.com/tdwg/bdq/projects/2. As especificações foram extraídas do link anterior por um processo automatizado permitindo acompanhar a evolução e a proposição de novas especificações, quando disponíveis. Atualmente, quatro tipos de testes foram sugeridos:

• Validation: indica teste do tipo de validação dos dados;

• Amendment: teste que propõem mudanças e/ou melhoria dos dados;

• Issue: teste que aponta problemas com o dado informado e necessita de intervenção do usuário para determinar se o dado é adequado para uso;

kguidonimartins

## ver também: https://github.com/sibbr/DarwinCoreBrasil

dwc_table <-
structure(list(classe = c("Record-level", "Record-level", "Record-level", 
"Record-level", "Record-level", "Record-level", "Record-level", 
"Record-level", "Record-level", "Record-level", "Record-level", 
"Record-level", "Record-level", "Record-level", "Record-level", 
"Record-level", "Record-level", "Record-level", "Record-level", 
"Occurrence", "Occurrence", "Occurrence", "Occurrence", "Occurrence", 
"Occurrence", "Occurrence", "Occurrence", "Occurrence", "Occurrence", 

kguidonimartins

## -*- mode: ess-r; coding: utf-8-*-
## scratch-mode: ess-r-mode
## created-at:   20230329-111607

### Obtenção das coordenadas geográficas da sede das capitais do Brasil via `{geobr}`

if (!require("tidyverse")) install.packages("tidyverse")
if (!require("sf")) install.packages("sf")
if (!require("geobr")) install.packages("geobr")

kguidonimartins

if (!require("tidyverse")) install.packages("tidyverse")
if (!require("jsonlite")) install.packages("jsonlite")

url <- "https://resultados.tse.jus.br/oficial/ele2022/544/dados-simplificados/br/br-c0001-e000544-r.json"

jsonlite::fromJSON(url) %>%
  purrr::pluck("cand") %>%
  dplyr::select(nm, pvap)

kguidonimartins

fix_invalid_geometries <- function(data) {

  is_valid <- st_is_valid(data)

  invalid_geom <- data[!is_valid, ]

  geom_valid <- data[is_valid, ]

  sf_use_s2(TRUE)

kguidonimartins

Keybase proof

I hereby claim:

• I am kguidonimartins on github.
• I am karloguidoni (https://keybase.io/karloguidoni) on keybase.
• I have a public key whose fingerprint is AC50 CF5F A1D6 C627 D6F7 D8D6 C488 C40C 2D08 30CB

To claim this, I am signing this object:

kguidonimartins

if (!require("ade4")) install.packages("ade4")
#> Loading required package: ade4

# Where am I?
getwd()
#> [1] "/tmp/RtmpK0kjbc/reprex2437bf19e2d4b1"

folder <- "kleyer-files"
data_zip <- paste0(folder, "/", "data.zip")

kguidonimartins

#!/usr/bin/env sh

echo "Hey!"

kguidonimartins

(((((Tarsopsylla_octodecimdentata:1.0,(Myoxopsylla_jordani:1.0,(((Nosopsyllus_mokrzeckyi:1.0,(Nosopsyllus_fidus:1.0,(Nosopsyllus_consimilis:1.0,((Nosopsyllus_simla:1.0,Nosopsyllus_philippovi:1.0):1.0,Nosopsyllus_fasciatus:1.0):1.0):1.0):1.0):1.0,(((Nosopsyllus_aralis:1.0,Nosopsyllus_turkmenicus:1.0):1.0,(Nosopsyllus_iranus:1.0,Nosopsyllus_laeviceps:1.0):1.0):1.0,Nosopsyllus_tersus:1.0):1.0):1.0,(Rostropsylla_daca:1.0,(((Oropsylla_ilovaiskii:1.0,Oropsylla_silantiewi:1.0):1.0,Oropsylla_alaskensis:1.0):1.0,(Amphalius_runatus:1.0,((((Amalaraeus_arvicolae:1.0,Amalaraeus_penicilliger:1.0):1.0,Amalaraeus_ioffi:1.0):1.0,Amalaraeus_dissimilis:1.0):1.0,(Paramonopsyllus_scalonae:1.0,(((Megabothris_rectangulatus:1.0,(Megabothris_turbidus:1.0,Megabothris_advenarius:1.0):1.0):1.0,((Megabothris_beljaevi:1.0,(Megabothris_calcarifer:1.0,Megabothris_walkeri:1.0):1.0,Megabothris_bispinosa:1.0):1.0,Megabothris_asio:1.0):1.0):1.0,(((Callopsylla_caspia:1.0,Callopsylla_lagomys:1.0):1.0,Callopsylla_saxatilis:1.0):1.0,((Ceratophyllus

kguidonimartins