if (FALSE) {
# get a data.frame of the users data
data <- users(df = TRUE)
head(data[[1]]) # users with links to genome data
mydata <- fetch_genotypes(
url = data[[1]][1, "genotypes.download_url"],
file = "~/myfile.txt"
)
# see some data right away
mydata
# Or read in data later separately
read.table("~/myfile.txt", nrows = 10)
}
Run the code above in your browser using DataLab