Error Handling in R Programming

# Syntax Error Example
# This code contains a syntax error due to a missing closing parenthesis
print("Hello, world!")  # Corrected: Added the missing closing parenthesis

# Define a function to perform division
safe_division <- function(x, y) {
  tryCatch(
    {
      result <- x / y
      if(is.infinite(result)){
        return("Error: Division by zero occurred.")
      } else {
        return(result)
      }
    },
    error = function(e) {
      return("Error: Division by zero occurred.")
    }
  )
}

# Example usage
result <- safe_division(10, 0)
print(result) # This will print "Error: Division by zero occurred."

# Logical Error Example
# This code attempts to add two strings together, resulting in a logical error
# Corrected: Using paste() function to concatenate strings
result <- paste("Hello", "World")  
print(result)