Brak outputu przy observeEvent - R Shiny

Hej!

Piszę pierwszą apkę w RShiny importując bazę danych (PostgreSQL).
Chciałabym, by po wpisaniu danych i kliknięciu przycisku wyświetlała się SQL-owa tabela w wybranym tabPanelu.
Tutaj wrzucam fragmety kodu:

ui <- fluidPage(
  sidebarLayout(
  sidebarPanel(...
  
    textInput(inputId = "imie_id", 
            label = "Wpisz imię"),

    textInput(inputId = "nazwisko_id", 
          label = "Wpisz nazwisko"),

    actionButton("check1", "Sprawdź")
  ...),

  mainPanel(
    tabsetPanel(id='tabset',
      tabPanel("Wybrany klient", p("Wszystkie umiejętności i przynależenia do grup klienta:"), 
               verbatimTextOutput('ten_klient')),
    )
  )
)

server <- function(input, output, session) {
  observeEvent(input$check1, {
    imie <- paste0("'", input$imie_id, "'")
    nazwisko <- paste0("'", input$nazwisko_id, "'")
    query1 <- paste("SELECT * FROM klienci WHERE imie=", imie, " AND nazwisko=", nazwisko)
    ten_klient <- dbGetQuery(con, query1)
    updateTabsetPanel(session, 'tabset', selected = paste0(ten_klient))
 ...})
 
if (interactive()){
  shinyApp(ui = ui, server = server)
}

Nie wyrzuca żadnego błędu, tylko tabela nigdzie się nie pojawia.
Baza jest dobrze podłączona - w pozostałych tabPanelach nie wymagających żadnego wejścia od użytkownika wszystko działa poprawnie.