Why not just transpose a "normal" table?
Example:
library(shiny)
tbl <- tibble::tibble(
Name = "John",
City = "Warsaw",
`Client since` = date(),
Rating = 4.5,
`Monthly spendings` = 2500
)
ui <- fluidPage(
tableOutput("tbl")
)
server <- function(input, output, session) {
output$tbl <- renderTable({
t(tbl)
}, rownames = TRUE, colnames = FALSE)
}
shinyApp(ui, server)