.Rhistory

if(!file.exists("getdata-projectfiles-UCI HAR Dataset.zip")) {
temp <- tempfile()
download.file("http://d396qusza40orc.cloudfront.net/repdata%2Fdata%2Factivity.zip",temp)
unzip(temp)
unlink(temp)
}
data <- read.csv("activity.csv")
if(!file.exists("getdata-projectfiles-UCI HAR Dataset.zip")) {
file <- download.file("http://d396qusza40orc.cloudfront.net/repdata%2Fdata%2Factivity.zip")
unzip(file)
}
data <- read.csv("activity.csv")
if(!file.exists("getdata-projectfiles-UCI HAR Dataset.zip")) {
file <- download.file("http://d396qusza40orc.cloudfront.net/repdata%2Fdata%2Factivity.zip", "activity.zip
")
)
if(!file.exists("getdata-projectfiles-UCI HAR Dataset.zip")) {
file <- download.file("http://d396qusza40orc.cloudfront.net/repdata%2Fdata%2Factivity.zip", "activity.zip")
unzip(file)
}
data <- read.csv("activity.csv")
if(!file.exists("getdata-projectfiles-UCI HAR Dataset.zip")) {
unzip(download.file("http://d396qusza40orc.cloudfront.net/repdata%2Fdata%2Factivity.zip", "getdata-projectfiles-UCI HAR Dataset.zip"))
}
data <- read.csv("activity.csv")
if(!file.exists("getdata-projectfiles-UCI HAR Dataset.zip")) {
unzip(download.file("http://d396qusza40orc.cloudfront.net/repdata%2Fdata%2Factivity.zip", "getdata-projectfiles-UCI HAR Dataset.zip")
}
data <- read.csv("activity.csv")