gistfile1.r

insertRow <- function(existingDF, newrow, r) {
      existingDF[seq(r+1,nrow(existingDF)+1),] <- existingDF[seq(r,nrow(existingDF)),]
  existingDF[r,] <- newrow
    existingDF
}

removeDuplicates <- function(data){

    result<- masterdata[1,]

    for (i in 2:dim(masterdata)[1] ) { 
        mostRecentUniqueReading <- result[dim(result)[1],]

        currentValue <- data[i,]

        print(currentValue$messages)
        print(mostRecentUniqueReading$messages)
        if(currentValue$messages != mostRecentUniqueReading$messages){
            result <- insertRow(result, currentValue, dim(result)[1]+1)
        }   
    }   
    return(result)
}