Shiny 移动设备的输入(多个=真)问题

Shiny 移动设备的输入(多个=真)问题,shiny,flexdashboard,shinyapps,Shiny,Flexdashboard,Shinyapps,我开发了一个仪表板,使用shiny和flexdashboard监测巴西的新冠肺炎病例。它工作正常,但在移动设备上不行(至少在某些设备上是这样)。在侧边栏上有一个selectinput(),带有multiple=TRUE,问题是每次移动用户试图选择一个值来更新绘图时,屏幕键盘都会显示出来,并且在选择之前会重新加载整个应用程序(为了正确使用,用户需要选择状态并单击“Atualizar”)按钮更新) 我试图通过复制siderbar部分来解决这个问题,第一个部分使用{.no mobile},第二个部分使

我开发了一个仪表板,使用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的问题。考虑重新设计应用程序。用闪亮的仪表板。