フレックスダッシュボードのダウンロードボタンのサイドバーの問題を修正する方法

Question

サイドバーパネルのflexdashboardにダウンロードボタンを追加しましたが、.RMDを編んだときにメインパネルに表示されます。どのように私はそれを修正することができますか教えてくださいできますか？

は、ここで私はダッシュボードのスクリーンショットが

感謝を以下のとおりである

--- 
title: "Download Button in Wrong Panel" 
output: 
    flexdashboard::flex_dashboard: 
    vertical_layout: scroll 
runtime: shiny 
--- 

```{r setup, include=FALSE} 

## Setting up required libraries 
library(flexdashboard) 
library(dplyr) 
library(shiny) 
library(knitr) 

dataset <- read.csv(somefile) 
``` 

Inputs {.sidebar} 
----------------------------------------------------------------------- 

### Input Filters 

```{r input} 

## Metric 1 
selectInput('metric', 
      'Choose Metric', 
      names(dataset %>% select(-default_column)), 
      selected = "default_metric") 

## Download Button 
downloadButton('downloadData','Download Result Set') 
``` 

Outputs 
----------------------------------------------------------------------- 

### List of Customers 

```{r output} 

subset_dataset <- reactive({ 
    dataset[,c("default_column",input$metric)] 
}) 

renderTable({ 
    subset_dataset() 
}, 
include.rownames = FALSE) 

downloadHandler(filename = function() { 
    paste('resultset-', Sys.Date(), '.csv', sep='') 
    }, 
    content = function(file) { 
    write.csv(subset_dataset(), file, row.names = FALSE) 
    } 
) 
``` 

を達成しようとしているものの最小限の例です！

Answer 1

私はそれを修正しました。質問を投稿する前に試してみるのは愚かでしたが、誰かが同様の問題に直面した場合は解決策があります。

ダウンロードハンドラ機能はサイドバーパネルにも配置する必要があります。

Inputs {.sidebar} 
----------------------------------------------------------------------- 

### Input Filters 

```{r input} 

## Metric 1 
selectInput('metric', 
      'Choose Metric', 
      names(dataset %>% select(-default_column)), 
      selected = "default_metric") 

## Download Button 
downloadButton('downloadData','Download Result Set') 

downloadHandler(filename = function() { 
    paste('resultset-', Sys.Date(), '.csv', sep='') 
    }, 
    content = function(file) { 
    write.csv(subset_dataset(), file, row.names = FALSE) 
    } 
)