```{r settings,warning=TRUE,message=TRUE,error=TRUE,echo=F}
library(knitr); library(formr)
opts_chunk$set(warning=TRUE,message=TRUE,error=TRUE,echo=F,fig.height=7,fig.width=10)
opts_knit$set(base.url="__formr_opencpu_session_url__")
survey_B2 = as.data.frame(jsonlite::fromJSON("{\"formr_dummy\":[null]}"), stringsAsFactors=F)
attach(tail(survey_B2, 1))
survey_A1 = as.data.frame(jsonlite::fromJSON("[]"), stringsAsFactors=F)
survey_A2 = as.data.frame(jsonlite::fromJSON("{\"reflection1\":[\"thank the formr monkey\"],\"reflection2\":[\"thank the formr monkey\"],\"reflection3\":[\"thank the formr monkey\"],\"reflection4\":[\"thank the formr monkey\"],\"reflection5\":[\"thank the formr monkey\"],\"song\":[\"2j43nl\"]}"), stringsAsFactors=F)
survey_A3 = as.data.frame(jsonlite::fromJSON("[]"), stringsAsFactors=F)

```
```{r, warning = FALSE} 
heading1 <- ifelse(!is.null(survey_A1$reflection1), "Gemeinsamkeiten", ifelse(!is.null(survey_A2$reflection1), "Unterschieden", "Eigenschaften"))
heading2 <- ifelse(!is.na(survey_A1$reflection1), "Gemeinsamkeiten", ifelse(!is.na(survey_A2$reflection1), "Unterschiede", "Eigenschaften"))
```

Bevor Sie die Studie gleich mit ein paar letzten Fragen beenden, haben wir noch eine weitere kleine Aufgabe für Sie:

Wir bitten Sie darum, niemanden von Ihren aufgelisteten `heading1` aus der Aufgabe und Ihrem ausgesuchten Lied zu erzählen. Es ist sehr wichtig, dass Sie das für sich behalten! Für Sie selbst nochmal die `heading2` , die Sie sich überlegt haben, und das Lied, das Sie sich rausgesucht haben:

==========formr=opencpu=string=delimiter==========

```{r, warning = FALSE}
reflection1 <- ifelse(!is.na(survey_A1$reflection1), survey_A1$reflection1, 
                 ifelse(!is.na(survey_A2$reflection1), survey_A2$reflection1, 
                        ifelse(!is.na(survey_A3$reflection1), survey_A3$reflection1, 
                               "Sie haben hier nichts angegeben.")))

cat(reflection1)

reflection2 <- ifelse(!is.na(survey_A1$reflection2), survey_A1$reflection2, 
                     ifelse(!is.na(survey_A2$reflection2), survey_A2$reflection2, 
                            ifelse(!is.na(survey_A3$reflection2), survey_A3$reflection2, 
                                   "Sie haben hier nichts angegeben.")))

cat(reflection2)

reflection3 <- ifelse(!is.na(survey_A1$reflection3), survey_A1$reflection3, 
                     ifelse(!is.na(survey_A2$reflection3), survey_A2$reflection3, 
                            ifelse(!is.na(survey_A3$reflection3), survey_A3$reflection3, 
                                   "Sie haben hier nichts angegeben.")))

cat(reflection3)

reflection4 <- ifelse(!is.na(survey_A1$reflection4), survey_A1$reflection4, 
                     ifelse(!is.na(survey_A2$reflection4), survey_A2$reflection4, 
                            ifelse(!is.na(survey_A3$reflection4), survey_A3$reflection4, 
                                   "Sie haben hier nichts angegeben.")))

cat(reflection4)

reflection5 <- ifelse(!is.na(survey_A1$reflection5), survey_A1$reflection5, 
                     ifelse(!is.na(survey_A2$reflection5), survey_A2$reflection5, 
                            ifelse(!is.na(survey_A3$reflection5), survey_A3$reflection5, 
                                   "Sie haben hier nichts angegeben.")))

cat(reflection5)
```

Lied:
```{r, warning = FALSE}
song <- ifelse(!is.na(survey_A1$song) & survey_A1$song != "", survey_A1$song, 
       ifelse(!is.na(survey_A2$song) & survey_A2$song != "", survey_A2$song, 
              ifelse(!is.na(survey_A3$song) & survey_A3$song != "", survey_A3$song, "Sie haben kein Lied angegeben.")))

cat(song)
```