如何更改 Shiny 中的 Slider 文本？

问题描述

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

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

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

是否可以选择更改滑块文本？ f.E“2020 年第 1 周”和上周 (75) 将是“2021 年第 22 周”

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

解决方法

您可以为滑块提供 Date 类对象的最小值/最大值/值，并设置 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"
)

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