write_command_via_csv function

Write csv files with indicated commands to the external system

Function is capable to read the data and writing multiple files e.g. 'SystemControl8139124.csv'

write_command_via_csv(x, path_terminal = "", fileName = "SystemControl")

Arguments

• x: * dataframe object with resulting command e.g. 1 - enable; 0 - disable
• path_terminal: * path to the terminal
• fileName: * desired control file prefix e.g. 'SystemControl'

Returns

Function is writing multiple files e.g. 'SystemControl8139124.csv' to the Sandbox

typical content of the file: "Magic","IsEnabled" 8139124,1

Examples

library(dplyr)
library(readr)
library(lubridate)
library(lazytrade)

path_sbxm <- normalizePath(tempdir(),winslash = "/")

file.copy(from = system.file("extdata", "OrdersResultsT1.csv", package = "lazytrade"),
          to = file.path(path_sbxm, "OrdersResultsT1.csv"), overwrite = TRUE)

DFT1 <- import_data(path_sbxm = path_sbxm,
                    trade_log_file = "OrdersResultsT1.csv")

DFT1 %>%
group_by(MagicNumber) %>% select(MagicNumber) %>% mutate(IsEnabled = 0) %>%
# head to shorten time of this example
head(2) %>%
# write commands to disable/enable systems
write_command_via_csv(path_terminal = path_sbxm)

Author(s)

(C) 2019, 2021 Vladimir Zhbanko