Displaying Hebrew and RTL Languages

Although ggplotly does display Hebrew text correctly, when I try to use str_wrap or other means to wrap titles, it doesnt display the text properly. It appears to wrap the text incorrectly, breaking the sentence up at the wrong points.

Heres a minimal working example:

library(plotly)
# DB
Occupation = c("תל אביב", "באר שבע", "רמת גן", "גבעתיים", "ירושלים", "אילת", "טבריה", "אשקלון", "שם ארוך מאוד")
df <- as.data.frame(Occupation) %>% 
  mutate(n = row_number()*10)

df$Occupation <- str_wrap(df$Occupation, width = 6) %>% as.factor()

# PLOT
plot <- df %>% ggplot(aes(x = Occupation, y = n)) +
  geom_col()

ggplotly(plot)

ggplot:

ggplotly:

Start with the minimal R example using str_wrap, ggplot, and ggplotly, and compare the ggplot and ggplotly screenshots for the Hebrew labels. Reproduce the incorrect wrapping and investigate the ggplotly rendering path; done means Hebrew and other RTL titles wrap at the correct points in the interactive plot.