From 028d55126d2159ee022fab5bd28b859a33a7404b Mon Sep 17 00:00:00 2001 From: Jeremy Kidwell Date: Wed, 8 May 2024 14:54:03 +0100 Subject: [PATCH] Update chapter_2.qmd Added code to chapter 2 to download dataset from zenodo --- hacking_religion/chapter_2.qmd | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/hacking_religion/chapter_2.qmd b/hacking_religion/chapter_2.qmd index 3eaff29..b144707 100644 --- a/hacking_religion/chapter_2.qmd +++ b/hacking_religion/chapter_2.qmd @@ -32,6 +32,10 @@ library(here) |> suppressPackageStartupMessages() library(tidyverse) |> suppressPackageStartupMessages() library(haven) here::i_am("chapter_2.qmd") + +# download spotlight dataset from zenodo +if (file.exists(here("example_data", "climate_experience_data.sav")) == FALSE) { + download.file("https://zenodo.org/records/11130201/files/climate_experience_data.sav", destfile = here("gits", "spotlight-report", "data", "climate_experience_data.sav"))} climate_experience_data <- read_sav(here("example_data", "climate_experience_data.sav")) ```