Flexdashboard ломается при отображении в полноэкранном режиме и в режиме браузера - PullRequest
Новая
       7

Flexdashboard ломается при отображении в полноэкранном режиме и в режиме браузера

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

У меня есть flexdashboard ниже, который генерирует диаграмму данных и графику.Как вы увидите, когда приложение изначально загружено в свернутом виде, отображается вся линейная диаграмма.Когда я пытаюсь смотреть это в полном объеме, я теряю половину строк.Вторая проблема заключается в том, что когда я открываю его в браузере, кажется, ничего не работает.Помимо сюжета я также попробовал ggplot2 с тем же результатом. 

---
title: "[School Name] Enrollment Projections for Fall 2019"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    runtime: shiny
---
```{r setup, include = FALSE}
library(flexdashboard)
library(shiny)
library(reshape2)
library(plotly)
library(tidyverse)
```
Column {.sidebar }
-------------------------------------
### Menu
```{r}
```

Row {data-height=400}
-------------------------------------
### Enrollments
```{r}
renderTable(mtcars)
```
Row {data-height=400}
-------------------------------------
### Enrollments
```{r}

year<-c("2000","2000","2001","2002","2000")
gender<-c("M","F","M","F","M")
YG<-data.frame(year,gender)

ns<-data.frame(YG %>%
                 group_by(year) %>%
                 count(gender) %>%
                 spread(gender, n) %>%
                 mutate_all(replace_na, 0))


plot_ly(ns, x = ~factor(year), y = ~M, name = 'Males', type = 'scatter', mode = 'lines',
        line = list(color = 'rgb(205, 12, 24)', width = 4)) %>%
  add_trace(y = ~F, name = 'Females', line = list(color = 'rgb(22, 96, 167)', width = 4)) %>%
  layout(title = "Day 10 Enrollments",
         xaxis = list(title = "Years"),
         yaxis = list (title = "Count"))
```
...