fix: fix github actions

Author: DiogoRibeiro7

DESCRIPTION

@@ -10,7 +10,7 @@ Encoding: UTF-8
 LazyData: true
 Roxygen: list(markdown = TRUE)
 RoxygenNote: 7.3.1
-Suggests: 
+Suggests:
     covr,
     knitr,
     lintr,
@@ -24,5 +24,5 @@ Config/testthat/edition: 3
 VignetteBuilder: knitr
 URL: https://github.com/DiogoRibeiro7/myrpackage, https://diogoribeiro7.github.io/myrpackage/
 BugReports: https://github.com/DiogoRibeiro7/myrpackage/issues
-Depends: 
+Depends:
     R (>= 4.0)

R/goodbye.R

@@ -23,15 +23,15 @@ goodbye <- function(name = "world", language = "english", exclamation = TRUE) {
   if (!is.character(name) || length(name) != 1) {
     stop("'name' must be a single character string")
   }
-  
+
   if (!is.character(language) || length(language) != 1) {
     stop("'language' must be a single character string")
   }
-  
+
   if (!is.logical(exclamation) || length(exclamation) != 1) {
     stop("'exclamation' must be a single logical value")
   }
-  
+
   # Select farewell based on language
   farewell <- switch(
     tolower(language),
@@ -42,20 +42,20 @@ goodbye <- function(name = "world", language = "english", exclamation = TRUE) {
     # Default to English if language not supported
     "Goodbye"
   )
-  
+
   # Construct the farewell
   result <- paste0(farewell, ", ", name)
-  
+
   # Add exclamation mark if requested
   if (exclamation) {
     result <- paste0(result, "!")
   } else {
     result <- paste0(result, ".")
   }
-  
+
   # Print the farewell and return it invisibly
   cat(result, "\n")
-  
+
   # Return the farewell
   invisible(result)
 }

R/hello.R

@@ -23,15 +23,15 @@ hello <- function(name = "world", language = "english", exclamation = TRUE) {
   if (!is.character(name) || length(name) != 1) {
     stop("'name' must be a single character string")
   }
-  
+
   if (!is.character(language) || length(language) != 1) {
     stop("'language' must be a single character string")
   }
-  
+
   if (!is.logical(exclamation) || length(exclamation) != 1) {
     stop("'exclamation' must be a single logical value")
   }
-  
+
   # Select greeting based on language
   greeting <- switch(
     tolower(language),
@@ -42,20 +42,20 @@ hello <- function(name = "world", language = "english", exclamation = TRUE) {
     # Default to English if language not supported
     "Hello"
   )
-  
+
   # Construct the greeting
   result <- paste0(greeting, ", ", name)
-  
+
   # Add exclamation mark if requested
   if (exclamation) {
     result <- paste0(result, "!")
   } else {
     result <- paste0(result, ".")
   }
-  
+
   # Print the greeting and return it invisibly
   cat(result, "\n")
-  
+
   # Return the greeting
   invisible(result)
 }