# NOT RUN {
library(dplyr)
library(readr)
library(lubridate)
DFT1 <- import_data(trade_log_file = system.file("extdata",
"OrdersResultsT1.csv",
package = "lazytrade"),
demo_mode = TRUE)
dir <- normalizePath(tempdir(),winslash = "/")
DFT1 %>%
group_by(MagicNumber) %>% select(MagicNumber) %>% mutate(IsEnabled = 0) %>%
# write commands to disable systems
writeCommandViaCSV(path_terminal = file.path(dir))
# }
Run the code above in your browser using DataLab