Результаты Rmarkdown Flexdashboard переключаются при каждом запуске - PullRequest
Новая
       41

Результаты Rmarkdown Flexdashboard переключаются при каждом запуске

0 голосов
/ 28 апреля 2020

Я не привожу здесь воспроизводимый пример, потому что мой код немного громоздок и включает в себя некоторые проприетарные данные, но я просто пытаюсь понять, что может происходить в этой ситуации.

Я создал панель инструментов .Rmd в Rstudio для данных c, и каждый раз, когда я запускаю ее, она переключается между двумя различными выходными данными. Предполагается, что будет создано 2 страницы, каждая с 2 сюжетные графики и текст.

Когда я нажму трикотаж, я получу следующие результаты:

Страница 1:
График 1_a: работает
График 2_a: работает
текст: работает

Страница 2:
График 1_b: работает
График 2_a: пытается напечатать точно то же самое, но он сломан!
текст: работает

Затем, если я снова нажму вязать, я Вы получите:

Страница 1:
График 1_a: работы
График 2_a: сломанная вещь, которая была на странице 2 раньше!
текст: работы

Страница 2:
График 1_b: пусто
График 2_a: пусто
текст: работает

Каждый раз, когда я нажимаю вязать, я думаю, что он переключается назад и вперед из этих двух результатов, хотя у меня могли быть несколько повторов. Я немного ошеломлен тем, что может вызвать это. Я читал кое-что о том, как Rmarkdown выполняет кеширование, и, возможно, это просто у меня над головой, но я не совсем понимаю, как это могло бы это объяснить. С чего мне начать устранение неполадок? Какие вещи я должен посмотреть или попробовать? У меня никогда не было ничего подобного в кодировании.

Вот некоторый скелетный код, на всякий случай, если он полезен (так как разметка - это язык SO, я поставил перед своим 4 пробела в своем коде, чтобы сделать так, чтобы он отображался здесь как код) Опять же, я не пытаюсь дать реальный воспроизводимый ответ здесь, я в основном спрашиваю о том, что я мог бы посмотреть на ситуацию, или что может вызвать эту ситуацию в целом. 

---
title: "title"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
---

```{r setup, include=FALSE}

library(data.table)
library(lubridate)
library(plotly)

analysis_time <- ymd_hms(paste('2019','02', '22', '22', '00', '00'), tz = 'America/New_York')

data_5 <- readRDS('intermed/data_5')

analyze_time_function <- function(analysis_time, function_data = data_5) {
  #do stuff to produce graphs
  list(graph1, graph2, graph3, graph4, information_table)
}

graph_list <- analyze_time_function(analysis_time)

    ```

Page 1
=====================================  

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

### Chart 1a

```{r}
graph_list <- analyze_time_function(analysis_time)

graph_list[[2]] %>% 
  layout(title = "graph title...")


    ```

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

### Chart 2a

```{r}

graph_list[[1]] %>% 
  layout(title = "graph title...")


    ```

### text_a

```{r}
#print the information
graph_list[[5]]

     ```

Page 2
=====================================  

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

### Chart 1b

```{r}

graph_list[[4]] %>% 
  layout(title = "graph title")


     ```

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

### Chart 2a

```{r}

graph_list[[1]] %>% 
  layout(title = "graph title...")


     ```

### text_b

```{r}
print('this is where stuff goes that we want to print')
...