R闪亮:带有变异的反应性列名？

Question

在我的中，有一个列有一个反应性名称(由用户选择)，我希望生成一个值为原始列的对数的列。为此，我在mutate包中使用dplyr。但是，当我试图使这个新列的名称是反应性的时，会出现一个错误。

例如，在下面的代码中，我将新列命名为“对数”，它工作得很好：

library(shiny)
library(DT)
library(data.table)
library(dplyr)

ui <- fluidPage(
  titlePanel(""),
  fluidRow(
    checkboxInput(inputId = "logarithm",
                  label = "Log(variable)"),
    dataTableOutput("my_df"),
    textInput("new_name", 
              label = "New_name"),
    actionButton("new_name2", "Validate")
  )
)


server <- function(input, output) {

  data <- head(mtcars[, 1:3])


  reactive_data <- eventReactive(input$new_name2, {
    colnames(data) <- c("mpg", "cyl", input$new_name)
    data
  }) 

  output$my_df <- renderDataTable({
    data <- reactive_data()
      if(input$logarithm){
        data %>%
          mutate(logarithm = log(data[, input$new_name]))

      }
    else {
      data
    }
  })
}

shinyApp(ui = ui, server = server)

但是将“对数”改为“对数(input$new_name)”，它将不再起作用。

有谁有解决办法吗？

Answer 1

基于这个question and answer

if(input$logarithm){
        log_name <- paste0('logarithm(', input$new_name, ')')
        data %>%
          mutate(!!log_name := log(data[, input$new_name]))

}

完整代码：

library(shiny)
library(DT)
library(data.table)
library(dplyr)

ui <- fluidPage(
  titlePanel(""),
  fluidRow(
    checkboxInput(inputId = "logarithm",
                  label = "Log(variable)"),
    dataTableOutput("my_df"),
    textInput("new_name", 
              label = "New_name"),
    actionButton("new_name2", "Validate")
  )
)


server <- function(input, output) {

  data <- head(mtcars[, 1:3])


  reactive_data <- eventReactive(input$new_name2, {
    colnames(data) <- c("mpg", "cyl", input$new_name)
    data
  }) 

  output$my_df <- renderDataTable({
    data <- reactive_data()
    if(input$logarithm){
            log_name <- paste0('logarithm(', input$new_name, ')')
            data %>%
              mutate(!!log_name := log(data[, input$new_name]))

    }
    else {
      data
    }
  })
}

shinyApp(ui = ui, server = server)