Compare RDS and JSON Databases

Compares RDS and JSON database files to verify migration accuracy and identify any differences in structure or content.

Usage

compare_rds_json(rds_path, json_path, ignore_meta = TRUE)

Arguments

rds_path

Path to RDS file

json_path

Path to JSON file

ignore_meta

Logical. Ignore metadata fields (those starting with underscore)? Default is TRUE.

Value

List of differences, each containing:

• path: Location of difference in database structure

• type: Type of difference (type_mismatch, missing_in_json, missing_in_rds, value_mismatch)

• Additional fields depending on difference type

Details

This function performs a deep comparison of database structures, checking:

• Data types match between formats

• All keys/fields are present in both versions

• Values are equivalent (accounting for format differences)

Useful for verifying that migration from RDS to JSON preserves all data and structure correctly.

See also

boilerplate_migrate_to_json, boilerplate_rds_to_json

Examples

# \donttest{
# Create temporary directories for example
temp_dir <- tempfile()
dir.create(temp_dir)

# Create sample RDS database
sample_db <- list(
  methods = list(
    sampling = "Random sampling",
    analysis = "Regression analysis"
  )
)
rds_path <- file.path(temp_dir, "methods_db.rds")
saveRDS(sample_db, rds_path)

# Convert to JSON
json_path <- file.path(temp_dir, "methods_db.json")
boilerplate_rds_to_json(rds_path, quiet = TRUE)

# Compare original and migrated databases
differences <- compare_rds_json(rds_path, json_path)
#> Databases are equivalent!

if (length(differences) == 0) {
  message("Migration successful - databases are equivalent!")
} else {
  # Review differences
  for (diff in differences) {
    cat(sprintf("Difference at %s: %s\n", diff$path, diff$type))
  }
}
#> Migration successful - databases are equivalent!

# Clean up
unlink(temp_dir, recursive = TRUE)
# }