标签: shinydashboard

冒着使用mods"太宽泛的问题"锤子的风险,我想问一下,鉴于大量的交互式R Shiny工具和软件包的出现,你什么时候使用哪一个？

1. 闪亮 - 对我来说,只有你的项目需要从闪亮的服务器运行,但似乎是最好的选择.

2. shinydashboard - 闪亮,但有很好的价值框标注.

3. flexdashboard - 在Rmd中写出来.什么让你直接闪亮没有？也许,如果您愿意传递数据,可以通过电子邮件发送给客户吗？我一直在玩,flexdashboard但它无法使用数据表(库(DT))让我觉得它需要更多的迭代.

看看其他答案,我并不是唯一一个问这个问题的人.

创作者在那里提供了很多画廊来展示他们的包裹/进场,但是你怎么知道要走哪条路？

使用一个优于另一个的明显优势是什么？

我正在创建一个Shiny仪表板应用程序,其中仪表板主体应该显示一些地图.到目前为止,没有问题让地图扩展到整个身体的宽度,但它不知何故不愿意调整到整个高度.

传单本身已经设置为覆盖100%的高度,但它不能解决问题.只要我对leafletOutput使用height属性,传单对象就不会显示,而且我留下了一个空框.

代码可以在下面找到:

library(shinydashboard)
library(leaflet)

ui <- dashboardPage(
  dashboardHeader(title = "Basic dashboard"),
  dashboardSidebar(
    sidebarMenu(
      menuItem(
        "Maps", 
        tabName = "maps", 
        icon = icon("globe"),
        menuSubItem("Watersheds", tabName = "m_water", icon = icon("map")),
        menuSubItem("Population", tabName = "m_pop", icon = icon("map"))
      ),
      menuItem(
        "Charts", 
        tabName = "charts", 
        icon = icon("bar-chart"),
        menuSubItem("Watersheds", tabName = "c_water", icon = icon("area-chart")),
        menuSubItem("Population", tabName = "c_pop", icon = icon("area-chart"))
      )
    )
  ),
  dashboardBody(
    tabItems(
      tabItem(
        tabName = "m_water",
        box(
          title = "Baltic catchment areas",
          collapsible = TRUE,
          width = "100%", …

所以只是好奇,有没有办法在ShinyDashboard的标题中添加公司徽标？正如我正在查看文档时,它描述了更改CSS中的"徽标",这只是配置左上角的内容,尽管据我所知,我想保留我的标题.

我没有使用下拉菜单,因此我想在红色框所在的右上角添加我的公司徽标.

有没有人知道如何用Shinydashboard完成这项工作？谢谢.

在Web浏览器中,您将参数传递给网站

www.mysite.com/?parameter=1

我有一个闪亮的应用程序,我想在计算中使用传入网站的参数作为输入.那么可以像www.mysite.com/?parameter=1这样做,然后使用input!参数吗？

你能提供任何示例代码或链接吗？

谢谢

我在下面有一些数据,我用它来制作R闪亮的圆环图,其中date是一个角色.我希望能够选择我想要查看其分数的电子邮件,但是在第二个下拉选项中只能看到该电子邮件具有活动的日期.

例如,如果我在第一个下拉列表中选择email = xxxx,我希望在日期选择字段中只看到"无活动".而对于email = yyyy,我希望只看到6/17/14,6/18/14,16/19/14作为选择.

我在ui中尝试过一种嵌套的子集.例:

> ui <- shinyUI(fluidPage(
+   sidebarLayout(
+     sidebarPanel(
+       selectInput('Select', 'Customer:', choices = unique(as.character(dat5$email))),
+       selectInput("User", "Date:", choices = dat5[dat5$email==input$Select,date])
+     ),
+     mainPanel(plotOutput("distPlot"))
+   )
+ ))

但这仍然显示所有可能的日期选择

数据

email   date        variable    value   ymin    ymax
xxxx    no activity e_score         0   0       0
xxxx    no activity diff            1   0       1
yyyy    6/17/14     e_score    0.7472   0       0.7472
yyyy    6/17/14     diff       0.2528   0.7472  1
yyyy    6/18/14     e_score    0.373    0       0.373
yyyy    6/18/14     diff …

我有下面的代码来显示内联(在同一行)闪亮的小部件

div(style="display:inline-block; width: 150px;height: 75px;",selectInput("ddllgra", "Function:",c('mean','median','sd','count','min','max'), selected='mean')),
div(style="display:inline-block; width: 150px;height: 75px;",textInput(inputId="xlimitsmax", label="x-max", value = 0.5))

它在UI中出现,但不是以相同的行顺序出现.一个进入上方,另一个进入下方一条线.

有没有办法纠正这种错位？

(来自闪亮的谷歌团体的交叉帖子)

有人能指出我必须修改闪亮仪表板颜色的标签名称吗？

修改自http://rstudio.github.io/shinydashboard/appearance.html#long-titles, 这会将我的仪表板的左上角更改为橙色

tags$head(tags$style(HTML('
        .skin-blue .main-header .logo {
                              background-color: #f4b943;
                              }
                              .skin-blue .main-header .logo:hover {
                              background-color: #f4b943;
                              }
                              ')))

我不清楚如何将标题和侧边栏的其余部分更改为橙色,以及当选择/突出显示"SideBarMenu"上的项目时如何更改颜色.

我从数据库初始加载数据server.R需要几秒钟.在此之前,显示的页面会失真(选择框中的数据错误,框的奇怪位置,见下文).

我希望在数据完全加载之前显示不同的页面(或至少在我的第一个显示的选项卡中显示不同的内容).

我想过做某种conditionalPanel使用基于专用的全局变量(initial_loading_done)的条件,但无论我试着放置conditionalPanel没有奏效.

这是我的UI.R的结构:

shinyUI(

  dashboardPage(
    dashboardHeader(title = "Title"),
    dashboardSidebar(
       sidebarMenu(
           menuItem("Tab1", tabName = "Tab1",icon = icon("dashboard")),
           menuItem("Tab2", tabName = "Tab2",  icon = icon("bar-chart-o"))
       )
    ),
    dashboardBody(
       includeCSS("custom_css.css"),
       tabItems(
           tabItem(tabName = "Tab1", 
                   fluidRow(<content>),
                   mainPanel(
                      fluidRow(<content>)
                   )
           ),
           tabItem(tabName = "Tab2",
                  fluidRow(<content>),
                  mainPanel(
                      dataTableOutput('my_data_table')  
                  )
           )
       )
    )
 )
)

我有一个功能强大的应用程序,使用该shinydashboard包.

新功能需要特定于用户的行为(例如,为不同的用户名使用不同的数据集).所以我打算

1. 显示登录表单
2. 如果成功LoggedIn,true则验证凭据并设置无效值
3. 设置dashboardPage为尽快显示实际LoggedIn值TRUE

我的方法基于这个应用程序,它renderUI 根据无功值决定显示哪个元素.

以下简化示例应该在单击后更改显示的UI元素actionButton.源之间的唯一区别是示例1(按预期工作)使用a fixedPage,而示例2(不工作 - 单击按钮不切换ui2)使用a dashboardPage.

工作实例

library(shiny)

ui1 <- fixedPage(actionButton("btn_login", "Login"))
ui2 <- fixedPage(sliderInput("slider", "slider", 3, 2, 2))
ui <- uiOutput("ui")

server <- function(input, output, session) {
  state <- reactiveValues(LoggedIn = FALSE)
  output$ui <- renderUI({if (!state$LoggedIn) ui1 else ui2})

  observeEvent(input$btn_login, {
    state$LoggedIn = TRUE
  })
}

shinyApp(ui, server)

故障的例子

library(shiny)
library(shinydashboard)

ui1 <- …

我已经在shinyapps.io中部署了一个应用程序并且工作正常.

我运行的应用程序只有5分钟,但当我检查指标时,它显示运行时间约为0.7小时.我发现有一个15分钟的默认空闲时间,我已经改为5分钟(最小).我还注意到,即使在关闭闪亮应用程序的浏览器窗口后,它仍然显示应用程序在我的仪表板中运行.

我假设应用程序在浏览器窗口关闭时不会停止运行,只有在满足空闲时间条件时它才会停止.

有没有办法在浏览器窗口关闭时停止闪亮的应用程序？以下代码是否适用于此实例？

session$onSessionEnded(function() {
    stopApp()
  })