Обратитесь к имени столбца, которое зависит от ввода в Shiny

Question

Я видел в других вопросах о том, как назвать столбец на основе ввода в Shiny.Я пытаюсь сослаться на имя столбца, чтобы продолжить выполнение дальнейших действий со столбцом.

Приведенный ниже пример упрощен, но по сути я пытаюсь достичь чего-то с помощью столбца, не зная, каким будет имя столбца.В реальных данных есть гораздо больше возможных вариантов.

Ниже приведен новый столбец, а не переделка столбца, на который я пытаюсь сослаться.Я также попробовал несколько явно бессмысленный score_data$(input$selection), но неудивительно, что это не работает.

library(shiny)
library(shinydashboard)


sidebar <- dashboardSidebar(
  selectInput(
  "selection", label = "Select",
  choices = c("Harriet", "Louise")
  )
)

body <- dashboardBody(
  fluidRow(
      htmlOutput("table"))
)

ui <- dashboardPage(dashboardHeader(title = "Example"),
                    sidebar,
                    body
)

server <- function(input, output) {


  output$table <- renderTable({
    person_a <- c(95, 60)
    Terry <- c(77, 81)
    score_data <- data.frame(person_a, Terry)
    colnames(score_data)[1] <- input$selection
    name <- input$selection
    score_data$name <- c(90, 60)
    return(score_data)
  })
}

shinyApp(ui, server)