闪亮的ioslides selectInput滚动条失败

Question

我需要有两个连续幻灯片使用类似的selectInputs。当我这样做时，第一张幻灯片上的滚动条失败。我使用＆＃34; selectize = FALSE＆＃34;以便用户可以取消选择选项。当滚动条只有一张幻灯片时，滚动条就可以正常工作。

我做错了什么，或者这是一个错误？任何帮助将不胜感激！

---
title: "Scrollbar Failure Demo"
author: "KM"
date: "May 20, 2016"
runtime: shiny
output: ioslides_presentation 
---

## Slide1
```{r Slide1, echo=FALSE}
fulllist <- c(1,2,3,4,5,6,7,8,9,10)
inputPanel(
    selectInput("Option1", label="Pick Many", multiple=TRUE, selectize=FALSE,
            choices=fulllist, selected=fulllist))
renderPlot({plot(input$Option1)
title(main="Scrollbar Fails on Slide 1")})
```

## Slide2
```{r Slide2, echo=FALSE}
inputPanel(
    selectInput("Option2", label="Pick Many", multiple=TRUE, selectize=FALSE,
            choices=fulllist, selected=fulllist))
renderPlot({plot(input$Option2)
    title(main="Scrollbar Works on Slide 2")})
```