
library(testthat)

source("user_code.R")
test_that("even_sum variable exists and is numeric", {
  expect_true(exists("even_sum"), info = "even_sum variable should exist.")
  expect_true(is.numeric(even_sum), info = "even_sum should be numeric.")
})

test_that("even_sum is correct after while loop", {
  # The sum should be: 8 + 12 + 10 + 14 = 44; next even is 2, sum would be 46, but loop stops after adding 14 (44+14=58>50)
  # So, after adding 8 (8), 12 (20), 10 (30), 14 (44), next is 2 (46), but by then sum already exceeded 50 with 14
  # Correction: Let's walk through step by step:
  # i=1: 8 (8)
  # i=2: 3 (skip)
  # i=3: 12 (8+12=20)
  # i=4: 5 (skip)
  # i=5: 10 (20+10=30)
  # i=6: 7 (skip)
  # i=7: 14 (30+14=44)
  # i=8: 2 (44+2=46)
  # But 46 is still <=50, so loop continues
  # Loop will finish after i=8, even_sum=46, which is <=50, but loop condition is <=50, so it will check for i=9, which is out of bounds, loop ends
  # So the answer should be 46
  expect_equal(even_sum, 46, info = "even_sum should be 46 after summing all even numbers until sum exceeds 50.")
})

test_main.R

Master the essentials of control flow in R, including conditional statements, loops, and the powerful apply family of functions. This course is designed for beginners and will guide you through practical, real-world examples to help you write efficient and readable R code.

Learn how to control the flow of your R programs using conditional statements, including if, else, else if, and how to apply logic to vectors.

Master the use of loops in R, including for, while, and repeat, and learn how to optimize your code for efficiency.

Unlock the power of R's apply family functions to perform operations on data structures efficiently and elegantly.

Challenge: Sum Threshold

Solución