在 R Shiny 中的 sliderInput 上更改刻度的刻度标签答案

【问题标题】：Change scale's tick mark labels on sliderInput in R Shiny在 R Shiny 中的 sliderInput 上更改刻度的刻度标签
【发布时间】：2018-02-18 14:49:22
【问题描述】：

这是我的网络应用程序的样子：

但是，我不希望看到随机间隔（45,001、90,001 等）的刻度线。很简单，它看起来很丑。如何更改我的代码，使其标记为 1、50k、100k、150k...400k、428,036？

这是我当前的代码：

  sliderInput(inputId = "CR_num",
              label = "Please choose how many case reports you would like our tool to analyze.",
              value = "20000",
              step = 5000,
              min = 1,
              max = 428036)

我认为step 参数只允许用户在该间隔内从刻度中选择值...它不会更改标签。

谢谢。

【问题讨论】：

也许this 可能有用

标签： r user-interface shiny scale labels

【解决方案1】：

我可以通过使用shinyWidgets 库来做到这一点。基本上，创建一个您想要的步长值列表并调用sliderTextInput() 函数。

numlist <- prettyNum(c(1, seq(5000, (floor(428036/5000)*5000), 5000), 428036), big.mark = ",")

slider <- sliderTextInput(
  inputId = "CR_num",
  label = "Please choose how many case reports you would like our tool to analyze.",
  choices = numlist,
  selected ="20,000",
  grid = FALSE, dragRange = FALSE)

现在唯一的选项是您选择的选项：

现在唯一的问题是值是字符串，所以有很多刻度线。所以，我删除了它们。

【讨论】：