小编RYO*_* Hu的帖子

我试着参考下面的答案,但徽标位于主面板内但不是标题面板......任何解决方案？

• 将公司徽标添加到ShinyDashboard标题中
• 在闪亮的应用程序中嵌入图像
• 使用Rstudio和knitr为每个页面添加公司徽标[复制]

我看到随机变量的分布在主面板的标题内有一个徽标,但无法在shinyDashboard标题中工作.以下是公司徽标标题的编码:

headerPanel(
        HTML('Distributions of Random Variables v4
            <a href="http://snap.uaf.edu" target="_blank"><img align="right" alt="SNAP Logo" src="./img/SNAP_acronym_100px.png" /></a>'
        ), "Distributions of Random Variables"
    ),

下面是我添加公司徽标的编码,源代码在这里.任何的想法？

dbHeader <- dashboardHeader(title = 'Reporting Dashboard',
            dropdownMenuOutput('messageMenu'),
            dropdownMenu(type = 'notifications',
                         notificationItem(text = '5 new users today', icon('users')),
                         notificationItem(text = '12 items delivered', 
                                          icon('truck'), status = 'success'),
                         notificationItem(text = 'Server load at 86%', 
                                          icon = icon('exclamation-triangle'), 
                                          status = 'warning')),
            dropdownMenu(type = 'tasks',
                         badgeStatus = 'success',
                         taskItem(value = 90, color = 'green', …

我尝试应用数据表选项和扩展来绘制表格.它的工作如果遵循引用但ColVis在我合并/应用多个扩展时不起作用.任何的想法？

df %>% 
  datatable(., caption="Table 3.4.1 : Partial Matching Teams' Name.", 
            extensions=list('ColReorder','ColVis', list(FixedColumns=list(leftColumns=2))), 
            options=list(autoWidth=TRUE,
                         dom='C<"clear">lfrtip',
                         colVis=list(exclude=c(0, 1),
                         activate='mouseover'),
            colReorder=list(realtime=TRUE),
            scrollX=TRUE,
            scrollCollapse=TRUE))