Adding set.arg.from.list as an export

NAMESPACE

@@ -9,6 +9,7 @@ export(mapNA)
 export(remapVariable)
 export(remove.NA)
 export(selectValid)
+export(set.from.arg.list)
 export(setEventTime)
 export(simple.compute_roc_metrics)
 export(simple.getAUC)

R/km.R

@@ -32,11 +32,22 @@ kaplan.meier<-function(x,var,comment=''){
    p
 }
 
+
+
 set.from.list<-function(var,default,...){
    z<-list(...)
    set.from.arg.list(var,default,z)
 }
 
+#' Set argument value from list or to default value
+#'
+#' @param name of value in list
+#' @param default value
+#' @param list of values, such as labkey.url.params
+#' @return value from list or default if missing
+#'
+#' @export 
+
 set.from.arg.list<-function(var,default,z){
    if (var %in% base::names(z)) result<-base::unlist(z[[var]])
    else result=default

man/set.from.arg.list.Rd

@@ -0,0 +1,21 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/km.R
+\name{set.from.arg.list}
+\alias{set.from.arg.list}
+\title{Set argument value from list or to default value}
+\usage{
+set.from.arg.list(var, default, z)
+}
+\arguments{
+\item{default}{value}
+
+\item{name}{of value in list}
+
+\item{list}{of values, such as labkey.url.params}
+}
+\value{
+value from list or default if missing
+}
+\description{
+Set argument value from list or to default value
+}