c("A", "b", "­", "d", "i", "c", "h", "­", "t",
  "e", "r", "/", "i", "n", " ", "E", "F", "Z")

my_string <- str_split(my_string , "")

paste0(my_string[my_string != ""])