Předčasný návrat z funkce
Někdy nepotřebuješ projít celé tělo funkce, abys získal/a výsledek. V takovém případě můžeš z funkce odejít dříve pomocí return().
Pro ověření, zda je x dělitelné n, použij funkci is_divisible_by(x, n) z balíčku assertive.
Alternativně můžeš využít operátor modulo %%. Výraz x %% n vrátí zbytek po dělení x číslem n, takže x %% n == 0 určuje, zda je x dělitelné n. Vyzkoušej 1:10 %% 3 == 0 v konzoli.
Pro vyřešení tohoto cvičení potřebuješ vědět, že přestupný rok nastává každých 400 let (například rok 2000) nebo každý 4. rok, který není celým staletím (například 1904, ale ne 1900 ani 1905).
Balíček assertive je načten.
Toto cvičení je součástí kurzu
Introduction to Writing Functions in R
Pokyny k cvičení
- Dokonči definici funkce
is_leap_year()tak, aby postupně kontrolovala, zda jeyeardělitelné čísly 400, 100 a 4, a v každém případě se z funkce předčasně vrátila.
Interaktivní cvičení na vyzkoušení si v praxi
Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.
is_leap_year <- function(year) {
# If year is div. by 400 return TRUE
if(___) {
return(___)
}
# If year is div. by 100 return FALSE
if(___) {
___
}
# If year is div. by 4 return TRUE
___
# Otherwise return FALSE
___
}