Add new column

elements <- read.csv(file.path("D:","datasets.csv"))
df<- data.frame(elements$Rows, elements$Cols)
colnames(df) <- c("Source","Destination")
ndf <- df[1:4,1:2]
NewColumn <- c(TRUE, TRUE, TRUE, TRUE)
ndf$NewColumn  <- NewColumn
print(ndf)

##   Source Destination NewColumn
## 1     60           3      TRUE
## 2    570           6      TRUE
## 3     12           1      TRUE
## 4     24           1      TRUE