2024年4月3日发(作者：池乐人)

case_character_type <- function(height, mass, species) {

case_when(

height > 200 | mass > 200 ~ "large",

species == "Droid" ~ "robot",

TRUE ~ "other"

)

}

case_character_type(150, 250, "Droid")

#> [1] "large"

case_character_type(150, 150, "Droid")

#> [1] "robot"

2024年4月3日发(作者：池乐人)

case_character_type <- function(height, mass, species) {

case_when(

height > 200 | mass > 200 ~ "large",

species == "Droid" ~ "robot",

TRUE ~ "other"

)

}

case_character_type(150, 250, "Droid")

#> [1] "large"

case_character_type(150, 150, "Droid")

#> [1] "robot"