闪亮的switchInput：在不同的计算机上呈现不同的效果

Question

我用以下代码创建了一个简单的switchInput：

ui <- fluidPage(
switchInput(inputId = "somevalue", label = "Custom <br> <b> ICD10 </b>", value = FALSE,
          onLabel = "<strong>ON</strong>", offLabel = "<strong>OFF</strong>", size = "small"))


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

shinyApp(ui, server)

但是，在不同的计算机上进行测试会产生不同的结果。即使R版本是相同的，并且都使用了最新的库。

计算机1：

计算机2：

它已切断了计算机2上两个手柄的上角。我尝试使用'labelWidth'而不是使用
，但是结果保持不变。有关如何解决此错误的任何建议？