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)
          
        }
        
      }##
    
    }#