Jak naprawić problem paska bocznego pobierania na panelu flexdashboard

Question

Dodałem przycisk pobierania do mojego panelu elastycznego w panelu paska bocznego, ale pojawia się on na głównym panelu, kiedy robię na .RMD. Czy możesz mi pomóc, jak mogę to naprawić?

Oto minimalne przykładem tego, co próbuję osiągnąć

--- 
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) 
    } 
) 
``` 

zrzut ekranu z deski rozdzielczej jest następująca

Dzięki!

Answer 1

Nieważne, naprawiłem to i to było raczej głupie, że nie próbowałem tego przed wysłaniem pytania, ale jeśli ktoś kiedykolwiek napotka podobny problem, rozwiązanie jest tutaj.

Funkcja obsługi pobierania musi być po prostu umieszczona również na panelu bocznym.

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) 
    } 
)