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