r: Rendering Kable with Shiny in Flexdashboard

Question

Is there a way to use a render__ function to render a Kable (knitr::) with Shiny in Flexdashboard? I am finding information about general Shiny-Kable rendering, but not specifically with Flexdashboard. Links like this one are helpful but it would be great to be able to call a render_ function to display the Shiny interactive Kable in my Flexdashboard. Any advice would be awesome!

Thanks!

Stefan

score 3 · Answer 1 · edited Jul 05 '20 at 22:22

3

the following is one way of getting this to work in flexdashboard.

your_reactive_data <- reactive({ your_data })

shiny::renderUI(
    HTML(
        kable(your_reactive_data())
    )
)

edited Jul 05 '20 at 22:22

Community

1
1

answered Mar 19 '19 at 00:51

Engelstad

31
4

Did not work for me, even with `{r results='asis'}`, it still prints just ASCII `|date |country |city |state | ||:----------|:-------|:----------|:-- ....` instead of nice table – IVIM May 03 '20 at 02:48

score 0 · Answer 2 · answered Nov 23 '20 at 17:53

The above answer did not work (for me). However what worked is using xtable::xtable() instead of kable(). They are produce similar output, and it has the corresponding renderTable() function. (as opposed to kable that does not have (yet) a corresponding renderKable() function.

renderTable({
  your_reactive_data() %>% xtable::xtable()
})

score 0 · Answer 3 · answered Mar 12 '21 at 03:35

The correct way to do it (according to this documentation) is just to wrap your code in an empty function:

output$mtcars_kable <- function() {
 req(input$mpg)
 mtcars %>%
   mutate(car = rownames(.)) %>%
   select(car, everything()) %>%
   filter(mpg <= input$mpg) %>%
   knitr::kable("html") %>%
   kable_styling("striped", full_width = F) %>%
   add_header_above(c(" ", "Group 1" = 5, "Group 2" = 6))
}

My guess is that it's because the kable_styling function already generates HTML, you don't need a render*() function.

r: Rendering Kable with Shiny in Flexdashboard

3 Answers3