Nothing
## simple script for converting C++ Qt code to R Qt code
qtranslate <- function(f = "tmp.cpp") {
lines <- readLines(f)
table <- c("new " = "Qt$", "->" = "$", ".* \\*" = "", ";" = "", "=" = "<-",
"::" = "$", "tr\\((.*?)\\)" = "\\1", "true" = "TRUE",
"false" = "FALSE")
for(i in seq_along(table))
lines <- gsub(names(table)[i], table[i], lines)
rf <- sub("cpp$", "R", f)
writeLines(lines, rf)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.