- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
为什么我的代码不能成功运行?如何使用 sjPlot 创建一个 Shiny 的 html 表?
library(shiny)
library(sjPlot)
ui <- fluidPage(
sidebarLayout(
sidebarPanel(),
mainPanel(htmlOutput("a"))
)
)
server <- function(input, output){
output$a <- renderUI({
tab_df(iris,title="title",col.header='N',footnote='footnote')
})
}
# Run the application
shinyApp(ui = ui, server = server)
当我运行代码时,日志是“警告:如果错误:参数长度为零”。我不知道代码有什么问题。
最佳答案
问题是tab_df
似乎将其 HTML 写入文件而不是返回您想要使用的 HTML。看着sjPlot:::print.sjTable
,似乎我们可以解决这个问题
server <- function(input, output){
output$a <- renderUI({
HTML(tab_df(iris,title="title",col.header='N',footnote='footnote')$knitr)
})
}
关于r - 如何使用 sjPlot 在 R Shiny 中报告 html 表?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/62806497/
有人知道 sjp.Int 是否适用于稳健回归吗?基本绘图有效,但置信区间不起作用?错误= Error in seq.default(from = best$lmin, to = best$lmax,
我正在使用 sjPlot 的 plot_model() 绘制回归模型。我想将我的线条颜色从 sjPlot 主题(红色和蓝色线条)更改为黑白或灰度。但是,当我使用 set_theme(theme_bw(
我已经成功地使用sjplot 的plot_model 函数来绘制多项逻辑回归模型。回归包含一个结果(寻求信息,具有 3 个水平)和 2 个连续预测变量(DSA、ASA)。我还更改了 plot_mode
过去,我使用 sjPlot 包中的 sjp.glmer 来可视化广义混合效应模型的不同斜率。但是,使用新包,我无法弄清楚如何绘制各个斜率,如图中(随机)组级别的固定效应概率,位于 here 这是我认为
我已经成功地使用sjplot 的plot_model 函数来绘制多项逻辑回归模型。回归包含一个结果(寻求信息,具有 3 个水平)和 2 个连续预测变量(DSA、ASA)。我还更改了 plot_mode
我正在尝试使用 par 函数组合多个图。这些图由 sjPlot 函数 sjp.likert() 生成。 我使用 sjPlot 包本身的两个示例图并尝试将它们组合起来: likert_2 <- data
sjPlot 包 ( http://www.strengejacke.de/sjPlot ) 具有 tab_model() 函数,可以为许多模型类型创建漂亮的 html 表格。我正在尝试在 Overl
我正在尝试使用 par 函数组合多个图。这些图由 sjPlot 函数 sjp.likert() 生成。 我使用 sjPlot 包本身的两个示例图并尝试将它们组合起来: likert_2 <- data
sjPlot 包 ( http://www.strengejacke.de/sjPlot ) 具有 tab_model() 函数,可以为许多模型类型创建漂亮的 html 表格。我正在尝试在 Overl
如标题所述,我正在尝试找到一种方法,将 sjPlot::tab_model() 和其他 HTML 表格的输出编织到使用 knitr>= model >= model >= model >= m1 <-
为什么我的代码不能成功运行?如何使用 sjPlot 创建一个 Shiny 的 html 表? library(shiny) library(sjPlot) ui <- fluidPage( s
在某个循环中,我尝试使用 tab_model 并保存所有结果: keys<-c("a","b","c") for (i in keys) { formula <- as.formula(paste
我是一名优秀的程序员,十分优秀!