
library(testthat)

source("user_code.R")
test_that("returns correct area when both width and height are provided", {
  expect_equal(rectangle_area(5, 3), 15, 
               info = "rectangle_area(5, 3) should return 15")
})

test_that("returns correct area when only width is provided (height defaults to 1)", {
  expect_equal(rectangle_area(7), 7, 
               info = "rectangle_area(7) should return 7 when height is defaulted to 1")
})

test_that("works with floating-point values for width and height", {
  expect_equal(rectangle_area(2.5, 4.2), 10.5, 
               info = "rectangle_area(2.5, 4.2) should return 10.5")
  expect_equal(rectangle_area(3.7), 3.7, 
               info = "rectangle_area(3.7) should return 3.7 when height is defaulted to 1")
})

test_main.R

Master the art of writing and using functions in R, from basic syntax to advanced functional programming techniques. This course guides you through creating your own functions, leveraging anonymous functions, and applying functional programming concepts to solve real-world problems in R.

Learn how to define, call, and utilize functions in R, including understanding parameters, return values, and default arguments.

Discover how to use anonymous (inline) functions for concise, on-the-fly operations, and see how they fit into R's functional programming paradigm.

Apply functional programming concepts in R to solve real-world problems, focusing on writing concise, reusable, and efficient code.

Challenge: Default Arguments in Action

解答