小编Spr*_*ter的帖子

我正在尝试在shinydashboard中创建一个启动或着陆页(如果需要,可以创建闪亮的页面).我的主要闪亮应用程序将有标签导航等,但登陆页面不应该.事实上,它应该完全不同,可能类似于:http://www.dataseries.org

我知道我可以将html页面添加到与ui.r和server.r脚本相同的文件夹中,但是当应用程序启动时我还没有找到引用该文件的方法.锚标记可以在那里提供链接,但我希望登录页面在调用页面时自动打开.

我可重复的代码是没有价值的,因为没有任何工作,但我还是包括它,以防它变得更容易.这是来自shinydashboard网站的样板.

ui.r

    library(shinydashboard)


    ui <- dashboardPage(

      dashboardHeader(title = "Basic dashboard"),
      ## ui.R ##

      dashboardSidebar(
        sidebarMenu(
          menuItem("Dashboard", tabName = "dashboard", icon = icon("dashboard")),
          menuItem("Widgets", tabName = "widgets", icon = icon("th"))
        )
      ),

      dashboardBody(
        tabItems(
          # First tab content
          tabItem(tabName = "dashboard",
                  fluidRow(
                    box(plotOutput("plot1", height = 250)),

                    box(
                      title = "Controls",
                      sliderInput("slider", "Number of observations:", 1, 100, 50)
                    )
                  )
          ),

          # Second tab content
          tabItem(tabName = "widgets",
                  h2("Widgets tab content")
          )
        )
      )
    ) …

我试图找到一种简单的方法来计算数据框列中的非缺失案例.我用过这个功能:

foo<- function(x) { sum(!is.na(x)) }

然后通过sapply()将其应用于数据框

stats$count <- sapply(OldExaminee, foo2, simplify=T)

虽然这很好用,但我只是不相信没有更简单的计数方法,即基本功能集中的某些东西.

有任何想法吗？