r - Flex 仪表板 : Input and Outputs in different tabs

Question

我是一个使用 flex-dashboards 的新手...
如何在两个不同的选项卡中将输入信息和输出结果分开？这是一个简单的例子，我试图在第二个选项卡“输出”中只渲染条形图

---
title: "Dashboard"
output: 
  flexdashboard::flex_dashboard:
runtime: shiny
---
```{r global, include=FALSE}
# load data in 'global' chunk so it can be shared by all users of the dashboard
library(datasets)
data(WorldPhones)
```

Inputs
=======================================================================

```{r, include=FALSE}
# Shiny module definition (would typically be defined in a separate R script)

# UI function
worldPhonesUI <- function(id) {
  ns <- NS(id)
  fillCol(height = 600, flex = c(2, 1),
    inputPanel(
      selectInput(ns("region"), "Region1:", choices = colnames(WorldPhones))
    )
  )
}

# Server function
worldPhones <- function(input, output, session) {
  output$phonePlot <- renderPlot({
    barplot(WorldPhones[,input$region]*1000, 
            ylab = "Number of Telephones", xlab = "Year")
  })
}
```

```{r, eval=TRUE}
# Include the module
worldPhonesUI("phones")
callModule(worldPhones, "phones")
```

Results
=======================================================================

```{r}
worldPhonesUI <- function(id) {
  ns <- NS(id)
  fillCol(height = 600, flex = c(NA, 1),
    plotOutput(ns("phonePlot"), height = "80%")
  )
}
```

Answer 1

您忘记了有关 ui 和服务器功能的所有内容，并直接将对象放入夹盘中，如下所示:

---
title: "Dashboard"
output: 
  flexdashboard::flex_dashboard:
runtime: shiny
---
```{r global, include=FALSE}
# load data in 'global' chunk so it can be shared by all users of the dashboard
library(datasets)
data(WorldPhones)
```

Inputs
=======================================================================

```{r}

selectInput("region", "Region1:", choices = colnames(WorldPhones))

```

Results
=======================================================================

```{r}
renderPlot({
    barplot(WorldPhones[,input$region]*1000, 
            ylab = "Number of Telephones", xlab = "Year")
  })

```