Uploading a File in a flexdashboard

Question

I am trying to add an input file in a flexdashboard, but I am a little confused. Previously I created a function to generate a plot, and then I call the function renderPlot with the function in order to get the plot in the dashboard.

R flexdashboard and shiny interactive plot

But now, If I create a function to read the file I don´t understand how to call it.

How to follow the same idea, create a function that read a file with an input file in the dashboard and then perform the analysis in the dashboard.

I have generated this code

    ---
title: "Untitled"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
---

```{r setup, include=FALSE}
library(flexdashboard)
library(shiny)
```

Column {.sidebar}
-----------------------------------------------------------------------
```{r, echo = FALSE}
fileInput("file1", "Choose CSV File",
                multiple = TRUE,
                accept = c("text/csv",
                         "text/comma-separated-values,text/plain",
                         ".csv"))


```

With this I have obtained a side bar with the File Input. but how to use that uploaded file in any analysis and show the results in the dashboard?

    ---
title: "Untitled"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
---

```{r setup, include=FALSE}
library(flexdashboard)
library(shiny)
```

Column {.sidebar}
-----------------------------------------------------------------------
```{r, echo = FALSE}
fileInput("file1", "Choose CSV File",
                multiple = TRUE,
                accept = c("text/csv",
                         "text/comma-separated-values,text/plain",
                         ".csv"))
df_reac <- reactive({
  read_xlsx(file1$datapath)
})

```

Column{data-width=300}
-----------------------------------------------------------------------
```{r, echo = FALSE}
renderTable(df_reac)


```

Please post the code to the function in question, as well as the rendering, and UI — Chabo, Jan 09 '19 at 15:17
Done¡ I dont have UI because I am using flexdashboard. It seems that it is easy for basic dashboards. — user3483060, Jan 09 '19 at 15:21
In the server call the file by using `data<-read.csv(file1$datapath)` and then you can use `data` however you want. Reactive environments are going to play a role here so make sure you read up on those. — Chabo, Jan 09 '19 at 15:25
I am not sure about what is the server, because the flexdashboard only uses one file. this is the server ? — user3483060, Jan 09 '19 at 15:26
Sorry, disregard the part about the server. Read the data into r Global — Chabo, Jan 09 '19 at 15:29
what do you mean with datapath? is all the words of "C:/...."? — user3483060, Jan 09 '19 at 16:09

score 4 · Answer 1 · answered Mar 08 '21 at 02:15

This is an old question but this code will let you upload files on Flexdashboard:

    ---
    title: "Untitled"
    output: 
      flexdashboard::flex_dashboard:
        orientation: columns
        vertical_layout: fill
    runtime: shiny
    ---

    ```{r setup, include=FALSE}
    library(flexdashboard)
    ```

    ```{r}
    dataset <- eventReactive(input$file1,{
      dataset <- read.csv(input$file1$datapath)
    })
    ```

    # Column {.sidebar}

    ```{r, echo = FALSE}
    fileInput("file1", "Choose CSV File",
                    multiple = TRUE,
                    accept = c("text/csv",
                             "text/comma-separated-values,text/plain",
                             ".csv"))
    ```

    # Data 

    ## Row

    ### Table 1 - Show the data recently acquired

    ```{r}
    renderTable({
      dataset <- dataset()
      dataset
    })
    ```

The main issue was to create a reactive function, since you don't know about the dataset until you upload the file. The reactive value is input$file1

Uploading a File in a flexdashboard

1 Answers1

Linked