Demander aux utilisateurs de spécifier un nouveau nom de variable et une nouvelle définition à l'aide de textInput

Question

Je souhaite que mes utilisateurs créent une nouvelle variable et l'ajoutent à un bloc de données existant. Les utilisateurs doivent entrer le nom et la définition via textInput. Note: J'ai essayé toutes les suggestions postées dans Getting strings recognized as variable names in R

Pourtant, je ne suis pas capable de le faire fonctionner. Toutes les suggestions seront grandement appréciées. Je vous remercie!

Voici mon code:

rawdata:

colA <- c('1','2','3','3','2') 
colB <- c('1','1','3','3','2') 
colC <- c('14','12','33','33','26') 
colD <- c('Value','Mainstream','Value','Premium','Premium') 
colE <- c(1,2,3,4,5) 
rawdata <- as.data.frame(cbind(colA, colB, colC, colD, colE)) 

ui.R:

fluidPage(
      sidebarLayout(
       sidebarPanel(
        textInput("NewVar_Name", "New attribute's name"), 
        textInput("NewVar_Def", "New attribute's definition", 
          "ifelse(rawdata$price_tiers_new == 'Value', 1, 0)"), 

        br(), 
        actionButton("addButton", strong("Done!")), 
        width = 3 
       ), 

       mainPanel(
        verticalLayout(
         br() 
         #Will display a summary of new variable 
        ) 
       ) 
      ) 
     ) 

server.R:

function(input, output, session) { 

    temp <- reactiveValues() 

    observe(
     if(input$addButton == 0) { 
      temp$df <- rawdata 
     } else { 
      temp$df <- mydata() 
     } 
    ) 


    mydata <- eventReactive(input$addButton, { 
     if(input$addButton == 0) { 
      rawdata 
     } else { 
      tempname <- eval(as.name(input$NewVar_Name)) 
      do.call("<-",list(tempname, eval(parse(text=input$NewVar_Def)))) 

      cbind(temp$df, tempname) 
     } 
    }) 

} 

Answer 1

Je suppose que vous pourriez faire

mydata <- eventReactive(input$addButton, { 
    if(input$addButton == 0) { 
     rawdata 
    } else { 
     tempdata <- eval(parse(text=input$NewVar_Def)) 
     temp$df <- setNames(cbind(
     temp$df, 
     tempdata), 
     c(names(temp$df), input$NewVar_Name)) 
    } 
}) 

Notez que ifelse(rawdata$price_tiers_new == 'Value', 1, 0) ne fonctionnera pas, car l'ensemble de données n'a pas de colonne nommée price_tiers_new.