Multiple actions in ifelse() function in R

I was looking fo the answer but I didn't find any. Is it possible to put multiple action in ifelse() function? Or I have to find other solution?

Example:

vec <- c(1,3,4,6,8,4,2,4,6,8)
ifelse(vec %% 2 == 0, "even", "odd")
[1] "odd"  "odd"  "even" "even" "even" "even" "even" "even" "even" "even"

Now I want print "odd" or "even" and when it's even I'd like to print even element of vector and when it's odd I'd like to print increased element of vector by 1:

ifelse(vec %% 2 == 0, "even"; vec, "odd"; vec+1)