<div dir="ltr">Desculpe... achei um erro. Não resolvi seu problema. <div><br></div><div>Dentro da função escrevi</div><div><span style="font-family:arial,sans-serif;font-size:13px"> with(my.env$subdata,v1+v2)</span><br></div>

<div><span style="font-family:arial,sans-serif;font-size:13px"><br></span></div><div><span style="font-family:arial,sans-serif;font-size:13px">Ao invés de:</span></div><div><span style="font-family:arial,sans-serif;font-size:13px"> with(my.env$subdata,operacao)</span><span style="font-family:arial,sans-serif;font-size:13px"><br>

</span></div><div><span style="font-family:arial,sans-serif;font-size:13px"><br></span></div><div><span style="font-family:arial,sans-serif;font-size:13px"><br></span></div></div><div class="gmail_extra"><br><br><div class="gmail_quote">

2013/8/19 Rogério Barbosa <span dir="ltr"><<a href="mailto:antrologos@gmail.com" target="_blank">antrologos@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">

<div dir="ltr">Olá Rodrigo,<div><br></div><div>Consegui fazer sua função funcionar -- embora eu mesmo não tenha entendido bem o método que empreguei... rs</div><div><br></div><div>Fato é que já vi diversas vezes o R não lidar bem com a relação local/global environment. Supus que seu problema era um caso desse. Então criei um environment dentro da função e atribui a um objeto o conteúdo de "data". Quando aplico a função with, já faço uso desse objeto dentro do environment criado.</div>


<div><br></div><div><br></div><div><div>rm(list=ls())</div><div>dados=data.frame(x=1:10,v1=rnorm(10),v2=rnorm(10))</div><div><br></div><div>f = function(data,operacao) {</div><div>    my.env <- new.env()</div><div>    </div>


<div>    assign("subdata", data, envir=my.env)</div><div>    </div><div>    with(my.env$subdata,v1+v2)</div><div>    }</div><div><br></div><div>f(dados,operacao=v1+v2)</div></div><div><br></div><div><br></div><div>


abraço,</div><div>Rogério</div></div><div class="HOEnZb"><div class="h5"><div class="gmail_extra"><br><br><div class="gmail_quote">2013/8/19 Rodrigo Coster <span dir="ltr"><<a href="mailto:rcoster@gmail.com" target="_blank">rcoster@gmail.com</a>></span><br>


<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Fernando,<div><br></div><div>foi desatenção minha na hora de fazer o exemplo. Segue sem repetir nomes e com o problema persistindo.</div>


<div><br></div><div><div><div>dados <- data.frame(x=1:10, v1=rnorm(10), v2=rnorm(10))</div>
<div><br></div><div>with(dados, v1+v2)</div><div><br></div></div><div>func <- function(data, funcao) {</div><div> with(data, funcao)</div><div>}</div><div>func(dados, v1+v2)</div><div>func(dados, 'v1+v2')</div>


</div>
</div><div><div><div class="gmail_extra"><br><br><div class="gmail_quote">2013/8/19 FHRB Toledo <span dir="ltr"><<a href="mailto:fernandohtoledo@gmail.com" target="_blank">fernandohtoledo@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div dir="ltr">Faça:<div><br></div><div><div style="font-size:13px;font-family:arial,sans-serif">planilha <- data.frame(x=1:10, v1=rnorm(10), v2=rnorm(10))</div><div style="font-size:13px;font-family:arial,sans-serif">




<br></div><div style="font-size:13px;font-family:arial,sans-serif">with(planilha, v1+v2) # Fora da função funciona</div><div style="font-size:13px;font-family:arial,sans-serif"><br></div>
<div style="font-size:13px;font-family:arial,sans-serif">func <- function(dados, func) {</div><div style="font-size:13px;font-family:arial,sans-serif"> with(dados, func)</div><div style="font-size:13px;font-family:arial,sans-serif">




}</div><div style="font-size:13px;font-family:arial,sans-serif"><br></div><div style="font-size:13px;font-family:arial,sans-serif">func(planilha, v1+v2) # Da erro na hora de chamar a função</div>
<div style="font-size:13px;font-family:arial,sans-serif"><br></div></div><div style="font-size:13px;font-family:arial,sans-serif">Talvez seja qq confusão na atribuição de nomes, parâmetros para a função.</div>
<div style="font-size:13px;font-family:arial,sans-serif"><br></div><div style="font-size:13px;font-family:arial,sans-serif">att,</div><div style="font-size:13px;font-family:arial,sans-serif">
FH</div></div><div class="gmail_extra"><br><br><div class="gmail_quote">2013/8/19 Rodrigo Coster <span dir="ltr"><<a href="mailto:rcoster@gmail.com" target="_blank">rcoster@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">



<div><div>
<div dir="ltr">Caros,<div><br></div><div>eu tenho uma função que me retorna um data.frame() com várias colunas que vou utilizar para outros calculos. Eu queria facilitar a minha vida e colocar esses calculos dentro da função, como um parâmetro (dado que não existe somente um calculo). Encontrei uma maneira de fazer isso fora da função pelo with() ou até mesmo evalq(), só que não consegui fazer isso dentro da função. Eu entendo os erros que dão e concordo com eles, mas não consegui encontrar uma maneira que funcione.</div>






<div><br></div><div>Basicamente é isso:</div><div><br></div><div><div>dados <- data.frame(x=1:10, v1=rnorm(10), v2=rnorm(10))</div><div><br></div><div>with(dados, v1+v2) # Fora da função funciona</div><div><br></div><div>






func <- function(data, func) {</div><div> with(dados, func)</div><div>}</div><div>func(dados, v1+v2) # Da erro na hora de chamar a função</div><div>func(dados, 'v1+v2') # Retorna o string</div></div><div><br></div>





<div>Alguma sugestão/solução?</div></div>
<br></div></div>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>
</div></div><br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>
</div></div></blockquote></div><br></div>