在Shiny Dashboard通知中删除textOutput中的换行符

Question

我在Shiny仪表板中创建了一个通知，显示一个图标，然后显示最后一天注册的用户数。如果我输入虚拟文本，则图标和文本会在同一行中对齐＆＃39;。但是如果我使用renderText动态提取数字，则会在图标后面添加换行符。

这是ui代码：

dropdownMenu(type = "notifications",
         notificationItem(text = textOutput("regis")",
           icon("users"))

这是服务器代码：

output$regis <- renderText({
  count <- registrationsToday()
  paste(count,"new registrations today.",sep=" ")
  })

我试图解决它，但无法弄明白。有什么想法吗？

Answer 1

这个问题的临时解决方案发布在这里： https://github.com/rstudio/shinydashboard/issues/21

我对此进行了测试，但确实有效。

'options for Access'-> 'Design for objects' -> 'Query design' -> 'Compatibility with SQL server (ANSI 92).'

希望这有帮助！