fix: fix github actions

Author: DiogoRibeiro7

.pre-commit-config.yaml

@@ -0,0 +1,19 @@
+repos:
+-   repo: https://github.com/pre-commit/pre-commit-hooks
+    rev: v4.4.0
+    hooks:
+    -   id: trailing-whitespace
+    -   id: end-of-file-fixer
+    -   id: check-yaml
+    -   id: check-added-large-files
+
+-   repo: https://github.com/lorenzwalthert/precommit
+    rev: v0.3.2.9007
+    hooks:
+    -   id: style-files
+        args: [--style_pkg=styler, --style_fun=tidyverse_style]
+    -   id: lintr
+    -   id: readme-rmd-rendered
+    -   id: parsable-R
+    -   id: no-browser-statement
+    -   id: deps-in-desc

DESCRIPTION

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

R/goodbye.R

@@ -4,7 +4,7 @@
 #' different names and languages.
 #'
 #' @param name Character string. The name to bid farewell to. Default is "world".
-#' @param language Character string. The language for the farewell. 
+#' @param language Character string. The language for the farewell.
 #'        Supported languages: "english" (default), "spanish", "french", "portuguese".
 #' @param exclamation Logical. Whether to add an exclamation mark. Default is TRUE.
 #'
@@ -16,23 +16,22 @@
 #' goodbye("R Users")
 #' goodbye("amigos", language = "spanish")
 #' goodbye("mes amis", language = "french", exclamation = FALSE)
-#' 
+#'
 #' @seealso \code{\link{hello}} for a greeting function
 goodbye <- function(name = "world", language = "english", exclamation = TRUE) {
-  
   # Input validation
   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),
@@ -43,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

@@ -4,7 +4,7 @@
 #' different names and languages.
 #'
 #' @param name Character string. The name to greet. Default is "world".
-#' @param language Character string. The language for the greeting. 
+#' @param language Character string. The language for the greeting.
 #'        Supported languages: "english" (default), "spanish", "french", "portuguese".
 #' @param exclamation Logical. Whether to add an exclamation mark. Default is TRUE.
 #'
@@ -16,23 +16,22 @@
 #' hello("R Users")
 #' hello("amigos", language = "spanish")
 #' hello("mes amis", language = "french", exclamation = FALSE)
-#' 
+#'
 #' @seealso \code{\link{goodbye}} for a farewell function
 hello <- function(name = "world", language = "english", exclamation = TRUE) {
-  
   # Input validation
   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),
@@ -43,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)
 }

_pkgdown.yml

@@ -61,5 +61,5 @@ home:
       community:
         title: Community
         text: >
-          If you have questions or issues about the package, please file an issue on 
+          If you have questions or issues about the package, please file an issue on
           [GitHub](https://github.com/DiogoRibeiro7/myrpackage/issues).

tests/testthat/test-goodbye.R

@@ -1,7 +1,7 @@
 test_that("goodbye() prints correctly with default arguments", {
   # Test the default output
   expect_output(goodbye(), "Goodbye, world!")
-  
+
   # Test that the invisible return value is correct
   expect_equal(suppressMessages(goodbye()), "Goodbye, world!")
 })
@@ -14,24 +14,24 @@ test_that("goodbye() accepts custom name parameter", {
 test_that("goodbye() supports different languages", {
   # Test English (default)
   expect_output(goodbye(language = "english"), "Goodbye, world!")
-  
+
   # Test Spanish
   expect_output(goodbye(language = "spanish"), "Adiós, world!")
-  
+
   # Test French
   expect_output(goodbye(language = "french"), "Au revoir, world!")
-  
+
   # Test Portuguese
   expect_output(goodbye(language = "portuguese"), "Adeus, world!")
-  
+
   # Test unknown language (should default to English)
   expect_output(goodbye(language = "german"), "Goodbye, world!")
 })
 
 test_that("goodbye() correctly handles exclamation parameter", {
   # Test with exclamation = TRUE (default)
   expect_output(goodbye(exclamation = TRUE), "Goodbye, world!")
-  
+
   # Test with exclamation = FALSE
   expect_output(goodbye(exclamation = FALSE), "Goodbye, world.")
 })
@@ -40,11 +40,11 @@ test_that("goodbye() validates input parameters", {
   # Test invalid name parameter
   expect_error(goodbye(name = c("world", "everyone")), "'name' must be a single character string")
   expect_error(goodbye(name = 123), "'name' must be a single character string")
-  
+
   # Test invalid language parameter
   expect_error(goodbye(language = c("english", "spanish")), "'language' must be a single character string")
   expect_error(goodbye(language = 123), "'language' must be a single character string")
-  
+
   # Test invalid exclamation parameter
   expect_error(goodbye(exclamation = c(TRUE, FALSE)), "'exclamation' must be a single logical value")
   expect_error(goodbye(exclamation = "yes"), "'exclamation' must be a single logical value")

tests/testthat/test-hello.R

@@ -1,59 +1,59 @@
-test_that("hello() prints correctly with default arguments", {
+test_that("goodbye() prints correctly with default arguments", {
   # Test the default output
-  expect_output(hello(), "Hello, world!")
-  
+  expect_output(goodbye(), "Goodbye, world!")
+
   # Test that the invisible return value is correct
-  expect_equal(suppressMessages(hello()), "Hello, world!")
+  expect_equal(suppressMessages(goodbye()), "Goodbye, world!")
 })
 
-test_that("hello() accepts custom name parameter", {
+test_that("goodbye() accepts custom name parameter", {
   # Test with a custom name
-  expect_output(hello("R Users"), "Hello, R Users!")
+  expect_output(goodbye("R Users"), "Goodbye, R Users!")
 })
 
-test_that("hello() supports different languages", {
+test_that("goodbye() supports different languages", {
   # Test English (default)
-  expect_output(hello(language = "english"), "Hello, world!")
-  
+  expect_output(goodbye(language = "english"), "Goodbye, world!")
+
   # Test Spanish
-  expect_output(hello(language = "spanish"), "Hola, world!")
-  
+  expect_output(goodbye(language = "spanish"), "Adiós, world!")
+
   # Test French
-  expect_output(hello(language = "french"), "Bonjour, world!")
-  
+  expect_output(goodbye(language = "french"), "Au revoir, world!")
+
   # Test Portuguese
-  expect_output(hello(language = "portuguese"), "Olá, world!")
-  
+  expect_output(goodbye(language = "portuguese"), "Adeus, world!")
+
   # Test unknown language (should default to English)
-  expect_output(hello(language = "german"), "Hello, world!")
+  expect_output(goodbye(language = "german"), "Goodbye, world!")
 })
 
-test_that("hello() correctly handles exclamation parameter", {
+test_that("goodbye() correctly handles exclamation parameter", {
   # Test with exclamation = TRUE (default)
-  expect_output(hello(exclamation = TRUE), "Hello, world!")
-  
+  expect_output(goodbye(exclamation = TRUE), "Goodbye, world!")
+
   # Test with exclamation = FALSE
-  expect_output(hello(exclamation = FALSE), "Hello, world.")
+  expect_output(goodbye(exclamation = FALSE), "Goodbye, world.")
 })
 
-test_that("hello() validates input parameters", {
+test_that("goodbye() validates input parameters", {
   # Test invalid name parameter
-  expect_error(hello(name = c("world", "everyone")), "'name' must be a single character string")
-  expect_error(hello(name = 123), "'name' must be a single character string")
-  
+  expect_error(goodbye(name = c("world", "everyone")), "'name' must be a single character string")
+  expect_error(goodbye(name = 123), "'name' must be a single character string")
+
   # Test invalid language parameter
-  expect_error(hello(language = c("english", "spanish")), "'language' must be a single character string")
-  expect_error(hello(language = 123), "'language' must be a single character string")
-  
+  expect_error(goodbye(language = c("english", "spanish")), "'language' must be a single character string")
+  expect_error(goodbye(language = 123), "'language' must be a single character string")
+
   # Test invalid exclamation parameter
-  expect_error(hello(exclamation = c(TRUE, FALSE)), "'exclamation' must be a single logical value")
-  expect_error(hello(exclamation = "yes"), "'exclamation' must be a single logical value")
+  expect_error(goodbye(exclamation = c(TRUE, FALSE)), "'exclamation' must be a single logical value")
+  expect_error(goodbye(exclamation = "yes"), "'exclamation' must be a single logical value")
 })
 
-test_that("hello() works with all combinations of parameters", {
+test_that("goodbye() works with all combinations of parameters", {
   # Test with all parameters customized
   expect_output(
-    hello(name = "friends", language = "spanish", exclamation = FALSE),
-    "Hola, friends."
+    goodbye(name = "friends", language = "spanish", exclamation = FALSE),
+    "Adiós, friends."
   )
 })