javascript - 为什么 Shiny 的 dateInput() 会导致键盘出现在手机中？

Question

当我在 shiny use 手机中使用 dateInput() 时，键盘会出现。

它在我的电脑上工作正常，但当我使用手机时，键盘会出现。有没有什么方法可以阻止手机键盘弹出？当我使用 selectInput() 函数时，我也发现了同样的问题。添加 selectize = FALSE 在 selectInput 中很有用。有没有其他方法可以阻止键盘在手机中弹出？ selectize = FALSE 将使移动设备中的选择变得更加困难。`

library(shiny)

ui <- fluidPage(
  dateInput(
    "date",
    "What is your brithday?",
    
  ))
server <- function(input, output, session){}
  
  shinyApp(ui=ui, server=server)

`

Answer 1

This答案建议添加 readonly属性。这可以通过 htmltools::tagAppendAttributes 或 htmltools::tagQuery 完成。

但是，我目前无法测试它:

library(shiny)
library(htmltools)

ui <- fluidPage(
  # tagAppendAttributes(dateInput(
  #   "date",
  #   "What is your brithday?",
  # ), readonly = "", .cssSelector = "input")
  
  tagQuery(dateInput(
    "date",
    "What is your brithday?",
  ))$find("input")$addAttrs(readonly = "")$allTags()
)
server <- function(input, output, session){}

shinyApp(ui=ui, server=server)