从文本前后的R中的数据框中删除特殊字符

Remove special character from data frame in R before and after text

我有以下数据框

1   +PAL+PEA+ + + + 

我想删除文本前后的“+”,得到类似

的内容
1   PAL+PEA 

尝试

gsub('^[+]*|[+ ]*$', '', str1)
#[1] "PAL+PEA"

数据

 str1 <- '+PAL+PEA+ + + +'
regmatches(str1,gregexpr("[aA-zZ]+[+]{1}[aA-zZ]+",str1))
[[1]]
[1] "PAL+PEA"