R Error: Unparsable argument: {
(function() {
library(formr)
dcd_daily_international_wave4 = as.data.frame(jsonlite::fromJSON("{\"selected_health_dis_eat_item\":[null,null,null,\"2\",\"2\",\"2\"],\"last_rep_cycle\":[null,null,null,null,null,null],\"first_rep_cycle\":[null,null,null,null,null,null],\"last_rep_cycle_date_format\":[null,null,null,null,null,null],\"daily_cycle_day1\":[null,null,null,null,null,null],\"last_cycle_start\":[null,null,null,null,null,null],\"health_dis_eat_1\":[null,null,null,null,null,null],\"health_dis_eat_2\":[null,null,null,null,null,null],\"health_dis_eat_3\":[null,null,null,null,null,null],\"health_dis_eat_4\":[null,null,null,null,null,null],\"health_sleep_qual\":[null,null,null,null,null,null],\"daily_cycle_period_now\":[null,null,null,null,null,null],\"cycle_start_since_baseline\":[null,null,null,null,null,null],\"pill_day\":[null,null,null,null,null,null]}"), stringsAsFactors=F)
dcd_baseline_international_wave4 = as.data.frame(jsonlite::fromJSON("{\"cycle_day1_base\":[null,\"2021-05-20\"],\"contra_type_past\":[null,\"HBC\"]}"), stringsAsFactors=F)
(function() {with(tail(dcd_daily_international_wave4, 1), {
formr.showifs = list();
within(formr.showifs, {
si.health_dis_eat_1 = (function(){
selected_health_dis_eat_item == 1
})()
si.health_dis_eat_2 = (function(){
selected_health_dis_eat_item == 2
})()
si.health_dis_eat_3 = (function(){
selected_health_dis_eat_item == 3
})()
si.health_dis_eat_4 = (function(){
selected_health_dis_eat_item == 4
})()
si.health_sleep_qual = (function(){
`
})()
si.daily_cycle_day1 = (function(){
daily_cycle_period_now == 2
})()
last_rep_cycle = (function(){
format(max(na.omit(c(as.Date(dcd_baseline_international_wave4$cycle_day1_base, format="%Y-%m-%d"), as.Date(dcd_daily_international_wave4$daily_cycle_day1, format="%Y-%m-%d"), as.Date(dcd_daily_international_wave4$last_cycle_start, format="%Y-%m-%d")))), format="%a %B %d %Y")
})()
first_rep_cycle = (function(){
format(min(na.omit(c(as.Date(dcd_baseline_international_wave4$cycle_day1_base, format="%Y-%m-%d"), as.Date(dcd_daily_international_wave4$daily_cycle_day1, format="%Y-%m-%d"), as.Date(dcd_daily_international_wave4$last_cycle_start, format="%Y-%m-%d")))), format="%a %B %d %Y")
})()
last_rep_cycle_date_format = (function(){
max(na.omit(c(as.Date(dcd_baseline_international_wave4$cycle_day1_base, format="%Y-%m-%d"), as.Date(dcd_daily_international_wave4$daily_cycle_day1, format="%Y-%m-%d"), as.Date(dcd_daily_international_wave4$last_cycle_start, format="%Y-%m-%d"))))
})()
si.cycle_start_since_baseline = (function(){
daily_cycle_period_now == 1 && as.numeric(lubridate::today() - as.Date(last_rep_cycle_date_format))>21
})()
si.last_cycle_start = (function(){
cycle_start_since_baseline==2
})()
si.pill_day = (function(){
tail(na.omit(dcd_baseline_international_wave4$contra_type_past), n=1) %contains_word% "HBC" && runif(1) < 0.4
})()
})
})})()
})() }