Я хотел ответить на вопрос о plotmath
но мне не удалось получить желаемый результат substitute
. Мой желаемый результат: paste("Hi", paste(italic(yes),"why not?"))
и что я получаю: paste("Hi", "paste(italic(yes),\"why not?\")")
text<-'paste(italic(yes),"why not?")'
text
[1] "paste(italic(yes),\"why not?\")"
noqoute_text<-noquote(text)
noqoute_text
[1] paste(italic(yes),"why not?")
sub<-substitute(paste("Hi",noqoute_text),
env=list(noqoute_text=noqoute_text))
sub
paste("Hi", "paste(italic(yes),\"why not?\")")