Functions to update the metadata of a workspace by those contained in another one
update_metadata(ws_from, ws_to)
update_metadata_roughly(ws_from, ws_to)Workspace that contains the new metadata.
Workspace to update.
the updated workspace
update_metadata() checks the SA-Processings and SaItems' names
within the two workspaces before updating ws_to's metadata.
update_metadata_roughly() does not do any checks: ws_to's first
SA-Processing's first SaItem metadata
is updated with ws_from's first SA-Processing's first SaItem metadata.
Both functions create and return a new workspace containing
the updated series.
library("RJDemetra")
path_to_ws1 <- file.path(
system.file("extdata", package = "rjdworkspace"),
"WS/ws_example_1.xml"
)
path_to_ws2 <- file.path(
system.file("extdata", package = "rjdworkspace"),
"WS/ws_example_2.xml"
)
ws_1 <- load_workspace(path_to_ws1)
compute(ws_1)
ws_2 <- load_workspace(path_to_ws2)
compute(ws_2)
updated_workspace <- update_metadata_roughly(ws_from = ws_1, ws_to = ws_2)
path_to_output <- file.path(tempdir(), "ws_update_meta_roughly.xml")
save_workspace(workspace = updated_workspace, file = path_to_output)
updated_workspace <- update_metadata(ws_from = ws_1, ws_to = ws_2)
path_to_output <- file.path(tempdir(), "ws_update_meta.xml")
save_workspace(workspace = updated_workspace, file = path_to_output)