create_logic_for_other will not work with condition such as selected(${main_reason_left_country}

[yannsay-impact]

kobo_example <- data.frame(type = c("text", "select_one main_reason_left_country_list"),                                                                                 
                           name = c("main_reason_left_country_other", "main_reason_left_country"),                                                     
                           label = c("What is the main reason for which you and your household left your country of origin?",
                                     "What is the main reason for which you and your household left your country of origin?"),
                           relevant = "selected(${main_reason_left_country}, \"other\")")
create_logic_for_other(kobo_survey = kobo_example)

kobo_example <- data.frame(type = c("text", "select_one main_reason_left_country_list"),                                                                                 
                           name = c("main_reason_left_country_other", "main_reason_left_country"),                                                     
                           label = c("What is the main reason for which you and your household left your country of origin?",
                                     "What is the main reason for which you and your household left your country of origin?"),
                           relevant = "selected(${main_reason_left_country}, 'other')")
create_logic_for_other(kobo_survey = kobo_example)

[yannsay-impact]

kobo_example <- data.frame(type = c("text", "select_one main_reason_left_country_list"),                                                                                 
                           name = c("main_reason_left_country_other", "main_reason_left_country"),                                                     
                           label = c("What is the main reason for which you and your household left your country of origin?",
                                     "What is the main reason for which you and your household left your country of origin?"),
                           relevant = "selected(${main_reason_left_country}, \"other\")")
kobo_example$relevant <- stringr::str_replace_all(kobo_example$relevant, "\"", "'")
create_logic_for_other(kobo_survey = kobo_example)