R function to combine lists but prioritize the values in one of them -

-

i'm trying make function combine multiple lists, between 2 , 4, weed out duplicates , (if possible) prioritize values of 1 of lists. possible? it's better explained code:

passopts <- function(in1 = list(), in2 = list(), in3 = list(), in4 = list(){     c(in1, in2, in3, in4) } opts1 <- list(a = 1, b = 2, c = 4) opts2 <- list(a = 1, b = 2, c = 4) opts3 <- list(a = 5, b = 10) combinedopts <- passopts(opts1, opts2, opts3)

ideally want possible 'prioritize' list different rest, in case want combinedopts list of a = 5, b = 10, c = 4. i'm using way set , combine default , user input options. thanks

**solved, ended doing realized latest input (i.e. 3 inputs in3) 1 want use default, did follows

passopts <- function(in1 = list(), in2 = list(), in3 = list(), in4 = list()){ if(length(in4) != 0){     in4names <- names(in4)     rlist <- in4     temp <- c(in1,in2,in3)     tempnames <- names(temp)     for(i in 1:length(tempnames)){         nam <- tempnames[i]         if(!(nam %in% in4names)){             in4names <- c(in4names,nam)             rlist[nam] <- temp[nam]         }     } }else if(length(in3) != 0){     in3names <- names(in3)     rlist <- in3     temp <- c(in1,in2)     tempnames <- names(temp)     for(i in 1:length(tempnames)){         nam <- tempnames[i]         if(!(nam %in% in3names)){             in3names <- c(in3names, nam)             rlist[nam] <- temp[nam]         }     } }else if(length(in2) != 0){     in2names <- names(in2)     rlist <- in2     temp <- in1     tempnames <- names(temp)     for(i in 1:length(tempnames)){         nam <- tempnames[i]         if(!(nam %in% in2names)){             in2names <- c(in2names, nam)             rlist[nam] <- temp[nam]         }     } }else{     return(in1) } return(rlist) }

looks likes looking of unique number.

here how do: 1. aggregate input lists 2. find out unique 1 each key

passopts <- function(listoflist){   reslist = list()    # reduce lists key   (l in listoflist){     (i in 1:length(l)){       key = names(l[i])       value = l[[i]]       reslist[[key]] = c(reslist[[key]], value)     }   }    # found diffent 1 each key   finddiff <- function(elements){     counttable = table(elements)     mincount = min(counttable)     return(names(counttable)[counttable == mincount])   }   return(lapply(reslist, fun=finddiff)) }  opts1 <- list(a = 1, b = 2, c = 4) opts2 <- list(a = 1, b = 2, c = 4) opts3 <- list(a = 5, b = 10)  combinedopts <- passopts(list(opts1, opts2, opts3))

Comments

Post a Comment

Popular posts from this blog

yii2 - Yii 2 Running a Cron in the basic template -

-
i have seen instructions on running cron in advanced template, cant figure out how on basic template. have following controller in basic controllers folder. <?php namespace app\controllers; use yii\console\controller; /** * cron controller */ class croncontroller extends controller { public function actionindex() { echo "cron service runnning"; } public function actionmail($to) { echo "sending mail " . $to; } } i have navigated root of application , tried these comands yii cron php yii cron im getting unknown comand "cron" i know old question failed find actual answer this. if @ code yii exec file you'll notice requires /common/config/aliases.php file console/config/main.php. can naturally change these or copy on these advanced template. hope solves problem wanting same thing.
Read more

asp.net - 'System.Web.HttpContext' does not contain a definition for 'GetOwinContext' Mystery -

-
i realize question might seem trivial some, it's these types of things find myself fighting quite bit , want make sense of despite seeming losing battle in .net (for me anyway). so, if following: using system.web; ... applicationuser user = system.web.httpcontext.getowincontext().getusermanager<applicationusermanager>().findbyid(system.web.httpcontext.user.identity.getuserid()); that produces error in title , red getowincontext() , error cannot resolve symbol 'getowincontext()' however, if following (remove system.web in front of httpcontext ), works expected (or @ least no errors): using system.web; ... applicationuser user = httpcontext.getowincontext().getusermanager<applicationusermanager>().findbyid(system.web.httpcontext.user.identity.getuserid()); however, if (same line that's working using system.web commented out): //using system.web; ... applicationuser user = httpcontext.getowincontext().getusermana...
Read more

mercurial graft feature, can it copy? -

-
there new feature in mercurial 3, called 'graft' (graft local). job of moving change-set different branch. is there way "copy" change-set branch? i interested in in moving stuff qa branch production branch, still need code reside in qa. want copy. found , have tried few things, maybe it'll become clear more tinkering , reading... does have better way of 'cherry picking' change-sets move cross branch (or trunk)??? graft copies changesets, doesn't move them. hg graft (emphasis mine): this command uses mercurial's merge logic copy individual changes other branches without merging branches in history graph. known 'backporting' or 'cherry-picking' . default, graft copy user, date, , description source changesets.
Read more