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

Question

我正在尝试制作一个介于 2005 年和 2040 年之间的 slider 输入。看起来很简单，对吧？通常它工作正常，但每隔一段时间我会将 slider 向左拉得太远，它会给我 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参数被接受，但我能够复制您的问题。我发现如果我试图将 slider 拖出浏览器窗口，它的值会变为 NaN。此外， slider 看起来更漂亮。我猜这与 sliderInput 的代码更改有关。功能。如果发现更改，我将查看并再次更新。
更新2
我发现了这个问题。在最新版本的 Shiny 中，他们决定使用一个用 jQuery 编写的名为 ion.rangeSlider 的范围 slider 。 .具体来说，他们使用的是 2.0.2 版本。不幸的是，那个版本 had an issue当左侧 slider 从浏览器窗口中拉出时返回 NaN(听起来很熟悉？)。这已在 ion.rangeSlider 的最新版本中得到修复。 (2.0.6)。希望下个版本的 shiny软件包包含最新版本的 ion.rangeSlider .
我知道这实际上并不能解决您的问题。但是，以下将:

找出你的 R 包安装在哪里

转到子文件夹 shiny\www\shared\ionrangeslider\css

将文件 ion.rangeSlider.skinShiny.css 复制到其他地方

删除shiny\www\shared\ionrangeslider

的内容

下载 ion.rangeSlider here 的 .zip

将 ion.rangeSlider-master 的内容复制到步骤 2 中提到的 ionrangeslider 文件夹中

将 ion.rangeSlider.skinShiny.css 移回 shiny\www\shared\ionrangeslider\css

然后只需分离并重新加载 shiny包，你应该都准备好了。