如何更改 Shiny 中的滑块文本？

Question

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

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

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

有没有可以更改滑块文本的选项？ f.E“2020 年第 1 周”，上周 (75) 将是“2021 年第 22 周”

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

Answer 1

你可以给滑块 Date class objects for 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"
)

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

如何更改 Shiny 中的滑块文本？

How can I change the Slider text in Shiny?

r

slider

shiny