Nothing
strWrap <-
function(text = "clipboard", width = 70, copy2clip = TRUE) {
if (Sys.info()["sysname"] != "Windows") {
writeClipboard <- NULL
}
if (text == "clipboard") {
if (Sys.info()["sysname"] == "Darwin") {
pcon <- pipe("pbpaste")
text <- paste(scan(pcon, what="character",
quiet=TRUE), collapse=" ")
close(pcon)
}
if (Sys.info()["sysname"] == "Windows") {
text <- paste(readClipboard(), collapse=" ")
}
if(!Sys.info()["sysname"] %in% c("Darwin", "Windows")) {
warning("not Windows or Darwin:
\b\b\b\b\b\b\b\bmay not be able to read from the clipboard")
}
}
x <- gsub("\\s+", " ", gsub("\n|\t", " ", text))
x <- strwrap(x, width = width)
if(copy2clip){
if (Sys.info()["sysname"] == "Windows") {
writeClipboard(x, format = 1)
}
if (Sys.info()["sysname"] == "Darwin") {
j <- pipe("pbcopy", "w")
writeLines(x, con = j)
close(j)
}
}
writeLines(x)
}
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.