ok

R/utils.r

@@ -170,6 +170,37 @@ env.del <- function(names, env) {
 }
 
 
+###############################################################################
+# Variables to List and back
+#' @export 
+###############################################################################
+vars2list <- function(...) {
+	out = list( ... )		
+	names(out) = as.character(substitute(c(...))[-1])
+	out
+}
+
+#' @export 
+list2vars <- function(data, env = parent.frame()) {
+	for(n in names(data))
+		assign(n, data[[n]], env)
+}	 
+
+###############################################################################
+# Check default argumnets
+#' @export 
+###############################################################################
+check.args = function(default.args, args=NULL) {
+	if(is.null(args)) return(default.args)
+
+	for(n in ls(default.args))
+		if(is.null(args[[n]]))
+			args[[n]] = default.args[[n]]
+
+	args
+}
+
+
 ###############################################################################
 #' Shortcut for all.equal function
 #'

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: 2015.06.05
-Date: 2015-06-05
+Version: 2015.06.09
+Date: 2015-06-09
 License: GPL-3
 LazyLoad: yes
 Author: Michael Kapler <TheSystematicInvestor@gmail.com>

pkg/NAMESPACE

@@ -76,6 +76,7 @@ export(calendar.signal)
 export(calendar.strategy)
 export(cap.weighted.mean)
 export(cboe.volatility.term.structure.SPX)
+export(check.args)
 export(chr)
 export(clean.table)
 export(cluster.group.FTCA)
@@ -236,6 +237,7 @@ export(last.trades)
 export(ledoit.wolf.shrinkage)
 export(len)
 export(list2matrix)
+export(list2vars)
 export(load.packages)
 export(load.VXX.CBOE)
 export(log.fn)
@@ -447,6 +449,7 @@ export(ulcer.index)
 export(update.ia)
 export(us.ishares.components)
 export(variable.number.arguments)
+export(vars2list)
 export(visualize.system.parameter.optimization)
 export(write.xts)
 export(xts2ts)

pkg/R/utils.r

@@ -170,6 +170,37 @@ env.del <- function(names, env) {
 }
 
 
+###############################################################################
+# Variables to List and back
+#' @export 
+###############################################################################
+vars2list <- function(...) {
+	out = list( ... )		
+	names(out) = as.character(substitute(c(...))[-1])
+	out
+}
+
+#' @export 
+list2vars <- function(data, env = parent.frame()) {
+	for(n in names(data))
+		assign(n, data[[n]], env)
+}	 
+
+###############################################################################
+# Check default argumnets
+#' @export 
+###############################################################################
+check.args = function(default.args, args=NULL) {
+	if(is.null(args)) return(default.args)
+
+	for(n in ls(default.args))
+		if(is.null(args[[n]]))
+			args[[n]] = default.args[[n]]
+
+	args
+}
+
+
 ###############################################################################
 #' Shortcut for all.equal function
 #'