R/hapus_awalan_be2.R

In Aisyahzkh/IndonesiaStemmeR: Stem a Word in Bahasa Indonesia to Its Root Word

## Remove suffix berke-

HapusAwalanBe2 <- function(kata) {
  if ( grepl("^berke", kata) ) {
    kata1 <- sub("^berke", "", kata)
    if ( is_katadasar(kata1) ) {
      return(kata1)
    }
    kata2 <- HapusAkhiranIAnKan(kata1)
    if ( is_katadasar(kata2) ) {
      return(kata2)
    }
  }

}