remove all empty strings from R

# Create a vector with empty strings
vector <- c("apple", "", "orange", "", "banana")

# Remove empty strings from the vector
vector <- vector[nchar(vector) > 0]