cat(sprintf(x<-"cat(sprintf(x<-%s%s%s,q<-rawToChar(as.raw(34)),x,q))",q<-rawToChar(as.raw(34)),x,q))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page