Added time_in_force IOC and FOK

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 = "[email protected]"))
 Description: Provides a convenient wrapper for consuming data from ROFEX APIs: Trading API, Risk API and BackOffice API.

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.")