updates

Signed-off-by: systematicinvestor <thesystematicinvestor@gmail.com>

R/bt.r

@@ -287,7 +287,7 @@ bt.prep.remove.symbols <- function
 		b$weight = b$weight[, -index]
 		b$execution.price = b$execution.price[, -index]
 
-		rm(list = b$symbolnames[index], envir = b)		
+		env.rm(b$symbolnames[index], b)
 		b$symbolnames = b$symbolnames[ -index]
 	}
 }

R/utils.r

@@ -214,8 +214,17 @@ env <- function
 #' @export
 #' @rdname EnvironmentFunctions
 ###############################################################################
-env.del <- function(names, env) {
-	rm(list=intersect(ls(env), names), envir=env)
+env.del = function(names, env) {
+	warning('env.del is depricated as of Apr 25, 2016 please use env.rm function instead')
+	env.rm(names, env)
+}
+
+#' @export
+env.rm = function(names, env) {
+	missing = setdiff(names, ls(env))
+	if( len(missing) > 0)
+		warning('Following names are missing in environment:', missing, '\n, names available in environment:', ls(env))
+	rm(list=intersect(names, ls(env)), envir=env)
 }
 
 

pkg/DESCRIPTION

@@ -3,8 +3,8 @@ Type: Package
 Title: Systematic Investor Toolbox
 Description: Systematic Investor Toolbox is a collection of tools that
     I use in my investment research.
-Version: 2016.04.28
-Date: 2016-04-28
+Version: 2016.04.29
+Date: 2016-04-29
 License: GPL-3
 LazyLoad: yes
 Author: Michael Kapler <TheSystematicInvestor@gmail.com>

pkg/NAMESPACE

@@ -175,6 +175,7 @@ export(empty.group)
 export(engineering.returns.kpi)
 export(env)
 export(env.del)
+export(env.rm)
 export(equal.risk.contribution.portfolio)
 export(equal.weight.portfolio)
 export(ev.ratio)

pkg/R/bt.r

@@ -287,7 +287,7 @@ bt.prep.remove.symbols <- function
 		b$weight = b$weight[, -index]
 		b$execution.price = b$execution.price[, -index]
 
-		rm(list = b$symbolnames[index], envir = b)		
+		env.rm(b$symbolnames[index], b)
 		b$symbolnames = b$symbolnames[ -index]
 	}
 }

pkg/R/utils.r

@@ -214,8 +214,17 @@ env <- function
 #' @export
 #' @rdname EnvironmentFunctions
 ###############################################################################
-env.del <- function(names, env) {
-	rm(list=intersect(ls(env), names), envir=env)
+env.del = function(names, env) {
+	warning('env.del is depricated as of Apr 25, 2016 please use env.rm function instead')
+	env.rm(names, env)
+}
+
+#' @export
+env.rm = function(names, env) {
+	missing = setdiff(names, ls(env))
+	if( len(missing) > 0)
+		warning('Following names are missing in environment:', missing, '\n, names available in environment:', ls(env))
+	rm(list=intersect(names, ls(env)), envir=env)
 }