infile <- system.file("extdata", "ex20101224.TEST_ITCH_50", package = "RITCH")
sys <- read_system_events(infile, quiet = TRUE)
outfile <- tempfile()
write_itch(sys, outfile)
# create a list of events, stock directory, and orders and write to a file
sdir <- read_stock_directory(infile, quiet = TRUE)
od <- read_orders(infile, quiet = TRUE)
ll <- list(sys, sdir, od)
write_itch(ll, outfile)
Run the code above in your browser using DataLab