# NOT RUN {
# Create a DataObject and add it to the DataPackage
dp <- new("DataPackage")
doIn <- new("DataObject", format="text/csv",
filename=system.file("./extdata/pkg-example/binary.csv", package="datapack"))
dp <- addMember(dp, doIn)
# Use the zipped version of the file instead by updating the DataObject
dp <- replaceMember(dp, doIn,
replacement=system.file("./extdata/pkg-example/binary.csv.zip",
package="datapack"),
formatId="application/zip")
# }
Run the code above in your browser using DataLab