R/hapus_awalan_be2.R

Defines functions HapusAwalanBe2

## Remove suffix berke-

HapusAwalanBe2 <- function(kata) {

  # berke-
  if ( grepl("^berke", kata) ) {

    kata1 <- sub("^berke", "", kata)
    if ( is_katadasar(kata1) ) {
      return(kata1)
    }

    kata2 <- HapusAkhiranIAnKan(kata1)
    if ( is_katadasar(kata2) ) {
      return(kata2)
    }
  }

}
nurandi/katadasaR documentation built on Feb. 20, 2022, 3:33 p.m.