Визуализация DT :: datatable в браузере с использованием flexdashboard с блестящей - PullRequest
Новая
       10

Визуализация DT :: datatable в браузере с использованием flexdashboard с блестящей

0 голосов
/ 16 декабря 2018

Я пытаюсь создать интерактивную таблицу в flexdashboard с Shiny.В следующем представлении таблица отображается в средстве просмотра Rstudio, но кнопка CSV не работает.При попытке открыть в локальном браузере таблица не отображается. 

---
title: "Untitled"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    runtime: shiny
---

```{r setup, include=FALSE}    
library(flexdashboard)
library(tidyverse)
library(DT)
library(shiny)

df <- data_frame(
  x = c("a", "b", "c", "c", "b", "c", "b", "a"),
  y = c(1, 6, 7, 5, 9, 3, 8, 2),
  z = c("one", "two", "three", "one", "two", "three", "one", "two")
)

```

Column {data-width=200 .sidebar}
-----------------------------------------------------------------------

```{r}
selectInput("x_input", label = "Select x Value",
            choices = c("All", unique(as.character(df$x))), selected = "All")

roster_input <- reactive({
  if (input$x_input=="All"){
  df
  }else{
  df %>% 
    filter(x==input$x_input)}
})

```

Column {data-width=350}
-----------------------------------------------------------------------

### Chart B

```{r}
renderDataTable({
  DT::datatable(
    roster_input(),
    rownames = FALSE, 
    filter = "top",
    extensions = c('Buttons', 'Scroller'),
    options = list(
      dom = 'Blfrtip',
      buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
      deferRender = T,
  scrollY = '400px',
  scroller = TRUE))})
```

Чего мне не хватает, чтобы заставить это работать в моем локальном браузере?

...