# Read a sample MTZ file
datadir <- system.file("extdata",package="cry")
filename <- file.path(datadir,"1dei_phases.mtz")
lMTZ <- readMTZ(filename)
# Original COLSRC
print(lMTZ$header$COLSRC)
# Update date and time stamp
lMTZ$header <- change_COLSRC(lMTZ$header)
# New COLSRC
print(lMTZ$header$COLSRC)
Run the code above in your browser using DataLab