闪亮的滑块输入从高到低的值

Question

我想创建一个Shiny slideInput，范围从100到0，因此从左到右递减。但是，当我将100作为最小值插入而将0作为最大值插入时，两个标签都变为100，并且滑块无法使用。将step参数从1更改为-1并没有帮助。请参阅下面的MWE。

 library(shiny)

ui <- fluidPage(

  sliderInput('LO', 'label', min = 100, max 0, value = 67, step = 1)

  )

server <- function(input, output, session) {
  }

shinyApp(ui = ui, server = server)