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 testarda.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_xcolnames(da)[grep(var_indep, colnames(da))] <<- "x"print(colnames(da)); return(myPanel)}ren_y <- function(myPanel){var_dep <<- myPanel$var_ycolnames(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 bdrp.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 ComunelloAgronomist (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, 408mUTC-04:00 / DST: UTC-03:00