我们可以做到

str_extract_all(text, "(?<=#)\\w*(?=#)")[[1]]
#[1] "Pray4Manchester" "ArianaGrande"   

数据

text <- "#Pray4Manchester# I hope that #ArianaGrande# will be better soon."