Как я могу разместить интерактивный стол с помощью презентации ioslides и пакета DT?

#r #r-markdown #dt #ioslides

Вопрос:

Я новичок в использовании опции из R Markdown, которая позволяет создавать презентации… и мне было интересно, как я могу разместить интерактивную таблицу (с помощью DT пакета) на одном слайде моей презентации.

Во-первых, я не знаю, почему цвет меняется с белого на серый… Предыдущий слайд белый, а слайд, на котором изображена таблица, серый.

изображение 1

С другой стороны, если я попытаюсь выбрать другие страницы таблицы («нажмите на цифру 6»), таблица станет больше, и я не смогу изменить или увидеть больше элементов таблицы.

изображение 2

Это и есть код:

 ---
title: "Habits"
author: "John Doe"
date: "March 22, 2005"
output:
    ioslides_presentation:
      widescreen: true

---

# In the morning

## Getting up 

- Turn off alarm
- Get out of bed

# TABLE

```{r}
library(DT)
datatable(head(mtcars, n = nrow(mtcars)), options = list(pageLength = 5)) 
```
 

Кто-нибудь знает, как это решить?

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

Заранее большое спасибо

С уважением

Ответ №1:

Причина, по которой страница серая, заключается в том, что вы используете заголовок 1 в своем заголовке (как # TABLE ). В этом шаблоне основные заголовки имеют серый фон. Проверьте самый первый слайд # In the Morning , и вы увидите , что он тоже серый.

введите описание изображения здесь

Обратите также внимание, что в этом шаблоне заголовок расположен в левом нижнем углу слайда. Это означает, что ваши ТАБЛИЦЫ заголовков находятся за вашим столом. Я предполагаю, что именно это вызывает проблемы с таблицей, когда вы пытаетесь перейти на страницу 6. Попробуйте использовать заголовок 2 для вашего заголовка, вот так:

 ---
title: "Habits"
author: "John Doe"
date: "March 22, 2005"
output:
    ioslides_presentation:
      widescreen: true

---

# In the morning

## Getting up 

- Turn off alarm
- Get out of bed

## TABLE


```{r }
library(DT)
datatable(head(mtcars, n = nrow(mtcars)), options = list(pageLength = 5)) 
```
 

Вот результат:

введите описание изображения здесь

Редактировать

Добавляю дополнительную информацию, которую вы просили, а я пропустил ранее. Мне нравится тема night из reveal.js. Вот как выглядит мой yaml.

 ---
title: ""
output: 
       
  revealjs::revealjs_presentation:
          theme: night
          center: true
---
 

Вы можете найти названия других тем по адресу https://revealjs.com/themes/.