R: Assigning vectors from a list of vectors as a value of the column in a data frame from a list of data frames -


i have 2 lists of equal length: 1 list of data frames, list of vectors, such length of each vector coincides number of rows in respective data frame of first list. want assign vectors second list value of first column in each data frame. easier explain code bellow: 

for (i in seq_along(data)){    data[[c(i, 1)]] = links[[i]]                          }

, data list of data frames, , links list of vectors. while code works fine, , speedwise there no particular need avoid for loops, wonder whether there other way perform same action without for?

since dataand links have same lengths, , replacing one-for-one, map() and/or mapply() choice. using data other answer,

data <- list(data.frame(a = 1:3, b = 4:6), data.frame(a = 10:14, b = 15:19)) links <- list(7:9, 20:24)

you can do

map("[<-", data, 1, value = links) # [[1]] #   b # 1 7 4 # 2 8 5 # 3 9 6 # # [[2]] #     b # 1 20 15 # 2 21 16 # 3 22 17 # 4 23 18 # 5 24 19

although r gods know how safe is. safer use anonymous function.

map(function(x, y, z) { x[y] <- z; x }, data, 1, links)

Comments

Post a Comment

Popular posts from this blog

php - failed to open stream: HTTP request failed! HTTP/1.0 400 Bad Request -

this code i'm using find latitude , longitude of place: function coords($address){ echo $url="http://maps.googleapis.com/maps/api/geocode/json?address=".$address; $json = file_get_contents(urlencode($url)); $data = json_decode($json, true); print_r($data['results'][0]['geometry']['location']['lat']); print_r($data['results'][0]['geometry']['location']['lng']); } however returns warning: failed open stream: http request failed! http/1.0 400 bad request if use above code in simple procedure works fine not in function. note: have tried curl_init()... method produced same result? instead of encoding whole url encode address part. following code work fine $add='jamshoro phase 2'; $url="http://maps.googleapis.com/maps/api/geocode/json?address=".urlencode($add); $json = file_get_contents($url); $data = json_decode($json, true); print_r($data['r
Read more

java - How to filter a backspace keyboard input -

i have code gives message when key number pressed: txtvalueofclause.addeventfilter(keyevent.key_typed, new eventhandler<keyevent>() { @override public void handle(keyevent t) { char ar[] = t.getcharacter().tochararray(); char ch = ar[t.getcharacter().tochararray().length - 1]; if (!(ch >= '0' && ch <= '9')) { system.out.println("the char entered not number"); t.consume(); } } }); now if press on wrong button , press backspace remove it, error message. how can add backspace input if statement? i have found answer: txtvalueofclause.addeventfilter(keyevent.key_typed, new eventhandler<keyevent>() { @override public void handle(keyevent t) { char ar[] = t.getcharacter().tochararray(); char ch = ar[t.getcharacter().tochar
Read more

java - Show Soft Keyboard when EditText Appears -

i have code in android app, alert dialog , keyboard, , when dialog shown want keyboard appear. not , not sure why? here code: final alertdialog.builder alert = new alertdialog.builder(this); alert.settitle("title"); alert.setmessage("message"); final edittext input = new edittext(this); input.setinputtype(inputtype.type_class_number); alert.setview(input); input.setonfocuschangelistener(new view.onfocuschangelistener() { @override public void onfocuschange(view v, boolean hasfocus) { if (hasfocus) { log.i(tag, "in focus"); inputmethodmanager inputmethodmanager = (inputmethodmanager) getsystemservice(context.input_method_service); inputmethodmanager.showsoftinput(input, inputmethodmanager.show_implicit); } } }); but keyboard not appear though edit text in focus, , tell appear why, doesn't come up? thanks in advance.
Read more