Parto de un df y quiero ver si los datos que contiene son correctos.
df <- read.table(text = '
id col2 col3 col4
1 N H A
2 N H B
3 S M C
4 S M C
5 S M D
6 N M E
7 S M B', header = TRUE)
La función (mal) para validar sería algo parecido a esto:
validar_campos <- function (columna, valores_permitidos){
columna <- deparse(substitute(columna))
names(table(df[,columna])) -> tabla
contador <- 0
for(i in tabla){
if ( !i %in% valores_permitidos)
{
contador = contador+1
incorrectos <- c(i)}
}
if (contador == 0) {
x <- print ("Todos los valores son correctos")
}
else {
x <- cat(paste("Hay valores incorrectos:",incorrectos))
}
return(x)
}
validar_campos( col4, c("A","B"))
Me tendría que salir que la columna 4 tiene valores no permitidos (c d, e)
El siguiente paso sería que también dijera en que ID está el error (3,4,5,6)