Я считаю это то, что вы ищете.
string <- c("· interpunct", "interpunct · interpunct", "interpunct · ")
#[1] "· interpunct" "interpunct · interpunct" "interpunct · "
sub("(?:\\s?)+·(?:\\s?)+", "", string)
#[1] "interpunct" "interpunctinterpunct" "interpunct"