open a file with R though browser

data <- read.delim( file.choose(), sep="\t");
head(data)
summary(data)