Olá Eder, tudo bem? Desculpe a demora em lhe retornar. Quero lhe agradecer pela atenção. Eu ainda não tinha resolvido esta parte, era exatamente isso que queria. Quando terminar o que estou fazendo compartilharei aqui na lista acredito que poderá se útil a outros
Mais uma vez meus sinceros agradecimentos. Em 2 de março de 2016 17:12, Éder Comunello <[email protected]> escreveu: > Fernando, boa tarde! > > Não sei se você já resolveu, mas consegui renomear as variáveis no exemplo > que você tinha proposto... > > ### <code r> > ### dados pra testar > da.ori <- structure(list(Tubo = c(1L, 1L, 1L, 1L, 1L, 1L), Amostra = c(1L, > 1L, 1L, 1L, 1L, 1L), dieta = c(1L, 1L, 1L, 1L, 1L, 1L), concentracao = > c(20L, > 20L, 20L, 20L, 20L, 20L), Tempo = 1:6, PG = c(4.18, 6.16, 8.13, > 9.94, 11.74, 13.72)), .Names = c("Tubo", "Amostra", "dieta", > "concentracao", "Tempo", "PG"), row.names = c(NA, 6L), class = > "data.frame") > > require(rpanel) > > > #----------------------------------------------------------------------------- > myDB <- function(myPanel){ da <<- da.ori; print(head(da)); return(myPanel) > } > > ren_x <- function(myPanel){ > var_indep <<- myPanel$var_x > colnames(da)[grep(var_indep, colnames(da))] <<- "x" > print(colnames(da)); return(myPanel)} > > ren_y <- function(myPanel){ > var_dep <<- myPanel$var_y > colnames(da)[grep(var_dep, colnames(da))] <<- "y" > print(colnames(da)); return(myPanel)} > > #----------------------------------------------------------------------------- > > {myPanel <- rp.control(title = "Adjust", size=c(500,100)) > > rp.button(myPanel, action=myDB, title="Importar dados / Reiniciar...") # > botão importar bd > > rp.textentry(panel=myPanel, variable=var_y, > labels="nome da variável dependente(y):", > initval="", > action=ren_y) > > rp.textentry(panel=myPanel, variable=var_x, > labels="nome da variável independente(x):", > initval="", > action=ren_x)} > > # rp.control.dispose(myPanel) > ### </code> > > > > > > > ================================================ > Éder Comunello > Agronomist (UEM), MSc in Environ. Sciences (UEM) > DSc in Agricultural Systems Engineering (USP/Esalq) > Brazilian Agricultural Research Corporation (Embrapa) > Dourados, MS, Brazil |<O>| > ================================================ > GEO, -22.2752, -54.8182, 408m > UTC-04:00 / DST: UTC-03:00 > > > > -- ======================================================================= Fernando Souza Zootecnista, DSc. Produção Animal e-mail:[email protected] https://producaoanimalcomr.wordpress.com/ ========================================================================
_______________________________________________ R-br mailing list [email protected] https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forne�a c�digo m�nimo reproduz�vel.
