r - 如何更改 Shiny 中的 Slider 文本？

Question

我有一个关于闪亮滑块的简单问题。

我得到了一个 csv 文件，其中包含一年中的周数以及一些其他数据，这些数据可以通过绘图进行可视化。所以在 Y 线上我得到了数据，在 X 线上我得到了周数。

我提供了一个选项，您可以使用滑块（fE 第 1 周 - 75 周）自己选择周的范围，现在我的问题来了。一年只有 53 周，所以“75”周是指下一年的“22”周。但我无法在滑块上看到它。

是否有一个选项，我可以更改滑块文本？fE“2020 年第 1 周”和上周（75 周）将是“2021 年第 22 周”

这是我的滑块的图像 - 我想要更改的是滑块上显示的文本：

标签： rshinyslider

Answer 1

您可以Date为 min/max/value 提供滑块类对象并设置step = 7每个步骤为一周，并指定timeFormat = "Week %U %Y"以获得所需的格式。例如

sliderInput(
  week_input,
  "Select week range",
  min = as.Date("2020-01-01"),
  max = as.Date("2021-06-01"),
  value = as.Date(c("2021-01-01", "2021-03-01")),
  step = 7,
  timeFormat = "Week %U %Y"
)

当然，您需要修改其余代码以期望 aDate作为滑块的输入。