




Hi,
 
I am trying to write some code that tracks changes that may have been made
after a dataframe has been edited using fix(). But if I edit only the first cell (row 1, col 1) of the dataset below, it is like many records were edited. What is the explanation for this error?
 
require(R.utils)
original <- melanoma
edited <- melanoma
fix(edited)
difference <- setdiff(edited, original)
difference[, "lastModifiedInto"] <- paste(names(difference), collapse = "; ")
difference[, "lastModifiedBy"] <- R.utils::getBuiltinUsername.GString()
difference[, "lastModifiedOn"] <- Sys.time()
edited <- merge(original, difference, "row.names", all = TRUE)
edited <- edited[order(as.numeric(edited[, "Row.names"])),]
modifiedRecords <- edited[which(!is.na(edited[, "lastModifiedOn"])),]
(nrow(modifiedRecords))

TIA!

Cheers!!
Albert-Jan

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
All right, but apart from the sanitation, the medicine, education, wine, public order, irrigation, roads, a fresh water system, and public health, what have the Romans ever done for us?
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


      
	[[alternative HTML version deleted]]

