if (FALSE) {
dir_path <- get_examples_path("xml")
get_xml_files_param_df(
file_path = file.path(dir_path, "sols.xml")
)
files_list <- file.path(dir_path, c("sols.xml", "usms.xml", "param_gen.xml"))
# long format (default)
get_xml_files_param_df(file_path = files_list)
# wide format
get_xml_files_param_df(file_path = files_list, wide_shape = TRUE)
}
Run the code above in your browser using DataLab