regex - Grepl & regular expressions not working in for loop (R) -


i trying use regular expressions , loop subset large data set. simplified example code identical in structure: 

v1 <- c("cow", "bull") v2 <- c("roster") v3 <- c("lamb", "goat") animal.match <- c(v1, v2, v3)  for(m in as.character(animal.match)){     animal <- subset(all.animals[,c(2,4)], grepl(paste(m, collapse = "|"), as.character(all.animals$species))) }

when take out of loop , substitute v1, v2, , v3 m, subset works. however, inside of loop no data subset. want animals subset of each original regular expression vector. e.g. first iteration in loop yield columns 2 , 4 of all.animals data "cows" , "bulls". 

species       name (col 2)      weight (col 4)  bull           bruce            2,400 lb  cow            bessie           1,600 lb

i tried messing paste() function , applying each of regular expression vectors didn't seem work. , input appreciated.

given don't know dataset looks like... used corpora had has 1 column... can adapt needed:

all.animals %>%  dplyr::slice( stringdist::amatch(c(v1, v2, v3), all.animals$animals,  maxdist = inf) )    animals 1     cow 2    bull 3 rooster 4    lamb 5    goat  > dput(all.animals) structure(list(animals = c("aardvark", "alligator", "alpaca",  "antelope", "ape", "armadillo", "baboon", "badger", "bat", "bear",  "beaver", "bison", "boar", "buffalo", "bull", "camel", "canary",  "capybara", "cat", "chameleon", "cheetah", "chimpanzee", "chinchilla",  "chipmunk", "cougar", "cow", "coyote", "crocodile", "crow", "deer",  "dingo", "dog", "donkey", "dromedary", "elephant", "elk", "ewe",  "ferret", "finch", "fish", "fox", "frog", "gazelle", "gila monster",  "giraffe", "gnu", "goat", "gopher", "gorilla", "grizzly bear",  "ground hog", "guinea pig", "hamster", "hedgehog", "hippopotamus",  "hog", "horse", "hyena", "ibex", "iguana", "impala", "jackal",  "jaguar", "kangaroo", "koala", "lamb", "lemur", "leopard", "lion",  "lizard", "llama", "lynx", "mandrill", "marmoset", "mink", "mole",  "mongoose", "monkey", "moose", "mountain goat", "mouse", "mule",  "muskrat", "mustang", "mynah bird", "newt", "ocelot", "opossum",  "orangutan", "oryx", "otter", "ox", "panda", "panther", "parakeet",  "parrot", "pig", "platypus", "polar bear", "porcupine", "porpoise",  "prairie dog", "puma", "rabbit", "raccoon", "ram", "rat", "reindeer",  "reptile", "rhinoceros", "salamander", "seal", "sheep", "shrew",  "silver fox", "skunk", "sloth", "snake", "squirrel", "tapir",  "tiger", "toad", "turtle", "walrus", "warthog", "weasel", "whale",  "wildcat", "wolf", "wolverine", "wombat", "woodchuck", "yak",  "zebra", "rooster")), .names = "animals", row.names = c(na, 135l ), class = "data.frame")

Comments

Post a Comment

Popular posts from this blog

javascript - Create a stacked percentage column -

i have collection of data : var data = [ {"p301a":"10","p301b":"7","p301c":"7","p301d":"3","p301e":"8","p301f":"8","p301g":"8","p301h":"8","p301i":"8","p301j":"8","p301k":"8","p301l":"8","p301m":"8","p301n":"8","p301o":"8","age":"31-40 years","profesion":"2","position":"2"}, {"p301a":"5","p301b":"4","p301c":"4","p301d":"4","p301e":"4","p301f":"4","p301g":"4","p301h":"4","p301i":"4","p301j":"4","p301k":"4...
Read more

Optimising Firebase database by automatically overwriting data -

in firebase app have following structure: posts latest all users can write posts > latest . want limit entries 20 posts save space in database. , posts beyond 20 unnecessary never shown on homepage. how can limit posts 20, when user writes posts > latest posts @ end drop off (be deleted) automatically? this sample should you. you need : const max_log_count = 20; exports.removeold = functions.database.ref('/posts/latest/{postid}').oncreate(event => { const parentref = event.data.ref.parent; return parentref.once('value').then(snapshot => { if (snapshot.numchildren() >= max_log_count) { let childcount = 0; const updates = {}; snapshot.foreach(function(child) { if (++childcount <= snapshot.numchildren() - max_log_count) { updates[child.key] = null; } }); // update parent. removes children. ...
Read more

javascript - Angular UI-Grid customTemplate directive causing rows to load slowly/? -

Image
each grid cell can have more 1 customtemplate loaded. have directive holds watcher on model_col_field listen cell updates on scroll when dom rows updated , recompile celltemplate . without watcher , $compile rows repeat on scroll, showing same set of rows. is there more angular way of approaching or way improve performance? relevant controller code: create gridoptions.data & gridoptions.columndefs : var customtemp = '<div ng-repeat="opt in grid.appscope.colvalueoptionsmodel" ng-init="tempstring=model_col_field.clazz+opt.key;"><comparison-directive dbo="model_col_field" attobj="opt" fff="grid.appscope.getattributetemplate(tempstring)" /></div>'; $scope.gridoptions.columndefs = [ { name:'yindex',pinnedleft:true,celltemplate: customtemp, displayname:'index'}, { name:'col1',celltemplate: customtemp}, { name:'col2',celltemplate: c...
Read more