标签: flexdashboard

我正在以故事板格式构建R FlexDashboard.我想在一些故事板页面上显示多个图表,包括一系列使用串扰的链接图.但是,当我尝试在页面上显示多个绘图或使用bscols()函数时,页面看起来都搞砸了.R FlexDashboard的故事板格式是否允许多个绘图？这是一个例子:

---
title: "Error_example"
output: 
  flexdashboard::flex_dashboard:
    storyboard: true
    theme: bootstrap
---

###Example: Why can't won't the datatable show up below the plot in this storyboard?

```{r}
library(plotly)
library(DT)

plot1<-plot_ly(data=diamonds,x=~carat,y=~price)
table1<-datatable(diamonds)

plot1
table1

我的代码中有以下代码test.Rmd。

---
title: "Test Application"
runtime: shiny
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: fill
---

sidebar {.sidebar}
==========================

Controllers
-----------------------
```{r}
actionButton("clickMe", label = "Click Me", class = "btn btn-lg btn-primary")
```

Page1
========================

Page2
=======================

最初，我的应用程序位于第1页上。我想通过单击按钮将我的应用程序带至第2页clickMe。请在这件事上给予我帮助..！

我正在尝试在 Flexdashboard 文档中使用 Shiny 制作反应式 selectInput。

1. 我的第一个selectInput选择是海洋公园的区域类型。

   selectInput("Zone", label = "Marine Park Zoning:",
             choices = c("All", levels(EoTR$MarineParkZone)), selected = "All")
   

   Run Code Online (Sandbox Code Playgroud)

2. 然后，我使用此输入创建一个反应式数据框，其中仅包含步骤 1 中选择的区域。

   zone.choices = reactive({
     if (input$Zone=="All"){
     select(EoTR, ReefName, MarineParkZone, MarineParkMgmtSection)
     }else{
     select(EoTR, ReefName, MarineParkZone, MarineParkMgmtSection)%>%
     filter(MarineParkZone==input$Zone)}
   })
   

   Run Code Online (Sandbox Code Playgroud)

3. 然后我尝试使用这个反应式数据框来定义我的下一个选择selectInput

   reactive({
   selectInput("Reef", label = "Priority Reef:",
           choices = zone.choices()$ReefName, selected = "Arlington Reef (16-064)")
   })
   

   Run Code Online (Sandbox Code Playgroud)

当我运行该文档时，我的第二个输入显示一堆代码而不是选择菜单，因此基于该选择器的所有进程都会失败。

下面是一些可以重现该问题的代码

---
title: "Untitled"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
runtime: shiny 
---
```{r}
library(flexdashboard)
library(dplyr)

EoTR = data.frame(ReefName=c("Reef1", "Reef2", "Reef3", …

我正在R中创建一个Flexdashboard。我希望该仪表板既包含表又包含一系列可视化效果，这些可视化效果可通过输入进行过滤。

由于我需要在本地交付仪表板（没有在后台运行服务器），因此我无法使用Shiny，因此我依赖串扰。

我知道相声包在前端提供的功能有限。例如，文档说您不能聚合SharedData对象。

尽管如此，我不清楚我是否可以使用相同的输入来过滤两个不同的数据帧。

例如，假设我有：

1. 数据框一：包含原始数据

   df1 <-structure（list（owner = structure（c（1L，2L，2L，2L，2L），.Label = c（“ John”，“ Mark”），class =“ factor”），hp = c（250 ，120，250，100，110），car =结构（c（2L，2L，2L，1L，1L），.Label = c（“ benz”，“ bmw”），class =“ factor”），id =结构（1：5，.Label = c（“ car1”，“ car2”，“ car3”，“ car4”，“ car5”），class =“ factor”）），.Names = c（“ owner”，“ hp”，“ car”，“ id”），row.names = c（NA，-5L），class =“ data.frame”）

2. Datafrane 2：包含汇总数据

   df2 <-structure（list（car = structure（c（1L，2L，1L，2L），.Label = c（“ benz”，

   • “ bmw”），类=“ factor”），所有者=结构（c（1L，1L，2L，2L
   • ）.Label = c（“ John”，“ Mark”），class =“ factor”），freq = c（0L，
   • 1L，2L，2L）），.names = c（“ car”，“ owner”，“ freq”），row.names = c（NA，
   • -4L），类=“ data.frame”）

这两个数据框包含 …

在我的 flexdashboard 中，我使用“plotly”库来绘制图表。当数据刷新时，条形尺寸会减小。当时，当我单击“自动缩放”选项时，它工作正常。我的问题是我们可以通过plotly.r代码中的任何选项自动启用自动缩放吗？

这个错误有些奇怪。有时，带有 r 块的相同 rmd 文件运行不会出现问题，并且 knit 在“unnamed-chunk-”之后分配序列号，但有时 knit 会报告错误。

我找不到任何方法来确定该过程在什么情况下运行顺利以及何时产生错误。rmd 文件中的所有 r 块都没有名称/标签。

下面是命令日志，以防一切顺利，并且非标签块给出了序列号

outfile = c(outfile, knit("File1.rmd"))    
processing file: File1.Rmd

  |.....                                                            |   8%
  ordinary text without R code

  |...........                                                      |  17%
label: unnamed-chunk-1 (with options) 
List of 1
 $ echo: logi FALSE

  |................                                                 |  25%
   inline R code fragments

  |......................                                           |  33%
label: unnamed-chunk-2 (with options) 
List of 4
 $ echo      : logi FALSE
 $ connection: symbol db.conn
 $ output.var: chr "db.data"
 $ engine    : chr "sql"

  |...........................                                      | …

是否可以使用 Flexdashboard 作为 Open Analytics golem 包的一个包来制作一个闪亮的应用程序？之后可以dockerize吗？flexdashboard .Rmd 文件的工作流程如何？

到目前为止我的 Dockerfile

FROM rocker/shiny-verse:latest 

MAINTAINER Tim M.Schendzielorz "tim.schendzielorz@googlemail.com"

# Install dependencies 

RUN  echo 'install.packages(c("dplyr","dbplyr","DBI","DT","plotly","flexdashboard","lubridate"), \
        repos="http://cran.us.r-project.org", \
        dependencies=TRUE)' > /tmp/packages.R \
        && Rscript /tmp/packages.R


# Copy configuration files into the Docker image
COPY shiny-server.conf  /usr/bin/shiny-server.conf
COPY shiny-server.sh  /usr/bin/shiny-server.sh

COPY flexdashboard.Rmd /usr/bin/flexdashboard.Rmd   

# make all app files readable (solves issue when dev in Windows, but building in Ubuntu)
RUN chmod -R 755 /usr/bin

# Add shiny user
RUN groupadd  user \
&& …

我对 R 还很陌生，我正在尝试组装一个 Flexdashboard，它从用户输入中获取 x 和 y 变量并返回这些值的图表。到目前为止，我可以在下面的代码中使用 ggplotly 生成所需的图表。

output$scatter <-renderPlotly({
  
  cat('input$x=',input$x,'\n')
  cat('input$y=',input$y,'\n')
  p <- ggplot(Merged_data_frame_hcat, aes_string(x=input$x, y=input$y)) +
       geom_point()+
       theme_minimal(base_size = 14) 
  g <- ggplotly(p, source = 'source') %>%
       layout(dragmode = 'lasso',
       margin = list(l = 100),
       font = list(family = 'Open Sans', size = 16))
})

然而，我意识到使用 ggplotly，我的 x 轴的定义并不像我使用plot_ly 在仪表板外部绘制相同变量时那样定义。 有没有办法在 Flexdashboard 旁边使用plot_ly？到目前为止，我写了这个，但没有用。顺便说一句，我在这里使用 noquote 因为plot_ly 没有很好地接受作为字符串的输入名称

output$scatter <-renderPlotly({
  
  cat('input$x=',input$x,'\n')
  cat('input$y=',input$y,'\n')
  if (length(input$y) == 2){
     x1 = noquote(input$x)
     y1 =noquote(input$y[1])
     y2 = noquote(input$y[2])
  
   plot_ly(Merged_data_frame_hcat)%>%
     add_lines(x= ~x1,y =~y1, …

我知道如何使用http://www.shinyproxy.io/部署一个闪亮的应用程序。基本上我只需要 server.R 和 ui.R。然后使用 docker 这是一项非常简单的工作。

但是，在使用 flexdashboard 时，我只有 .rmd 文件。我现在如何实施此部署？

我正在制作一个面向列的 Flexdashboard，包含四个值框以及图表和表格。值框之前有一定的高度，但我最近更改了其中一个值框中的信息，现在所有框的高度都更大了。以下是代码查找四个值框的方式

vb1<-valueBox(Parkvorgaenge_Insgesamt,"Parkvorg\xc3\xa4nge Insgesamt", icon = "fa-car", color = "warning")\nvb2<-valueBox(Parkstunden_Insgesamt,"Parkstunden Insgesamt", icon = "fa-hourglass-end", color = "warning")\nvb3<-valueBox(Einnahmen_Insgesamt,"Einnahmen Insgesamt", icon = "fa-eur", color = "warning")\nvb4<-valueBox(Durchschnittliche_Parkdauer,"Durchschnittliche Parkdauer", icon = "fa-clock", color = "warning")\n

Column {data-width=350}\n-----------------------------------------------------------------------\n\n### \n\n``{r}\nrenderValueBox(vb1)\n``\n\n### \n\n``{r}\nrenderValueBox(vb2)\n\n``\n\n\n### \n\n``{r}\nrenderValueBox(vb3)\n\n``\n\n### \n\n``{r}\nrenderValueBox(vb4)\n\n``\n

我尝试添加{data-height = some number}三个主题标签中的每一个（例如 ### {data-height = some number}），但这对改变高度没有任何作用。我在网上查过，但没有任何直接答案。

简而言之，如何控制 Flexdashboard 中值框的高度？