From 48f24b183741d5e866ca21f7a1b2c4f6fea6d119 Mon Sep 17 00:00:00 2001
From: Augusto Hassel <augusto.hassel@gmail.com>
Date: Thu, 27 Jun 2019 18:15:28 -0300
Subject: [PATCH] Added time_in_force IOC and FOK

---
 DESCRIPTION              | 2 +-
 R/primary_api.R          | 6 +++---
 man/trading_new_order.Rd | 4 ++--
 3 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index d2e6cfd..49fcb8f 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: rRofex
 Type: Package
 Title: Interface to ROFEX APIs
-Version: 0.0.0.9006
+Version: 0.0.0.9007
 Authors@R: c(
     person("Augusto", "Hassel", role = c("aut", "cre"), email = "ahassel@primary.com.ar"))
 Description: Provides a convenient wrapper for consuming data from ROFEX APIs: Trading API, Risk API and BackOffice API.
diff --git a/R/primary_api.R b/R/primary_api.R
index f675149..f1d74b5 100644
--- a/R/primary_api.R
+++ b/R/primary_api.R
@@ -258,8 +258,8 @@ trading_mdh <- function(market_id='ROFX', symbol, date, date_from, date_to) {
 #'@param time_in_force String. Specifies how long the order remains in effect. Absence of this field is interpreted as 'Day':
 #'\itemize{
 #'\item Day. Day or session.
-#'\item IOC. Immediate or Cancel. (Not Available)
-#'\item FOK. Fill or Kill. (Not Available)
+#'\item IOC. Immediate or Cancel.
+#'\item FOK. Fill or Kill.
 #'\item GTD. Good Till Date. (Not Available)
 #'}
 #'@param account String. Account Number / Account ID.
@@ -284,7 +284,7 @@ trading_new_order <- function(symbol, side, quantity, price, order_type='Limit',
   if (!order_type %in% c("Limit", "MLL")) stop("Invalid 'order_type' parameter")
 
   if (!time_in_force %in% c("Day", "IOC", "FOK", "GTD")) stop("Invalid 'time_in_force' parameter")
-  if (time_in_force %in% c("IOC", "FOK", "GTD")) stop("Parameter 'time_in_force' not yet available.")
+  if (time_in_force %in% c("GTD")) stop("Parameter 'time_in_force' not yet available.")
 
   if (missing(account)) stop("You should pick a 'account' to move forward.")
 
diff --git a/man/trading_new_order.Rd b/man/trading_new_order.Rd
index bc4817a..783698a 100644
--- a/man/trading_new_order.Rd
+++ b/man/trading_new_order.Rd
@@ -25,8 +25,8 @@ trading_new_order(symbol, side, quantity, price, order_type = "Limit",
 \item{time_in_force}{String. Specifies how long the order remains in effect. Absence of this field is interpreted as 'Day':
 \itemize{
 \item Day. Day or session.
-\item IOC. Immediate or Cancel. (Not Available)
-\item FOK. Fill or Kill. (Not Available)
+\item IOC. Immediate or Cancel.
+\item FOK. Fill or Kill.
 \item GTD. Good Till Date. (Not Available)
 }}