if (isNamespaceLoaded("fiodata")) {
# Excel file with IOM data
path_to_xlsx <- system.file("extdata", "/2020.xlsx", package = "fiodata")
# Import IOM data
intermediate_transactions <- import_element(
file = path_to_xlsx,
sheet = "iom",
range = "D6:BB56",
col_names = "D4:BB4",
row_names = "B6:B56"
)
# Show the first 6 rows and 6 columns
intermediate_transactions[1:6, 1:6]
}
Run the code above in your browser using DataLab