R Shiny 中的 sliderInput 出现问题 - 获取 NaN

Question

我正在尝试制作一个介于 2005 年和 2040 年之间的滑块输入。看起来很简单，对吧？通常它工作正常，但每隔一段时间我会将滑块向左拉得太远，它会给我 NaN，这往往会导致崩溃。我试图设置我的其余代码，使其没有问题，但它仍然困扰着我。我已经在互联网上搜索了解释，但到目前为止还没有。这是我的 ui.R：

library(shiny)

shinyUI(fluidPage(
  titlePanel("Test"),

  sidebarLayout(
  sidebarPanel(

    selectInput("over", "Indicator", c("Indicator 1", "Indicator 2"), selected="Trade"),

    selectInput("type", "Type", c("Discrete", "Continuous")),


    # Nothing particularly unusual here...   
    sliderInput("year", "Year", min=2005, max=2040, value=2005, animate=animationOptions(interval=1500), sep=""),

    checkboxInput("table", "Show Table")

    , width=3),

  mainPanel(    
    uiOutput("plot"),

    uiOutput("showtable")

    , width=9)
  )
))

Answer 1

我认为问题可能出在您的sep 参数上。那应该是step 吗？如果是这样，它需要是一个数字或NULL。我将该行更改为以下内容：

sliderInput("year", "Year", min=2005, max=2040, value=2005, animate=animationOptions(interval=1500), step=1),

效果很好。至少，我能够毫无问题地向左拖动。另一方面，我没有你的server.R 文件，所以如果问题存在，或者文件之间有交互，我不会看到它。

更新：

问题在于您的 Shiny 版本。我发现这一点是因为当我尝试运行该应用程序时，sep 参数是一个“未使用的参数”。我最初认为这是一个错字，但您的确定性（在您最近的评论中）使我查看了sliderInput 的文档。你完全正确，sep 是一个有效参数。我认为这意味着我的 shiny 软件包版本已过时，因此我对其进行了更新。更新后，sep 参数不仅被接受，而且我能够复制您的问题。我发现如果我试图将滑块拖出浏览器窗口，它的值会变为 NaN。此外，滑块看起来更漂亮。我猜这与 sliderInput 函数的代码更改有关。如果我发现更改，我会查看并再次更新。

更新2

我发现了问题。在最新版本的 Shiny 中，他们决定使用一个用 jQuery 编写的名为 ion.rangeSlider 的范围滑块。具体来说，他们使用的是 2.0.2 版本。不幸的是，那个版本had an issue 在左滑块被拉出浏览器窗口时返回了 NaN（听起来很熟悉？）。这已在最新版本的ion.rangeSlider (2.0.6) 中得到修复。我希望shiny 软件包的下一个版本包含最新版本的ion.rangeSlider。

我知道这实际上并不能解决您的问题。但是，以下将：

1. 找出 R 包的安装位置
2. 转到子文件夹 shiny\www\shared\ionrangeslider\css
3. 将文件 ion.rangeSlider.skinShiny.css 复制到其他地方
4. 删除shiny\www\shared\ionrangeslider的内容
5. 下载ion.rangeSliderhere的.zip
6. 将 ion.rangeSlider-master 的内容复制到步骤 2 中提到的 ionrangeslider 文件夹中
7. 将 ion.rangeSlider.skinShiny.css 移回 shiny\www\shared\ionrangeslider\css

然后只需分离并重新加载shiny 包，您就应该准备就绪。