Clean Q1

#1

Interim/dummy_question1.csv

@@ -0,0 +1,11 @@
+respondent_id;question;response
+114762892402;What country/countries are your activities based in? Multiple answers are possible.;Belgium
+114761515324;What country/countries are your activities based in? Multiple answers are possible.;Belgium
+114761515324;What country/countries are your activities based in? Multiple answers are possible.;Sweden
+114761515324;What country/countries are your activities based in? Multiple answers are possible.;Plopsaland
+114761370340;What country/countries are your activities based in? Multiple answers are possible.;North Macedonia
+114761370340;What country/countries are your activities based in? Multiple answers are possible.;Norway
+114761367399;What country/countries are your activities based in? Multiple answers are possible.;Andorra
+114761367399;What country/countries are your activities based in? Multiple answers are possible.;Bulgaria
+114761367399;What country/countries are your activities based in? Multiple answers are possible.;Liechtenstein
+114761357836;What country/countries are your activities based in? Multiple answers are possible.;Norway

Script/1-data-prep.Rmd

@@ -80,9 +80,15 @@ remove(i, name, question)
 # Get survey ID
 
 ```{r}
-surv <- surveymonkey::browse_surveys(title = "Indentifying data sharing issues regarding camera trap data in Europe -- dummy version",
-                                     oauth_token = token)
-survID <- c(surv$id)
+Q1 <- q1 %>%
+  pivot_longer(!respondent_id, names_to = "long_answer", values_to = "response") %>%
+  filter(!is.na(response)) %>%
+  mutate(question = qs$question[qs$code == "q1"]) %>%
+  mutate(nchar = nchar(question)) %>%
+  mutate(long_answer = substring(long_answer, nchar + 4)) %>%
+  select(respondent_id, question, response) %>%
+  write_csv2("./Interim/dummy_question1.csv")
+remove(q1)
 ```
 
 # Get the whole survey