Testthat repo added

Author: bradduthie

temperature/temp_conversion.R

@@ -0,0 +1,27 @@
+#' Fahrenheit conversion
+#'
+#' Convert degrees Fahrenheit temperatures to degrees Celsius
+#' @param F_temp The temperature in degrees Fahrenheit
+#' @return The temperature in degrees Celsius
+#' @examples 
+#' temp1 <- F_to_C(50);
+#' temp2 <- F_to_C( c(50, 63, 23) );
+#' @export
+F_to_C <- function(F_temp){
+    C_temp <- (F_temp - 32) * 5/9;
+    return(C_temp);
+}
+
+#' Celsius conversion
+#'
+#' Convert degrees Celsius temperatures to degrees Fahrenheit
+#' @param C_temp The temperature in degrees Celsius
+#' @return The temperature in degrees Fahrenheit
+#' @examples 
+#' temp1 <- C_to_F(22);
+#' temp2 <- C_to_F( c(-2, 12, 23) );
+#' @export
+C_to_F <- function(C_temp){
+    F_temp <- (C_temp * 9/5) + 32;
+    return(F_temp);
+}

temperature/test-temp_conversion.R

@@ -0,0 +1,29 @@
+library(testthat);
+context("Temperature function testing");
+source("temp_conversion.R");
+
+test_that("Fahrenheit to Celsius", {
+  
+  temp_C <- F_to_C(50);
+  
+  # Test that the result is numeric
+  expect_that( object = is.numeric(temp_C), condition = equals(TRUE) );
+  
+  # Test that the result is the correct value
+  expect_that( object = temp_C, condition = equals(10) );
+})
+
+test_that("Celsius to Fahrenheit", {
+  
+  temp_F <- C_to_F(10);
+  
+  # Test that the result is numeric
+  expect_that( object = is.numeric(temp_F), condition = equals(TRUE) );
+  
+  # Test that the result is the correct value
+  expect_that( object = temp_F, condition = equals(50) );
+})
+
+
+# The two tests can be run on the command line as below
+# test_dir(".")

test-temp_conversion.R

@@ -24,12 +24,6 @@ test_that("Celsius to Fahrenheit", {
   expect_that( object = temp_F, condition = equals(50) );
 })
 
-# This test will fail
-test_that(desc = "Fahrenheit to Celsius wrong", code = {
-    temp_F <- F_to_C(50);
-    
-    expect_that( object = temp_F, condition = equals(2) );
-})
 
 # The two tests can be run on the command line as below
 # test_dir(".")

testing_slides.Rmd

@@ -2,7 +2,7 @@
 title: "Introduction to testing R code"
 subtitle: "https://stirlingcodingclub.github.io/code_testing"
 author: "Brad Duthie"
-date: "24 April 2024"
+date: "15 April 2025"
 output:
   beamer_presentation:
     theme: "default"