Olá, Pessoas! 

Eu estou trabalhando em uma função no R que mensure a quantidade de palavras entre duas palavras especificas, estou chamando a função de worDistance, ela funciona da seguinte maneira, você insere dois argumentos, dada uma string t, por exemplo, palavra1 e palavra2 e ela retorna o número de palavras entre a palavra 1 e palavra 2, por exemplo, dado que:

t <- "bom dia posso ajudar nao viu zunkz sabe tava pagar"

worDistance("bom","ajudar"), ela retorna o número 2. 

Denote que a função lê a string t da esquerda para direita, quando eu inverto as ordem das palavras para 

worDistance("ajudar","bom"), ela retorna o número 0. Em vez de retornar 2, novamente, como eu posso resolver isso??

Vou colocar a estrutura da função abaixo:

worDistance <- function( palavra1, palavra2 , direcao ) {#
  
  ###Legenda
  #A função vai retornar "-1" quando uma das palavras inseridas no input não existir na string t
  #A função vai retornar "-2" quando ambas as palavras inseridas no input não existir na string t
  
 

     if( direcao == 1 ) {##
        
        # 1 = Esquerda para direita
        
        total_palavras <- sapply(strsplit(transcricao, " "), length) 
        
        a <- gsub( paste0('^.*',palavra1,'\\s*|\\s*',palavra2,'.*$'), '', 
        transcricao)
        
        b <- sapply(strsplit(a, " "), length)
        
        if( b == total_palavras ) {
          
          return(-2)
          
        }else if( b == (total_palavras) - 1) {
          
          return(-1)
          
        }else if( b != total_palavras ){
          
          return(b)
          
        }
        
      }##
    
    }#