Question

是否可以使用knitr幻灯片（使用xaringan自定义样式）为长函数制作垂直滚动条？我正在尝试基于前一个问题How to make vertical scrollbar appear in RMarkdown code chunks (html view)的一些选项，但不知道如何仅为长函数（高度超出框架）执行此操作。任何建议都非常受欢迎。

---
title: "title"
subtitle: "subtitle"
author: "author"
date: "2017"
output:
  xaringan::moon_reader:
    lib_dir: libs
    css: ["default", "style.css"]
    nature:
      highlightStyle: zenburn
      highlightLines: true
      countIncrementalSlides: false
---

```{r , echo=FALSE, include=FALSE}
library(knitr)
opts_chunk$set(fig.align='center', message=TRUE, error=TRUE, warning=TRUE, tidy=TRUE, comment = "##", echo = TRUE, dev='svg')
options(width=65)
```

```{r}
fu <- function(x){
  x
  x
  x
  x
  x
  x
  x
  x
  x
  x
  x
  x
  x
  x
  x
  x
  x
  x
}
```

Answer 1

我不是CSS的专家，所以不能保证这是一个强大的解决方案，但是在代码块的样式中添加max-height和overflow-y似乎运行良好。根据需要调整最大高度，200px相当短，仅用于演示它的工作原理：

<style>
pre.sourceCode {
    max-height: 200px;
    overflow-y: auto;
}
</style>

我不确定代码块的类名是否会以不同的输出格式更改，我使用的是slidy_presentation，因为我没有安装渲染器，因此您可能需要检查类在你的输出。

Answer 2

您是否尝试过this answer

的解决方案

.scrollable-slide {
    height: 800px;
    overflow-y: auto !important;
}

Answer 3

在style.css中，创建一个类，将y溢出定义为滚动和div的所需高度（请参阅此SO answer作为参考）

.pre {
  height: 10pc;
  overflow-y: scroll;
}

然后将该css类应用于代码块：

.pre[
```{r}
fu <- function(x){
  x
  x
  x
  x
  x
  x
  x
  x
  x
  x
  x
  x
  x
  x
  x
  x
  x
  x
}
```
]

垂直滚动条，用于编织幻灯片的长功能

3 个答案: