Logo Questions Linux Laravel Mysql Ubuntu Git Menu
 

How to fix download button sidebar issue in flexdashboard

I have added a download button to my flexdashboard in the sidebar panel, but it appears in the main panel when I knit the .RMD. Can you please guide me as to how I can fix it?

Here's a minimal example of what I'm trying to accomplish

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

A screenshot of the dashboard is as follows

enter image description here

Thanks!

like image 835
elvikingo Avatar asked May 30 '16 04:05

elvikingo


1 Answers

Never mind, I fixed it and it was rather silly of me to have not tried it before posting the question, but if someone ever faces a similar problem, the solution is here.

The download handler function must simply be placed in the sidebar panel as well and that does it.

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)
   }
)
like image 95
elvikingo Avatar answered Nov 06 '22 10:11

elvikingo