From 56799ea6f6839dba4d405525d23665224768cd27 Mon Sep 17 00:00:00 2001
From: J Puglisi <gitdek@users.noreply.github.com>
Date: Sat, 18 Nov 2017 23:58:20 -0500
Subject: [PATCH] Few bugs fixed due to allowing idiots to contribute

---
 R/Roanda.R | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/R/Roanda.R b/R/Roanda.R
index 48c15c1..53f10f4 100644
--- a/R/Roanda.R
+++ b/R/Roanda.R
@@ -17,9 +17,11 @@ library(plyr)
 .token        <- getOption('Roanda.oandatoken')
 .accountID    <- getOption('Roanda.oandaaccountid')
 .accountType  <- getOption('Roanda.oandaaccounttype')
-if (is.null(.accountType)) { .accountType  = 'live' }
+if(is.null(.accountType) || length(.accountType) < 1 {
+  .accountType = "practice" 
+ }
 .lastInstrument = "EUR_USD"
-.time_authorized <- NULL
+.time_authorized = NULL
 .instrument_cache = NULL
 .last_request = NULL
 .active_orders = NULL