Rmarkdown: блестящий контекст сервера DT в среде knit_child не рендерится - PullRequest
Новая
       34

Rmarkdown: блестящий контекст сервера DT в среде knit_child не рендерится

0 голосов
/ 12 марта 2019

У меня есть файл родительского и дочернего Rmarkdown, и я пытаюсь встроить структурированную таблицу DT Shiny UI-сервера в дочерний файл rmd.Но элемент DT не будет отображаться в child (но если он будет помещен в parent, он будет).При проверке выходных данных HTML появляется сообщение об ошибке: 

shinyapp.js:342 Uncaught Duplicate binding for ID table_diamond
favicon.ico:1 Failed to load resource: the server responded with a status of 
404 (Not Found)

Ниже приведен пример кода, который у меня есть:

Parent.Rmd: 

---
title: "Hello Prerendered Shiny"
output:
  html_document:
    fig_caption: yes
    keep_md: no
    number_sections: no
    theme: cerulean
    toc: yes
    toc_depth: 5
    toc_float:
      collapsed: true
  runtime: shiny_prerendered
---

```{r setup, results=FALSE, eval=TRUE, echo=FALSE, message=FALSE, warning=FALSE}
library(DT)
library(tidyverse)
library(knitr)
library(c3)

```

## Content Listed by diamond color

```{r echo=FALSE, eval=TRUE, include=FALSE, warning=FALSE}

color <- levels(diamonds$color)
out <- NULL

for (c in color){

  colorNum <- 0

 for (ct in 1: length(levels(diamonds[diamonds$color== c, ]$cut ))) {

 this_cut <- levels(diamonds[diamonds$color==c, ]$cut)[ct]
 env = new.env()
 out <- c(out, knit_child('sample_child.Rmd', envir = env))
 colorNum <- colorNum +1
  }
}
```
`r paste(out, collapse='\n')`

Child Rmd: 

---
output: html_document
runtime: shiny_prerendered
---


```{r eval='TRUE', echo=FALSE, results='asis'}
if(colorNum ==0)  cat('\n##',c,'\n'); #cat('\n'); 

```


### `r this_cut`  

#### Price range on fixed color and cut

```{r eval=TRUE, echo=FALSE, fig.retina=1, dpi = 72,results='asis', warning=FALSE}

data <-subset(diamonds, color == c) %>%
  filter(cut == this_cut) %>%
  as.data.frame()

plot(x = data$clarity, y = data$price, ylab = 'Price', xlab = 'clarity')

```
#### Detail Table

```{r, echo=FALSE}

DT::dataTableOutput("table_diamond")
submitButton("Save")

```

```{r, context="server"}
output$table_diamond <- DT::renderDataTable({

data <-subset(diamonds, color == c) %>%
filter(cut == this_cut) %>%
as.data.frame()

datatable(data)
})
```

Есть идеи?

1 Ответ

0 голосов
/ 18 марта 2019

Выяснил, почему:

Так же, как ошибка dom сказала «shinyapp.js: 342 Uncaught Дублирующая привязка для идентификатора table_diamond» loop цикл создает выходной dataTable с использованием того же выходного идентификатора «table_diamond».

Чтобы сделать этот выходной идентификатор динамическим, в пользовательском интерфейсе: 

table_id <- paste0('table_', c, this_cut)
dataTableOuput(outputId = table_id)

на сервере используйте двойные квадратные скобки [[]] вместо $: 

output[[table_id]] <- DT::renderDataTable({

data <-subset(diamonds, color == c) %>%
filter(cut == this_cut) %>%
as.data.frame()

datatable(data)
})

Спасибо R Номер блестящей динамической вкладки и генерация ввода

...