TextOutput определенный столбец из фрейма данных, используя поиск grep

Question

ui <- fluidPage(

  textInput(
    inputId = "team_numSearch", label = "Choose a team"),
  verbatimTextOutput("teamData")
)


server <- function(input, output){
  df <-read.csv(file = "sample.txt", head = TRUE)

  output$teamData <- renderPrint({
    df[grep(input$team_numSearch, df$Team.Number),]
  })

}

shinyApp(ui = ui, server = server)

df

Team.Number,Match.Number
1,8888
2,2333
3,365

Я хочу, чтобы этот код сузил вывод, просто чтобы показать номер совпадения.Поэтому, если я ищу Team.Number 1, я хочу получить вывод только 8888, а не 1,8888

Answer 1

Просто добавьте столбец, который вы хотите отобразить, в вашем примере это просто 2] внутри среза

ui <- fluidPage(

  textInput(
    inputId = "team_numSearch", label = "Choose a team"),
  verbatimTextOutput("teamData")
)


server <- function(input, output){
  df <-read.csv(file = "sample.txt", head = TRUE)

  output$teamData <- renderPrint({
    df[grep(input$team_numSearch, df$Team.Number),2]
  })

}

inyApp (ui = ui, server = server)