Data wrangling

library(RCurl)
#READING FILE FROM GIT
x <- getURL("https://raw.githubusercontent.com/petferns/csvfile/master/datasets.csv")
y <- read.csv(text = x)

#CREATE DATA FRAME
df<- data.frame(y$Package, y$Item, y$Title, y$Rows, y$Cols)

#RENAME COLUMNS
colnames(df) <- c("Division","Type", "Description", "Source", "Destination")

#CREATE A  SUBSET OF ROWS AND COLUMNS
ndf <- subset(df, Division == "boot", select = c(Division, Type, Description, Source, Destination))

#RENAME COLUMN DESCRIPTION BASED ON COLUMN VALUE TYPE
ndf$Description[ndf$Type == "grav"] <- "Acceleration Due to Gravitational force"
View(ndf)