<div dir="ltr"><div class="gmail_default" style="font-family:'courier new',monospace;color:rgb(0,0,102)">Engraçado... eu usaria uma coisa do tipo</div><div class="gmail_default" style="font-family:'courier new',monospace;color:rgb(0,0,102)"><br></div><div class="gmail_default" style="font-family:'courier new',monospace;color:rgb(0,0,102)"><div style="color:rgb(0,0,0);font-family:arial,sans-serif;font-size:12.8px"><ol><li style="margin-left:15px">remove.variables <- function(<a href="http://dataset.name/" target="_blank">dataset.name</a>, vars.to.remove)<br></li><li style="margin-left:15px">{<br></li><li style="margin-left:15px">  output <- <a href="http://dataset.name">dataset.name</a>[,-which(names(<a href="http://dataset.name">dataset.name</a>) %in% vars.to.remove]</li><li style="margin-left:15px">  output</li><li style="margin-left:15px">} </li></ol><div>dataset <- remove.variable(dataset,c("var1","var2","var3"))</div></div></div></div><div class="gmail_extra"><br clear="all"><div><div class="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div dir="ltr"><font face="'courier new', monospace" style="background-color:rgb(255,255,255)" color="#000066">Pedro Brasil</font></div></div></div></div></div></div>
<br><div class="gmail_quote">Em 28 de fevereiro de 2016 08:55, Elias Carvalho <span dir="ltr"><<a href="mailto:ecacarva@gmail.com" target="_blank">ecacarva@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><span style="font-size:12.8px">Ola Pessoal</span><div style="font-size:12.8px"><br></div><div style="font-size:12.8px">Para facilitar a vida de um usuário leigo, eu criei uma função para excluir as colunas de uma tabela, conforme código abaixo:</div><div style="font-size:12.8px"><br></div><div style="font-size:12.8px"><div><ol><li style="margin-left:15px">remove.variables <- function(<a href="http://dataset.name/" target="_blank">dataset.name</a>, vars.to.remove)<br></li><li style="margin-left:15px">{<br></li><li style="margin-left:15px">  # scan the variables to be removed<br></li><li style="margin-left:15px">  for (x in 1 : length(vars.to.remove))<br></li><li style="margin-left:15px">  {<br></li><li style="margin-left:15px">    # transform command.Remove in "data$variable <- NULL"<br></li><li style="margin-left:15px">    command.Remove <- paste(<a href="http://dataset.name/" target="_blank">dataset.name</a>,"$",vars.to.remove[x], " <- NULL",sep="")<br></li><li style="margin-left:15px">    # execute the command<br></li><li style="margin-left:15px">    command.Remove <- eval(parse(text=command.Remove))<br></li><li style="margin-left:15px">  } #  for (x in 1 : length(vars.to.remove))<br></li><li style="margin-left:15px">} # remove.variables <- function(<a href="http://dataset.name/" target="_blank">dataset.name</a>, vars.to.remove)<br></li></ol></div><div><br></div><div>Fazendo um teste local, ou seja, executando o procedimento abaixo com as variáveis<a href="http://dataset.name/" target="_blank">dataset.name</a>, vars.to.remove carregadas respectivamente com o nome do meu data frame "data" e com o nome de duas variáveis "var1" e "var5" a serem removidas e executando da linha 2 a 11 tudo tunciona bem e as colunas são removidas.</div><div><br></div><div><a href="http://dataset.name/" target="_blank">dataset.name</a> <- "data"<br></div><div>vars.to.remove<-c("var1", "var5")<br></div><div><br></div><div>No entanto se carrego a função e executo os procedimentos abaixo em outro script, a função é executada sem erro, mas não remove nenhuma coluna do data frame:</div><div><br></div><div><div>vars.to.remove = c("var1", "var5")<br></div><div><a href="http://dataset.name/" target="_blank">dataset.name</a> = "data"</div><div><br></div><div>remove.variables(<a href="http://dataset.name/" target="_blank">dataset.name</a>, vars.to.remove)<br></div></div><div><br></div><div>Eu acredito que tem a ver com o ambiente, acesso global algo assim mas não estou achando a solução.</div><div><br></div><div>Agradeço se aguem puder me ajudar.</div></div><span class="HOEnZb"><font color="#888888"><div><br></div>-- <br><div><div dir="ltr"><div><div dir="ltr"><div dir="ltr">Best regards... 8^)<br><br>“<span style="font-size:12.8px">The mind that is open to new ideas never come back</span><div><span style="font-size:12.8px">to its original size</span>”  <i style="margin:0px;padding:0px;border:0px;font-style:inherit;font-variant:inherit;font-weight:inherit;font-stretch:inherit;font-size:inherit;vertical-align:baseline;color:rgb(51,51,51);font-family:Arial,Verdana,sans-serif;line-height:21px;background-color:rgb(255,255,255)">Albert Einstein</i><span style="font-size:13px;color:rgb(51,51,51);font-family:Arial,Verdana,sans-serif;line-height:21px;background-color:rgb(255,255,255)"> </span><br><br><br>_____________________________________________<br>Prof. Elias César Araújo de Carvalho<br>CV: <a href="http://lattes.cnpq.br/4248328961021251" target="_blank">http://lattes.cnpq.br/4248328961021251</a><br></div></div></div></div></div></div>
</font></span></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" 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" rel="noreferrer" 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>