Come testare quando la condizione restituisce numerici (0) in R

Question

Immaginiamo che ti piacerebbe costruire un semplice test basato sulla condizione setdiff(input, 1:9).

Come posso costruire una dichiarazione

if isnotempty(setdiff(input, 1:9)) stop ("not valid") 

che interrompe l'esecuzione quando l'ingresso è c(3, 12) ma continua quando l'ingresso è c(2,5,7) dire? Molte grazie, Bertie

Answer 1

Si potrebbe usare ?length:

isEmpty <- function(x) { 
    return(length(x)==0) 
} 

input <- c(3, 12); 

if (!isEmpty(setdiff(input, 1:9))) { 
    stop ("not valid") 
} 

Answer 2

Ecco un'altra opzione identical(x, numeric(0)). Ecco un esempio (in pratica ha preso tutto da sgibb e sostituito la linea chiave come io sono pigro):

isEmpty <- function(x) { 
    return(identical(x, numeric(0))) 
} 

input <- c(3, 12) 

if (!isEmpty(setdiff(input, 1:9))) { 
    stop ("not valid") 
} 

Answer 3

questo non risponde alla domanda in oggetto, ma penso che sia un approccio migliore per quello che stanno cercando di ottenere:

if(!all(input %in% 1:9)) stop("not valid")