data('example_mtc_data_item')
mtc_data_item <- example_mtc_data_item
device_name = extract_param_from_xpath(mtc_data_item@path,"Device")
mtc_device_object = list(rawdata = list(),metadata = list(),
data_item_list = list(mtc_data_item),device_uuid = device_name)
Run the code above in your browser using DataLab