Roger's Utility Functions for R

utils.R

# Roger's Utility Functions for R
#
# source("Documents/Devel/R/utils.R")
#
isMac <- function()
{
  x <- Sys.info()[1]=="Darwin"
  x
}

# http://personality-project.org/r/Rfunc/read.clipboard.R
# 
# Read clipboard from Excel for use as table
# (copy range in Excel, then run this function)
# foo <- readClipboardExcel()
# names(foo)
#
tableFromClipboardExcel <- function()
{
  if(isMac()) {
    x <- read.table(pipe("pbpaste"),header=TRUE,sep="\t")
  } else {
    x <- read.table(text=readClipboard(), sep="\t", header=T)
  }
  x
}

# read csv from url
tableFromUrlCsv <- function(url,UPW) {
  myCsv <- getURL(url,ssl.verifypeer = FALSE,userpwd=UPW)
  myData <- read.csv(textConnection(myCsv))
  myData
}