Citer les noms dans les avertissements

Question

Cela semble une question facile, mais je n'ai pas trouvé la réponse. J'ai un vecteur de caractère contenant les noms des arguments d'un appel. Dans une fonction, je voudrais donner un avertissement si certains d'entre eux sont faux, et citer les noms.

bad = c("a", "b", "c") 
warning(paste("Variables", paste(bad, collapse = ", "), "are wrong")) 

qui donne:

Warning message: 
Variables a, b, c are wrong 

mais j'ai besoin:

Warning message: 
Variables 'a', 'b', 'c' are wrong 

Je voudrais y parvenir sans l'utilisation d'emballages externes.

Answer 1

Nous pouvons utiliser ASCII apostrop il \'

warning(paste("Variables", paste0("\'", bad, "\'", collapse = ", "), "are wrong")) 

# Warning message: 
# Variables 'a', 'b', 'c' are wrong 

Ou un guillemet simple par sQuote

warning(paste("Variables", paste(sQuote(bad), collapse = ", "), "are wrong")) 

# Warning message: 
# Variables ‘a’, ‘b’, ‘c’ are wrong 

Ou un guillemet par dQuote

warning(paste("Variables", paste(dQuote(bad), collapse = ", "), "are wrong")) 

# Warning message: 
# Variables “a”, “b”, “c” are wrong 

Answer 2

Est-ce ce que vous cherchez?

bad = c("'a'", "'b'", "'c'") 
warning(paste("Variables", paste(bad, collapse = ", "), "are wrong")) 

si vous voulez économiser quelques secondes, vous pouvez écrire quelque chose comme

quotify <- function(x) paste0("'", x, "'") 

bad = quotify(c("a", "b", "c")) 
warning(paste("Variables", paste(bad, collapse = ", "), "are wrong")) 

Answer 3

Vous pouvez utiliser cette approche:

warning("Variables ", paste0("'", bad, "'", collapse = ", "), " are wrong") 
# Warning message: 
# Variables 'a', 'b', 'c' are wrong 

Version alternative pour des guillemets doubles:

warning("Variables ", paste0("\"", bad, "\"", collapse = ", "), " are wrong") 
# Warning message: 
# Variables "a", "b", "c" are wrong