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 <comunello.eder@gmail.com> 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:nandodesouza@gmail.com https://producaoanimalcomr.wordpress.com/ ========================================================================
