Rstudio Shiny dateInput：限制在命运日

Question

正如标题所说。我想限制特定日期的下拉日历，例如每周二或每周三。

这是输入元素的标准示例：

library(shiny)
shinyApp(ui = fluidPage(
              dateInput("date", "date:", value = format(Sys.Date(),"%Y-%m-%d"))),
         server=function(input, output) {})

使用min=或max=的参数可以限制选择，例如在今天和之后的前一天。

shinyApp(ui = fluidPage(
              dateInput('date', "date:", value=format(Sys.Date(),"%Y-%m-%d"),
                        min=format(Sys.Date()-1,"%Y-%m-%d"),
                        max=format(Sys.Date()+1,"%Y-%m-%d"))),
          server=function(input, output) {})

但是如何限制特定日期的选择，例如每个星期二或每个星期二或每个月的第一个星期一？这有可能吗？