Try to paste a unicode control character to the text. Like:

rtl_string = `تعداد ساعات روز`

image_append(c(white_space, img), stack = TRUE) %>% 
  image_annotate(
    text = paste0("\u202B", rtl_string), 
    size = 30, 
    gravity = "North")