lm.summary的闪亮格式

Question

我正在尝试使用renderPrint在模型页面中包含模型摘要;代码如下：

# server.R
shinyServer( function(input, output) {
  output$modelSummary <- renderPrint(
    summary(model())
  )
})

# ui.R
fluidPage(
  sidebarLayout(
    mainPanel(textOutput(outputId = "modelSummary"))
  )
)

model()是存储在反应变量中的非常简单的lm模型。

输出看起来（在我的OS X和Win机器上）如下：

我看到两个问题：

• 没有行结束
• 星星旁边的标签

如何获得与R控制台相同的干净打印输出？

我跑R 3.2.2并且闪亮0.12.2。