Read pasted output at Stack Overflow into R

read.so.R

read.so <- function(sep = "", header = TRUE, out = "mydf") {
  OS <- ifelse(Sys.info()["sysname"] == "Darwin", "Mac", "others")
  temp <- switch(
    OS,
    Mac = {
      suppressWarnings(
        read.table(text = gsub("^#", "", pipe("pbpaste")), header = header, 
                   stringsAsFactors = FALSE, sep = sep))
    },
    others = {
      suppressWarnings(
        read.table(text = gsub("^#", "", readLines("clipboard")),
                   header = header, stringsAsFactors = FALSE, sep = sep))
    }) 
  assign(out, temp, envir = .GlobalEnv)
  message("data.frame ", dQuote(out), " created in your workspace")
  temp
}

Might I suggest to add to generalize this to MAC users with readLines(pipe("pbpaste")) equivalent to readLines("clipboard")),

if (Sys.info()["sysname"] == "Darwin") { 
read.table(pipe("pbpaste"), sep = sep, ...) 
} 
else { 
read.table("clipboard", sep = sep, ...) 
}