R Error: object 'residences' not found

In call:
eval(parse_only(code), envir = envir)

Backtrace:
     ▆
  1. └─base::eval(expr, envir, enclos)
  2.   └─base::eval(expr, envir, enclos)
  3.     └─formr::formr_inline_render(...)
  4.       ├─rmarkdown::render(...)
  5.       │ └─knitr::knit(knit_input, knit_output, envir = envir, quiet = quiet)
  6.       │   └─knitr:::process_file(text, output)
  7.       │     ├─knitr:::handle_error(...)
  8.       │     │ └─base::withCallingHandlers(...)
  9.       │     ├─base::withCallingHandlers(...)
 10.       │     ├─knitr:::process_group(group)
 11.       │     └─knitr:::process_group.inline(group)
 12.       │       └─knitr:::call_inline(x)
 13.       │         ├─knitr:::in_input_dir(inline_exec(block))
 14.       │         │ └─knitr:::in_dir(input_dir(), expr)
 15.       │         └─knitr:::inline_exec(block)
 16.       │           └─knitr (local) hook_eval(code[i], envir)
 17.       │             ├─base::withVisible(eval(parse_only(code), envir = envir))
 18.       │             └─base::eval(parse_only(code), envir = envir)
 19.       │               └─base::eval(parse_only(code), envir = envir)
 20.       └─base::paste(residences, collapse = "\n")

METHOD: POST
URL: https://opencpu.psych.bio.uni-goettingen.de/ocpu/library/formr/R/formr_inline_render/json
PARAMS: 
text = '```{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__\")
My_EHC_survey = as.data.frame(jsonlite::fromJSON(\"{\\\"current_residence_R1\\\":[\\\"1\\\"],\\\"current_residence_R2\\\":[null],\\\"current_residence_R3\\\":[null],\\\"current_residence_R4\\\":[null],\\\"current_residence_R5\\\":[null],\\\"current_residence_R6\\\":[null],\\\"current_residence_R7\\\":[null],\\\"current_residence_R8\\\":[null],\\\"current_residence_R9\\\":[null],\\\"current_residence_R10\\\":[null],\\\"current_partner_P1\\\":[\\\"\\\"],\\\"current_partner_P2\\\":[\\\"1\\\"],\\\"current_partner_P3\\\":[null],\\\"current_partner_P4\\\":[null],\\\"current_partner_P5\\\":[null],\\\"current_partner_P6\\\":[null],\\\"current_partner_P7\\\":[null],\\\"current_partner_P8\\\":[null],\\\"current_partner_P9\\\":[null],\\\"current_benefit_O1\\\":[\\\"\\\"],\\\"current_benefit_O2\\\":[null],\\\"current_benefit_O3\\\":[null],\\\"current_benefit_O4\\\":[null],\\\"current_benefit_O5\\\":[null],\\\"current_benefit_O6\\\":[null],\\\"current_benefit_O7\\\":[null],\\\"current_benefit_O8\\\":[null],\\\"current_benefit_O9\\\":[null],\\\"current_benefit_O10\\\":[null],\\\"datefrom_R1\\\":[\\\"2018-01-01\\\"],\\\"dateto_R1\\\":[null],\\\"datefrom_R2\\\":[null],\\\"dateto_R2\\\":[null],\\\"datefrom_R3\\\":[null],\\\"dateto_R3\\\":[null],\\\"datefrom_R4\\\":[null],\\\"dateto_R4\\\":[null],\\\"datefrom_R5\\\":[null],\\\"dateto_R5\\\":[null],\\\"datefrom_R6\\\":[null],\\\"dateto_R6\\\":[null],\\\"datefrom_R7\\\":[null],\\\"dateto_R7\\\":[null],\\\"datefrom_R8\\\":[null],\\\"dateto_R8\\\":[null],\\\"datefrom_R9\\\":[null],\\\"dateto_R9\\\":[null],\\\"datefrom_R10\\\":[null],\\\"dateto_R10\\\":[null],\\\"datefrom_O1\\\":[null],\\\"dateto_O1\\\":[null],\\\"datefrom_O2\\\":[null],\\\"dateto_O2\\\":[null],\\\"datefrom_O3\\\":[null],\\\"dateto_O3\\\":[null],\\\"datefrom_O4\\\":[null],\\\"dateto_O4\\\":[null],\\\"datefrom_O5\\\":[null],\\\"dateto_O5\\\":[null],\\\"datefrom_O6\\\":[null],\\\"dateto_O6\\\":[null],\\\"datefrom_O7\\\":[null],\\\"dateto_O7\\\":[null],\\\"datefrom_O8\\\":[null],\\\"dateto_O8\\\":[null],\\\"datefrom_O9\\\":[null],\\\"dateto_O9\\\":[null],\\\"datefrom_O10\\\":[null],\\\"dateto_O10\\\":[null],\\\"datefrom_P1\\\":[\\\"2018-01-01\\\"],\\\"dateto_P1\\\":[\\\"2021-01-01\\\"],\\\"datefrom_P2\\\":[\\\"2021-02-01\\\"],\\\"dateto_P2\\\":[null],\\\"datefrom_P3\\\":[null],\\\"dateto_P3\\\":[null],\\\"datefrom_P4\\\":[null],\\\"dateto_P4\\\":[null],\\\"datefrom_P5\\\":[null],\\\"dateto_P5\\\":[null],\\\"datefrom_P6\\\":[null],\\\"dateto_P6\\\":[null],\\\"datefrom_P7\\\":[null],\\\"dateto_P7\\\":[null],\\\"datefrom_P8\\\":[null],\\\"dateto_P8\\\":[null],\\\"datefrom_P9\\\":[null],\\\"dateto_P9\\\":[null],\\\"count_SR\\\":[1],\\\"count_SO\\\":[1],\\\"count_SP\\\":[2],\\\"benefit_O1\\\":[null],\\\"benefit_O2\\\":[null],\\\"benefit_O3\\\":[null],\\\"benefit_O4\\\":[null],\\\"benefit_O5\\\":[null],\\\"benefit_O6\\\":[null],\\\"benefit_O7\\\":[null],\\\"benefit_O8\\\":[null],\\\"benefit_O9\\\":[null],\\\"benefit_O10\\\":[null],\\\"residence_R1\\\":[\\\"Warschau\\\"],\\\"residence_R2\\\":[null],\\\"residence_R3\\\":[null],\\\"residence_R4\\\":[null],\\\"residence_R5\\\":[null],\\\"residence_R6\\\":[null],\\\"residence_R7\\\":[null],\\\"residence_R8\\\":[null],\\\"residence_R9\\\":[null],\\\"residence_R10\\\":[null],\\\"partner_P2\\\":[\\\"Shop Assistant\\\"],\\\"partner_P3\\\":[null],\\\"partner_P4\\\":[null],\\\"partner_P5\\\":[null],\\\"partner_P6\\\":[null],\\\"partner_P7\\\":[null],\\\"partner_P8\\\":[null],\\\"partner_P9\\\":[null],\\\"partner_P1\\\":[\\\"Hairdresser\\\"]}\"), stringsAsFactors=F)
attach(tail(My_EHC_survey, 1))

```
```{r}
gannt_event_row <- function (i, data, col_title, col_datefrom, col_dateto, col_current) {
  empty <- \'\'
  
  if(!(paste0(col_title, i) %in% colnames(data))) {
    return (empty)    
  }
  
  title <- last(data[paste0(col_title, i)])
  if (is.na(title) || title == \'\') {
    return (empty)
  }
  
  is_current <- last(data[paste0(col_current, i)]) == 1
  datefrom <- last(data[paste0(col_datefrom, i)])
  dateto <- ifelse(is_current, format(Sys.Date(), \"%Y-%m-%d\"), last(data[paste0(col_dateto, i)]))
  tag <- ifelse(is_current, \"active\", \"done\");
  label <- paste0(\"a\", i)
  
  paste(title, \":\", tag, \",\", label, \",\", datefrom, \",\", dateto,  \"     \", sep = \" \")
}


gannt_events <- function (i, data, col_title, col_datefrom) {
  empty <- NULL
  
 if(!(paste0(col_title, i) %in% colnames(data)) || is.na(data[paste0(col_title, i)])) {
    return (empty)    
  }
  
  title <- last(data[paste0(col_title, i)])
  if (is.na(title) || title == \'\') {
    return (empty)
  }
  
  datefrom <- last(data[paste0(col_datefrom, i)])
  tag <- \"done\"
  label <- paste0(\"a\", i)
  paste(title, \":\", tag, \",\", label, \",\", datefrom, \",\", datefrom,  \"     \", sep = \" \")
}

residences <- NULL;
for (x in 1:last(My_EHC_survey$count_SR)) {
residences <- c(residences, gannt_event_row(x, My_EHC_survey, \'residence_R\', \'datefrom_R\', \'dateto_R\', \'current_residence_R\'))
}

partners <- NULL;
for (x in 1:last(My_EHC_survey$count_SP)) {
    partners <- c(partners, gannt_event_row(x, My_EHC_survey, \'partner_P\', \'datefrom_P\', \'dateto_P\', \'current_partner_P\'))
}

benefits <- NULL;
for (x in 1:last(My_EHC_survey$count_SO)) {
    benefits <- c(benefits, gannt_event_row(x, My_EHC_survey,  \'benefit_O\', \'datefrom_O\', \'dateto_O\', \'current_benefit_O\'));
else benefits<-NULL
}


```
<div class=\"formr-mermaid\">

gantt
    title Przegląd rezydencji, zawodów, świadczeń socjalnych i wsparcia nieformalnego
    dateFormat  YYYY-MM-DD
    section rezydencje
   `r paste(residences, collapse=\"\\n\")`
    section zawodów
     `r paste(partners, collapse=\"\\n\")`
     `r ifelse(!is.null(benefits) & benefits != \"\", paste(c(\" section świadczeń\", benefits), collapse=\"\\n\"), \"\")`
</div>' 
self_contained = 
0 

Array
(
    [Status] => HTTP/1.1 400 Bad Request
    [Date] => Sun, 19 May 2024 16:18:28 GMT
    [Server] => Apache/2.4.52 (Ubuntu)
    [Cache-Control] => max-age=300, public
    [X-Ocpu-Session] => x014c2808a4bc1863e10a09399a195f92ab535027c4a85ca1def
    [Location] => https://opencpu.psych.bio.uni-goettingen.de/ocpu/tmp/x014c2808a4bc1863e10a09399a195f92ab535027c4a85ca1def/
    [Access-Control-Allow-Origin] => *
    [Access-Control-Expose-Headers] => Location, X-ocpu-session, Content-Type, Cache-Control
    [Access-Control-Allow-Headers] => Origin, Content-Type, Accept, Accept-Encoding, Cache-Control, Authorization
    [Access-Control-Allow-Credentials] => true
    [X-Ocpu-R] => R version 4.3.2 (2023-10-31)
    [X-Ocpu-Locale] => en_US.UTF-8
    [X-Ocpu-Time] => 2024-05-19 18:18:29 CEST
    [X-Ocpu-Version] => 2.2.11
    [X-Ocpu-Server] => rApache
    [Vary] => Accept-Encoding
    [Content-Encoding] => gzip
    [Content-Length] => 483
    [Connection] => close
    [	previous-headers[]] => Array
        (
            [Status] => HTTP/1.1 100 Continue
        )

)

POST /ocpu/library/formr/R/formr_inline_render/json HTTP/1.1
Host: opencpu.psych.bio.uni-goettingen.de
User-Agent: formr-curl/1.0
Accept: */*
Accept-Encoding: deflate, gzip
Content-Length: 10380
Content-Type: application/x-www-form-urlencoded
Expect: 100-continue