R code to produce tidy data of Samsung information