使用Cat将换行符插入文本输出中
牙买加的
我正在尝试使用cat和\n在一些文本输出中插入一些换行符shiny。
这是我ui.R和的相关部分server.R。
假设我想获得t检验的结果，并为't'，'df'和'p-value'单独添加一行
我正在使用Shinydashboard布局。
样本数据
Group_A <- 1:13
Group_B <- 8:19
ui
box(title = "T-test results:", status = "primary", textOutput("text3"), width=3)
服务器
output$text3 <- renderPrint({
obj <- t.test(Group_A, Group_B)
cat("t = ", round(obj[[3]],3), "\n, df = ", round(obj[[2]],3), "\n, p-value = ", round(obj[[3]],5))
})
下图显示了此输出：
如您所见，输出在屏幕上从左到右以逗号分隔。因为我要添加许多结果，所以我希望它们在屏幕上自上而下在每个值之后加一个换行符。
有谁知道该怎么做shiny？
裁员
这是使用renderUI和的解决方案htmlOutput
library(shiny)
Group_A <- 1:13
Group_B <- 8:19
runApp(
list(
ui = fluidPage(
htmlOutput("text3")
),
server = function(input, output){
output$text3 <- renderUI({
obj <- t.test(Group_A, Group_B)
HTML(
paste0("t = ", round(obj[[3]],3), '<br/>',
"df = ", round(obj[[2]],3), '<br/>',
"p-value = ", round(obj[[3]],5))
)
})
}))
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
编辑于
相关文章
TOP 榜单
- 1
Linux的官方Adobe Flash存储库是否已过时？
- 2
用日期数据透视表和日期顺序查询
- 3
应用发明者仅从列表中选择一个随机项一次
- 4
Java Eclipse中的错误13，如何解决？
- 5
在Windows 7中无法删除文件（2）
- 6
在 Python 2.7 中。如何从文件中读取特定文本并分配给变量
- 7
套接字无法检测到断开连接
- 8
带有错误“ where”条件的查询如何返回结果？
- 9
有什么解决方案可以将android设备用作Cast Receiver？
- 10
Mac OS X更新后的GRUB 2问题
- 11
ggplot：对齐多个分面图-所有大小不同的分面
- 12
验证REST API参数
- 13
如何从视图一次更新多行（ASP.NET - Core）
- 14
尝试反复更改屏幕上按钮的位置 - kotlin android studio
- 15
计算数据帧中每行的NA
- 16
检索角度选择div的当前值
- 17
离子动态工具栏背景色
- 18
UITableView的项目向下滚动后更改颜色，然后快速备份
- 19
VB.net将2条特定行导出到DataGridView
- 20
蓝屏死机没有修复解决方案
- 21
通过 Git 在运行 Jenkins 作业时获取 ClassNotFoundException
我来说两句