如何在闪亮仪表板标题上方添加HTML菜单栏

Question

如果我只运行HTML文件，我的HTML菜单栏看起来如下（在菜单导航中使用搜索栏和箭头标记）

当我在Shiny Dashboard标题上方包含HTML菜单栏时，它不会在菜单导航中显示搜索栏和箭头标记。

如何解决此问题。

Answer 1

你可以这样做：

df <- data.frame(V1=c(NA, 1:10), V2=c(1:10, NA), V3=c(1:4, NA, 5:10))
naRows <- apply(df, 1, FUN=function(x) length(which(is.na(x)))) 
naRows <- which(naRows > 0)
naRows