标签: flexdashboard

我正在使用flexdashboard创建报告，并且只想更改页面一部分的字体大小。

在我看来，可以通过添加CSS类来做到这一点，但是我找不到如何在R markdown代码中指定类名的方法。

有任何想法吗？

我有一个奇怪而令人沮丧的问题.当我在故事板(来自flexdashboard包)中构建情节图时,我的传奇中出现了一个非常烦人且完全不必要的滚动条.当有人试图打开或关闭其中一个点时,滚动条会抽搐,实际上无法点击该内容.只有在页面加载过程中没有立即显示带有绘图图形的选项卡时,才会显示此滚动条 - 即,如果页面加载了选定的其他选项卡.

我可以在故事板之外制作相同的图形,在RStudio中没有任何问题,或者将其保存为htmlwidget并将其加载到Chrome中.但是当我加载我的故事板时,无论是在RStudio还是在Chrome中,我都会看到这个恼人的滚动条.无论是垂直还是水平图例,滚动条都存在.

ggplotly对象没有这个问题.

这是一个不必要的滚动条的例子.ggplotly图表很好,并且情节图表有滚动条.

---
title: "Untitled"
output: 
  flexdashboard::flex_dashboard:
    storyboard: true
---

```{r setup, include=FALSE}
library(flexdashboard)
```

### ggplot

```{r}

library(plotly)

carggplot <- ggplot(mtcars, aes(hp, mpg, fill = as.factor(carb))) +
    geom_point() +
    theme_bw()

ggplotly(carggplot)
```


### plotly

```{r}
carsplot <- plot_ly(
    data = mtcars,
    x = ~hp,
    y = ~mpg,
    color = ~as.factor(carb),
    type = "scatter",
    mode = "markers"
    )

carsplot
```

我一直无法找到关于这个问题的任何文档,虽然我发现有人使用python接口发布了类似的问题.

我正在寻找一种方法来完全关闭滚动条(同时保留图例),或者滚动条的抽搐行为的一些解释.

flexdashboard是0.5,plotly是4.7.1,R是64位3.4.1,Windows 7.

我想知道是否有一种方法可以使用flexdashboard中具有闪亮运行时环境的观察者来检测页面更改？我想观察页面更改然后强制评估另一个观察者,或者,如果更容易,强制评估闪亮模块内的反应数据对象.本设计在第一页上有几个图形和内容,全部由反应dat()对象生成,然后在flexdashboard的第二页上使用相同dat()对象的传单地图.问题是我现在的观察者不会在用户第一次点击页面时触发,尽管设置为运行observeEvent(dat(), {plotting code here}).然而,在他们进行新的数据选择之后,dat()观察者会发射,从而产生期望的结果和预期的小叶图.

我想在用户第一次点击第二页时解决地图空白的问题.我试过看过RStudio的文档,但也许我错过了一些东西.我希望有人可以帮助我.Nate,提前谢谢你.

有什么方法可以在闪亮的应用程序中使Flexdashboard仪表更大吗？

我试图更改UI中的宽度和高度，但这只是在仪表板上移动它。它不会使它变大。

library(shiny)
library(flexdashboard)

fluidRow(column(
         width =  12,
           gaugeOutput('Scale', width = "800px", height = "400px")
       )
)

我正在尝试添加valueBox到在navbarpage布局中创建的闪亮应用程序，我知道阀箱是 Shinydashboard 包的一部分，但这个应用程序让我想知道我应该如何实现下面是应用程序的图像，这是实时应用程序

这是我使用以下代码进行的试验，小部件重叠并影响所有选项卡面板上的导航栏外观。

# Function for adding dependencies
library("htmltools")
addDeps <- function(x) {
  if (getOption("shiny.minified", TRUE)) {
    adminLTE_js <- "app.min.js"
    adminLTE_css <- c("AdminLTE.min.css", "_all-skins.min.css")
  } else {
    adminLTE_js <- "app.js"
    adminLTE_css <- c("AdminLTE.css", "_all-skins.css")
  }

  dashboardDeps <- list(
    htmlDependency("AdminLTE", "2.0.6",
                   c(file = system.file("AdminLTE", package = "shinydashboard")),
                   script = adminLTE_js,
                   stylesheet = adminLTE_css
    ),
    htmlDependency("shinydashboard",
                   as.character(utils::packageVersion("shinydashboard")),
                   c(file = system.file(package = "shinydashboard")),
                   script = "shinydashboard.js",
                   stylesheet = "shinydashboard.css"
    )
  )

  shinydashboard:::appendDependencies(x, dashboardDeps)
}

library("shiny")
# ui …

我正在开发一个独立的 flexdashboard 项目，我想知道当用户单击一个选项卡集中的新选项卡时是否有可能，它也会更改为第二个选项卡集中的新选项卡。

例如，当您单击下面的“图表 B1”时，我还想将第二列中的视图更改为“图表 B2”。单击“图表 A2”将变回“图表 A1”，依此类推。

---
title: "Untitled"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
---

```{r setup, include=FALSE}
library(flexdashboard)
```

Column {.tabset}
-----------------------------------------------------------------------

### Chart A1

### Chart B1

Column {.tabset}
-----------------------------------------------------------------------

### Chart A2

### Chart B2

请注意，这首先发布在 RStudio Community 上，但没有收到任何回复。

这是我的仪表板模板的外观。我有一个 {.tabset} 来显示 2020 年 12 月和 2020 年 1 月的两个不同表格。但该表格并不像生成的区域那么长，实际上只达到了一半。

我想要的输出是这样的。

但我不知道如何在不加入 {.tabset} 或创建新列的情况下添加另一个级别。

这是我的 Rmarkdown 模板

---
title: "Example Demo Dash"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
runtime: shiny 
---

# Tab 1

Column 
-----------------------------------------------------------------------

### Tab 1 Graph

# Tab 2

Column {data-width=450, .tabset} 
-----------------------------------------------------------------------

### December 2020 

### Janurary 2020

Column {data-width=200}
-----------------------------------------------------------------------

### Tab 2 Col 2 Graph 1

### Tab 2 Col 2 Graph 1

### Tab 2 Col 2 Graph 3

### Tab …

我已经构建了一个使用运行时闪亮的交互式 flexdashboard，我想创建一个用户身份验证登录模块/页面。我偶然发现了Paul Campbell 的 Shinyauth 包，它似乎可以做到这一点，但对于闪亮的仪表板，我想为我的 flexdashboard 调整此代码。我试图将它应用到我的 Rmarkdown 文档，但它只导致登录模块显示在侧边栏面板中或显示在显示屏右侧的主面板中的图形上方。无论哪种方式，该模块都无法达到阻止用户在输入用户名和密码之前使用仪表板的预期目的。下面是如何在闪亮的应用程序中使用身份验证模块的最小可重现示例。任何人都可以就如何修改 flexdashboard 的代码提出建议吗？

    library(shiny)
    library(shinyauthr)
    library(shinyjs)
    
    # dataframe that holds usernames, passwords and other user data
    user_base <- data.frame(
      user = c("user1", "user2"),
      password = c("pass1", "pass2"), 
      permissions = c("admin", "standard"),
      name = c("User One", "User Two"),
      stringsAsFactors = FALSE
    )
    
    ui <- fluidPage(
      # must turn shinyjs on
      shinyjs::useShinyjs(),
      # add logout button UI 
      div(class = "pull-right", shinyauthr::logoutUI(id = "logout")),
      # add login panel UI function
      shinyauthr::loginUI(id = …

我有一个四开 qmd 文件，其中包含以下代码来显示 valueBox。

---
title: "My Dashboard"
output: 
  flexdashboard::flex_dashboard:
  orientation: rows
---

```{r setup, include=FALSE}
library(dygraphs)
library(flexdashboard)
```

### Data

```{r}
valueBox("42", color = "yellow", icon = "fa-calendar", caption = "cases of soda")
```

代码呈现如下，未创建 valueBox。

关于如何像下面在 rmd 文件中那样渲染 valueBox 有什么想法吗？

我有以下 R 中的 flexdashbard 示例代码：

---
title: "My Dashboard"
runtime: shiny
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: fill
always_allow_html: yes
---

```{r init, include=FALSE, echo=FALSE}
gc()

```


```{r setup1, include = FALSE}
library(flexdashboard)
library(thematic)
library(ggplot2)
library(bslib)
library(shiny)
library(plotly)
library(tidyverse)
library(dplyr)
library(htmltools)

```


Home {data-icon="fa-home" .main}
=====================================   

```{r, include=FALSE}

theme_set(theme_bw(base_size = 20))

```


Row
-----------------------------------------------------------------------

### Heading 1

```{r}
valueBox(1, icon = "fa-pencil", color="success")
```

### Heading 2

```{r}

valueBox(2, icon = "fa-file-text-o", color="info")

```

### Heading 3

```{r}
valueBox(3, icon = …