## Not run:
# har1 <- readHAR(system.file(package = "HARtools",
# "exdata", "google.com.har"))
# harFile <- tempfile(fileext = ".har")
# writeHAR(har1, harFile)
# har2 <- readHAR(harFile)
# identical(har1, har2)
# ## End(Not run)
Run the code above in your browser using DataLab