Shiny 移动设备的输入（多个=真）问题

我开发了一个仪表板，使用shiny和flexdashboard监测巴西的新冠肺炎病例。它工作正常，但在移动设备上不行（至少在某些设备上是这样）。在侧边栏上有一个

selectinput（）

，带有

multiple=TRUE

，问题是每次移动用户试图选择一个值来更新绘图时，屏幕键盘都会显示出来，并且在选择之前会重新加载整个应用程序（为了正确使用，用户需要选择状态并单击“Atualizar”）按钮更新）

我试图通过复制siderbar部分来解决这个问题，第一个部分使用

{.no mobile}

，第二个部分使用

{.mobile）

，第二个部分使用

multiple=FALSE

，第二个部分使用selectinput（）。不幸的是，它不起作用，两个部分重叠显示

我考虑了另一种方法（我不知道怎么做），使用类似于

multiple=ifelse（“是移动测试”，FALSE，TRUE）

我的问题是：有没有办法测试浏览器是否是移动的？有没有其他方法可以解决这个问题

我们将非常感谢您的帮助

应用程序链接（代码嵌入）：

Github项目：

问题行：

---

selectInput（“estado”，h3（“Estados”），choices=est_nome，selected=“圣保罗”，multiple=TRUE）

您可以在手机上试用此应用程序吗：

library(shiny)

js <- '
function(){
  $(".selectize-input input").attr("readonly", "readonly");
}
'

shinyApp(
  ui = fluidPage(
    selectizeInput("variable", "Variable:",
                   c("Cylinders" = "cyl",
                     "Transmission" = "am",
                     "Gears" = "gear"),
                   multiple = TRUE,
                   options = list(onInitialize = I(js))
    ),
    tableOutput("data")
  ),
  server = function(input, output) {
    output$data <- renderTable({
      mtcars[, c("mpg", input$variable), drop = FALSE]
    }, rownames = TRUE)
  }
)

库（闪亮）
js您是否尝试过
selectize=FALSE
？
selectize=FALSE
使非移动设备中的多选变得更加困难。它可以部分解决移动用户的问题，但不是非移动设备的理想选项。无论如何，感谢您的回复。selectize基于selectize.js，它是文本和selectInput的混合体键盘必须在手机上弹出，以供用户键入，否则只需使用标准选择输入。对于应用程序重新加载，当使用标准闪亮的应用程序时，我不存在这个问题。这与SHIYYAPPS服务器没有问题，因为我正确地使用它。这可能是FooDaskBoad的问题。考虑重新设计应用程序。用闪亮的仪表板。