Wyślij tekst zawierający podwójne cudzysłowy funkcjonować

Question

Mam problem z użyciem cudzysłowów podczas formatowania ciągi tekstowe wysyłane do funkcji w R.

Rozważmy przykład kodu funkcję:

foo <- function(numarg = 5, textarg = "** Default text **"){ 
    print (textarg) 
    val <- numarg^2 + numarg 
    return(val) 
} 

podczas pracy z następującego kodu:

foo(4, "Learning R is fun!") 

wyjście jest:

[1] "Learning R is fun!" 
[1] 20 

Ale gdy próbuję (na różne sposoby, jak sugeruje here) napisać „R” zamiast R, otrzymuję następujące wyjścia:

> foo(4, "Learning R is fun!") 
[1] "Learning R is fun!" 
[1] 20 
> foo(4, "Learning "R" is fun!") 
Error: unexpected symbol in "funfun(4, "Learning "R" 
> foo(4, "Learning \"R\" is fun!") 
[1] "Learning \"R\" is fun!" 
[1] 20 
> foo(4, 'Learning "R" is fun!') 
[1] "Learning \"R\" is fun!" 
[1] 20 

Korzystanie as.character(...) lub dQuote(...) jak sugeruje here wydaje się złamać funkcja z powodu różnej liczby argumentów.

Answer 1

Można spróbować tych podejść:

foo <- function(numarg = 5, textarg = "** Default text **"){ 
    cat(c(textarg, "\n")) 
    val <- (numarg^2) + numarg 
    return(val) 
} 

foo <- function(numarg = 5, textarg = "** Default text **"){ 
    print(noquote(textarg)) 
    val <- (numarg^2) + numarg 
    return(val) 
} 

foo(4, "Learning R is fun!") 
foo(4, 'Learning "R" is fun!') 

Answer 2

Dwa sposoby, które znam. Pierwszym z nich jest po prostu użyć apostrofów aby rozpocząć i zakończyć ciąg znaków:

> cat('Learning "R" is fun!') 
Learning "R" is fun! 

drugie jest ucieczka podwójnych cudzysłowach:

> cat("Learning \"R\" is fun!") 
Learning "R" is fun! 

Zauważ, że to działa, ponieważ używam cat, który jest przeznaczony do ciągi wyjściowe do konsoli. Wydaje się użyć print() który przedstawia obiekt zamiast wyjścia to