Adding set.from.arg.list as a subfunction to set.from.list to use named lists as an argument to parse labkey.url.params

R/km.R

@@ -34,6 +34,10 @@ kaplan.meier<-function(x,var,comment=''){
 
 set.from.list<-function(var,default,...){
    z<-list(...)
+   set.from.arg.list(var,default,z)
+}
+
+set.from.arg.list<-function(var,default,z){
    if (var %in% base::names(z)) result<-base::unlist(z[[var]])
    else result=default
    result