如何减小R输出的大小以适应单个滑动滑块？

Question

我开始使用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"))

Answer 1

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

我将slidify.css从libraries / frameworks / io2012 / css复制到assets / css。在这里，我将字体大小从100％更改为60％，如下所示：

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