# NOT RUN {
df <- data.frame(a=c(1,1,1),
b=c('a','b','b'),
c=c('a','a','a'),
d=c(NA,'1',NA))
dfResult <- removeColsWithAllSameValue(df)
head(dfResult)
# }
Run the code above in your browser using DataLab