Displaying 1 result from an estimated 1 matches for "effectiviteit".
2023 Dec 18
3
Function with large nested list
...diabetes_status == "ja") {
if (ab_data$'diabetes veiligheid' == "ja") {
list_AB_status[[i]] <- "red"
list_AB_remarks[[i]] <- paste(list_AB_remarks[[i]], "Niet veilig met diabetes")
}
if (ab_data$'diabetes effectiviteit' == "aanpassing") {
dosering <- ifelse(ab_data$'diabetes dosering' != "standaard", ab_data$'diabetes dosering', dosering) # if dosering does not equal standaard, apply dosering in column, otherwise keep initial dosering
duur <- ifelse(ab...