如何减小 R 输出的大小以适应单个滑动幻灯片?

How can I reduce the size of R output to fit into a single slidify slide?

我已经开始使用 slidify 为课程创建演示文稿。但是,当我打印 GLM 的输出时,它并不完全适合页面,它在底部被切断。我该如何修改 slidify 来解决这个问题?这是问题代码:

icecream <- data.frame(
  temp=c(11.9, 14.2, 15.2, 16.4, 17.2, 18.1, 
         18.5, 19.4, 22.1, 22.6, 23.4, 25.1),
  units=c(185L, 215L, 332L, 325L, 408L, 421L, 
          406L, 412L, 522L, 445L, 544L, 614L)
  )

model1 <- glm(units ~ temp, data=icecream, 
              family=gaussian(link="identity"))

我在这里找到了答案https://github.com/ramnathv/slidify/issues/158

我从 libraries/frameworks/io2012/css 复制了 slidify.css 到 assets/css。这里我把字号从100%改成60%如下:

code {
  font-size: 60%;
  font-family: "Source Code Pro", monospace;
  color: darkred;
}