<dplyr:::mutate_error/rlang_error/error/condition>
Error in `dplyr::mutate(scores, SI_s = if ("SI" %in% colnames(scores)) {
    if (any(SI < 0 | SI > 3, na.rm == TRUE)) 
        stop("Error: SI contains values outside [0,3]")
    dplyr::case_when(SI == 3 ~ "I think very positively about myself", 
        SI == 2 ~ "I think positively about myself", SI == 1 ~ 
            "I think negatively about myself", SI == 0 ~ "I think very negatively about myself", 
        TRUE ~ NA_character_)
} else {
    NA_character_
}, IN_s = if ("IN" %in% colnames(scores)) {
    if (any(IN < 0 | IN > 3, na.rm = TRUE)) 
        stop("Error: IN contains values outside [0,3]")
    dplyr::case_when(IN == 3 ~ "I am very satisfied with my level of independence", 
        IN == 2 ~ "I am satisfied with my level of independence", 
        IN == 1 ~ "I am dissatisfied with my level of independence", 
        IN == 0 ~ "I am very dissatisfied with my level of independence", 
        TRUE ~ NA_character_)
} else {
    NA_character_
}, MO_s = if ("MO" %in% colnames(scores)) {
    if (any(MO < 0 | MO > 3, na.rm = TRUE)) 
        stop("Error: MO contains values outside [0,3]")
    dplyr::case_when(MO == 3 ~ "I do not feel anxious, gloomy, or depressed", 
        MO == 2 ~ "I feel a little anxious, gloomy, or depressed", 
        MO == 1 ~ "I feel anxious, gloomy, or depressed", MO == 
            0 ~ "I feel very anxious, gloomy, or depressed", 
        TRUE ~ NA_character_)
} else {
    NA_character_
}, RE_s = if ("RE" %in% colnames(scores)) {
    if (any(RE < 0 | RE > 3, na.rm = TRUE)) 
        stop("Error: RE contains values outside [0,3]")
    dplyr::case_when(RE == 3 ~ "I am very satisfied with my relationships", 
        RE == 2 ~ "I am satisfied with my relationships", RE == 
            1 ~ "I am dissatisfied with my relationships", RE == 
            0 ~ "I am very dissatisfied with my relationships", 
        TRUE ~ NA_character_)
} else {
    NA_character_
}, DA_s = if ("DA" %in% colnames(scores)) {
    if (any(DA < 0 | DA > 3, na.rm = TRUE)) 
        stop("Error: DA contains values outside [0,3]")
    dplyr::case_when(DA == 3 ~ "I am very satisfied with my daily activities", 
        DA == 2 ~ "I am satisfied with my daily activities", 
        DA == 1 ~ "I am dissatisfied with my daily activities", 
        DA == 0 ~ "I am very dissatisfied with my daily activities", 
        TRUE ~ NA_character_)
} else {
    NA_character_
}, PH_s = if ("PH" %in% colnames(scores)) {
    if (any(PH < 0 | PH > 3, na.rm = TRUE)) 
        stop("Error: PH contains values outside [0,3]")
    dplyr::case_when(PH == 3 ~ "I have no physical health problems", 
        PH == 2 ~ "I have some physical health problems", PH == 
            1 ~ "I have many physical health problems", PH == 
            0 ~ "I have a great many physical health problems", 
        TRUE ~ NA_character_)
} else {
    NA_character_
}, FU_s = if ("FU" %in% colnames(scores)) {
    if (any(FU < 0 | FU > 3, na.rm = TRUE)) 
        stop("Error: FU contains values outside [0,3]")
    dplyr::case_when(FU == 3 ~ "I am very optimistic about my future", 
        FU == 2 ~ "I am optimistic about my future", FU == 1 ~ 
            "I am gloomy about my future", FU == 0 ~ "I am very gloomy about my future", 
        TRUE ~ NA_character_)
} else {
    NA_character_
})`: i In argument: `SI_s = if (...) NULL`.
Caused by error:
! object 'na.rm' not found