fix: fix github actions

Author: DiogoRibeiro7

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,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
-Imports:
-    lifecycle
-Depends:
+Depends: 
     R (>= 3.5)

R/goodbye.R

@@ -23,39 +23,39 @@ 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),
     english = "Goodbye",
-    spanish = "Adiós",
+    spanish = "Adi\u00f3s", # Using Unicode escape for 'ó'
     french = "Au revoir",
     portuguese = "Adeus",
     # 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,39 +23,39 @@ 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),
     english = "Hello",
     spanish = "Hola",
     french = "Bonjour",
-    portuguese = "Olá",
+    portuguese = "Ol\u00e1", # Using Unicode escape for 'á'
     # 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)
 }

man/hello.Rd

@@ -1,6 +1,30 @@
-\name{hello}
-\alias{hello}
-\title{Say Hello}
-\usage{hello()}
-\description{This function prints a friendly greeting.}
-\examples{hello()}
+\name{goodbye}
+\alias{goodbye}
+\title{Say Goodbye}
+\usage{
+goodbye(name = "world", language = "english", exclamation = TRUE)
+}
+\arguments{
+\item{name}{Character string. The name to bid farewell to. Default is "world".}
+
+\item{language}{Character string. The language for the farewell.
+Supported languages: "english" (default), "spanish", "french", "portuguese".}
+
+\item{exclamation}{Logical. Whether to add an exclamation mark. Default is TRUE.}
+}
+\value{
+A character string containing the farewell message.
+}
+\description{
+This function prints a friendly farewell. It can be customized with
+different names and languages.
+}
+\examples{
+goodbye()
+goodbye("R Users")
+goodbye("amigos", language = "spanish")
+goodbye("mes amis", language = "french", exclamation = FALSE)
+}
+\seealso{
+\code{\link{hello}} for a greeting function
+}