Show the code
library(tidyverse)
library(googlesheets4)
library(gt)
Mohit Shrestha
Report last updated on 2025-06-28 02:12:52.
Timestamp | What city do you live in? | What state or province do you live in? | What country do you live in? |
---|---|---|---|
2023-05-22 11:11:57 | Portland | Oregon | United States |
2023-05-22 13:54:52 | Vancouver | British Columbia | Canada |
2023-05-25 15:25:42 | New York | New York | USA |
2023-05-29 08:15:25 | jember | jawa timur | indonesia |
2023-05-30 02:41:11 | Curitiba | PR | Brazil |
2023-09-05 21:19:43 | Lucknow | Uttar Pradesh | India |
2023-12-11 01:58:45 | Seattle | WA | USA |
2024-03-23 07:24:43 | New York City | New York | United States of America |
2024-06-15 06:03:26 | YAKRO | CIV | CIV |
2024-09-05 17:45:57 | San Cristobal | Mixco, Guatemala | Guatemala |
2024-09-05 18:33:00 | Mixco | Mixco | Guatemala |
2024-09-05 19:27:27 | tecpan | chimaltenango | Guatemala |
2025-03-04 23:46:41 | Vigo | Pontevedra | Spain |
---
title: "Import Data and Generate Report"
author: "Mohit Shrestha"
format:
html:
code-fold: true
code-tools: true
code-summary: "Show the code"
editor: visual
execute:
echo: true
warning: false
message: false
---
## Import Libraries/Packages
```{r}
#| code-fold: true
#| code-summary: "Show the code"
library(tidyverse)
library(googlesheets4)
library(gt)
```
## Import Data
```{r}
#| code-fold: true
#| code-summary: "Show the code"
# The data is publicly available so we don't need to authenticate
gs4_deauth()
survey_data <- read_sheet("https://docs.google.com/spreadsheets/d/13kfPtyQP1xmL4Rn6rfJHgJcAblfH7pxS5RvdmGe6BHg/edit#gid=564559734")
survey_data |>
write_rds("survey_data.rds")
```
## Generate Report
Report last updated on `r now(tzone = "America/Los_Angeles")`.
```{r}
#| code-fold: true
#| code-summary: "Show the code"
# The data is publicly available so we don't need to authenticate
gs4_deauth()
survey_data <- read_sheet("https://docs.google.com/spreadsheets/d/13kfPtyQP1xmL4Rn6rfJHgJcAblfH7pxS5RvdmGe6BHg/edit?usp=sharing")
survey_data %>%
gt()
```