Data Handling

]

<br><br>
# .font150[.fancy[Data Handling]]

]

---

# .fancy[Data Handling]

### 1. Storing data
### 2. Fetching data

---

# .fancy[Data Handling]

### 1. .orange[Storing data]
### 2. Fetching data

---

## Data is stored in any PostgreSQL database

]

## We use [Supabase](https://supabase.com/) as a free, open-source option

]

---

## Store data in [Supabase](https://supabase.com/)

Steps to connect a database via Supabase:

1. Create a Supabase account
2. Create a Supabase project
3. Copy your credentials

<br>

## Full details on the [Storing Data docs page](https://surveydown.org/docs/storing-data)

---

## Creating a project

]

- Choose a project name (this is your "database")
- Each database can have multiple tables
- Choose a strong password

]

---

## Getting your Supabase credentials

Click the "connect" button in your project

]

Find the “Transaction pooler”  section

]

---

## Store your database credentials

In your R console, run:

``` r
surveydown::sd_db_config()
```

<br>

Credentials are stored in a `.env` file in your root project folder.

]

]

---

# .center[app.R]

``` r
library(surveydown)

# Connects to database
*db <- sd_db_connect()

# Main UI
ui <- sd_ui()

server <- function(input, output, session) {
  # Main server
  sd_server(db)
}

shiny::shinyApp(
  ui = ui, 
  server = server
)
```

]]

The `sd_db_connect()` function uses the `.env` file to make the database connection. 
]

---

## Use `sdApps::sd_dashboard()` to locally view data

---

## Your turn

- Create a Supabase account and database. 
- Run `surveydown::sd_db_config()` in your console to store your Supabase credentials. 
- Run your survey locally, answer questions to generate data.
- View your response data with `sdApps::sd_dashboard()`

---

# .fancy[Data Handling]

### 1. Storing data
### 2. .orange[Fetching data]

---

# Static Data Fetching

Once your database is properly set up, you can fetch the data using:

``` r
db <- sd_db_connect()
data <- sd_get_data(db)
```

Or simply:

``` r
data <- sd_get_data(sd_db_connect())
```
 
---

## Reactive Data Fetching

You can also reactively fetch the data live inside the survey

In `app.R`:

``` r
db <- sd_db_connect()

server <- function(input, output, session) {

* data <- sd_get_data(db, refresh_interval = 5)

sd_server()

}
```

]

---

## Reactive Data Fetching

Use the reactive data to create some output

In `app.R`:

``` r
server <- function(input, output, session) {

data <- sd_get_data(db, refresh_interval = 5)

output$my_plot <- renderPlot({  
*   my_data <- data()
    
    # insert code here to make a plot 
    
  })

sd_server()

}
```

]

In `survey.qmd`:

```` markdown
```{r}
plotOutput("my_plot")
```
````

]

---

## Your turn

- Use `sd_get_data(db)` to read in a copy of your survey response data.
- Edit your `app.R` file to reactively access your survey data.
- Use your data to make a plot about your data.
- Display your plot in your `survey.qmd` file with `plotOutput("my_plot")`