input - 闪亮的ioslides selectInput滚动条失败

Question

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

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

---
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")})
```