Write R code that checks if all non-NA elements in a character vector can be converted to numeric
You can use the `suppressWarnings` function along with `as.numeric` to check if all non-NA elements in a character vector can be converted to numeric. Here's a function that performs this check:

```r
can_convert_to_numeric <- function(char_vector) {
  # Remove NA values
  non_na_elements <- na.omit(char_vector)
  
  # Try converting to numeric and suppress warnings
  numeric_conversion <- suppressWarnings(as.numeric(non_na_elements))
  
  # Check if all converted values are non-NA
  all_non_na <- all(!is.na(numeric_conversion))
  
  return(all_non_na)
}

# Example usage:
char_vector1 <- c("1", "2", "3", "4", NA)
char_vector2 <- c("1", "two", "3", "4", NA)

print(can_convert_to_numeric(char_vector1))  # Should return TRUE
print(can_convert_to_numeric(char_vector2))  # Should return FALSE
```

### Explanation:
1. **na.omit**: This function removes any NA values from the character vector.
2. **suppressWarnings**: This function suppresses warnings that may arise during the conversion (e.g., when trying to convert non-numeric strings).
3. **as.numeric**: This function attempts to convert the character vector to numeric.
4. **all(!is.na(...))**: This checks if all elements in the resulting numeric vector are non-NA
x <- c("a", "b", "c")
if (all(is.numeric(x[!is.na(x)]) == TRUE)) {
  print("All non-NA elements in x can be converted to numeric.")
} else {
  print("Some non-NA elements in x cannot be converted to numeric.")
}