<div dir="ltr"><div>Talvez algo assim...</div><div><br></div><div><font face="monospace, monospace">### <code r></font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">{</font></div><div><font face="monospace, monospace"> set.seed(123)</font></div><div><font face="monospace, monospace"> df <- data.frame(</font></div><div><font face="monospace, monospace"> municipio=sample(c("Limeira", "Manaus", "Dourados"), 30, repl=T),</font></div><div><font face="monospace, monospace"> diasemanaincident=sample(c("terca", "quarta", "sexta"), 30, repl=T),</font></div><div><font face="monospace, monospace"> trechoklmetros=sample(0:400000, 30),</font></div><div><font face="monospace, monospace"> turnoincidente=sample(c("manha", "tarde"), 30, repl=T), stringsAsFactors=F)</font></div><div><font face="monospace, monospace">}</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">which(df$municipio == 'Limeira')</font></div><div><font face="monospace, monospace"># [1] 1 6 15 17 18 19 29 30</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">which(df$municipio == 'Limeira' & df$diasemanaincident == 'terca')</font></div><div><font face="monospace, monospace"># [1] 15 17 19</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">vec <- c("df$municipio == 'Limeira'", </font></div><div><font face="monospace, monospace"> "df$municipio == 'Limeira' & df$diasemanaincident == 'terca'"); cbind(vec)</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">for (a in vec) print(with(df, which(eval(parse(text=a)))))</font></div><div><font face="monospace, monospace"># [1] 1 6 15 17 18 19 29 30</font></div><div><font face="monospace, monospace"># [1] 15 17 19</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">### </code></font></div><div><br></div><div class="gmail_extra"><br clear="all"><div><div class="gmail_signature"><div dir="ltr">Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br>Dourados, MS - [22 16.5'S, 54 49'W]<br></div></div></div>
<br><div class="gmail_quote">Em 16 de abril de 2015 14:32, Fernando Gama <span dir="ltr"><<a href="mailto:f.fabiogama88@gmail.com" target="_blank">f.fabiogama88@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex"><div dir="ltr"><div style="font-family:'arial narrow',sans-serif;color:rgb(11,83,148)">Obrigado pela resposta Eder. :)</div><div style="font-family:'arial narrow',sans-serif;color:rgb(11,83,148)"><br></div><div style="font-family:'arial narrow',sans-serif;color:rgb(11,83,148)">mas os dados não estão em um dataframe e sim eu tenho um vetor de caracteres na forma de:</div><div style="font-family:'arial narrow',sans-serif;color:rgb(11,83,148)"><br></div><div style="font-family:'arial narrow',sans-serif;color:rgb(11,83,148)"><div style="font-size:13px">[1] "municipio == Limeira" </div><div style="font-size:13px">[2] "municipio == Limeira & diasemanaincident == terca" </div><div style="font-size:13px">[3] "municipio == Limeira & diasemanaincident == terca & <b>trechoklmetros == ]12.200, 245.000]</b>" [1] [1] "municipio == Manaus" </div><div style="font-size:13px">[4]"municipio == Manaus & diasemanaincident == sexta" </div><div style="font-size:13px">[5] "municipio == Manaus & diasemanaincident == sexta & turnoincidente == manha" </div><div><br></div><div>Meu objetivo é ler essas strings de busca de maneira automática. Como elas seguem um padrão, posso aplicar o mesmo script em cima de proximas strings de busca que surgirem...</div><div><br></div><div><br></div></div></div><div class="gmail_extra"><br></div></blockquote></div></div></div>