Тепловая карта в гибкой панели rmarkdown - PullRequest
Новая
       75

Тепловая карта в гибкой панели rmarkdown

1 голос
/ 03 мая 2019

У меня очень специфическая проблема с плотно нанесенным объектом тепловой карты, вставленным в закладку flexdashboard с двумя вкладками.Приведенное ниже MRE отображает неперехваченную ошибку изменения размера javascript по оси.Ошибка приводит к тому, что карта данных и тепловая карта не отображаются.Тем не менее, если тепловая карта будет перемещена на одну и ту же вкладку, они будут отображаться без проблем.Самой сумасшедшей частью является то, что жесткое обновление html-документа (ctrl + f5 в браузере) с открытой второй вкладкой приводит к исчезновению ошибки javascript и все отрисовывается очень хорошо.У меня очень трудное время изолировать эту проблему от сюжета R API или пакета R htmlwidgets.Есть идеи? 

---
title: "`r paste0('Test')`"
date: "`r Sys.Date()`"
output: 
  flexdashboard::flex_dashboard:
    vertical_layout: scroll
    orientation: rows
    self_contained: false
---

```{r setup, include=FALSE}
library(flexdashboard)
library(reshape2)
library(dplyr)
library(ggplot2)
library(plotly)
```



Tab1
===================================================

Row
-----------------------------------------------------------------------

### A scatter

```{r fig1}
df = data.frame(x = 1:5, y = 1:5, z = 1:5)
plot_ly(df, x = ~x, y = ~y, type = "scatter")
```

Row
-----------------------------------------------------------------------

### A table

```{r table1}
DT::datatable(df,
                filter="top",extensions = 'Buttons',
  options = list(
      dom = 'Bfrtip',
      buttons = c('copy', 'csv', 'excel'),
      pagelength=50,
      autoWidth=T,
      deferRender = T
  )
)
```

Tab2 
===================================================

Row
-----------------------------------------------------------------------

### A heatmap

```{r fig2}
plot_ly(df, x = ~x, y = ~y, z = ~z, type = "heatmap")
```
...