Conditionally modify all numeric values in R dataframe?

I have an R dataframe like below with all numeric columns. All non NA values are either greater than/equal to 1 or less than -1. I want to subtract 1 from all the positive values and add 1 to all the negative values, ignoring all the NAs.I have an R dataframe like below with all numer