comment identifier les endroits du texte

Question

Voici échantillon à ma fonction getscodes

df= read.csv("secondary.csv",header = TRUE) 

Answer 1

S <- "s/O sk hungu 101/90 MODEL HOUSE TALAB GAGNI SHUKUL LUCKNOW UTTAR PRADESH LUCKNOW UTTAR PRADESH 226001" 

Je recommande de faire tous les possibles chaînes de Nx où N est la longueur de votre chaîne et x est longueur variable

allchr <- unlist(strsplit(S, "")) 
listsubstr <- sapply(1:length(allchr), function(I) paste0(allchr[I:length(allchr)], collapse="")) 

    # [1] "s/O sk hungu 101/90 MODEL HOUSE TALAB GAGNI SHUKUL LUCKNOW UTTAR PRADESH LUCKNOW UTTAR PRADESH 226001" 
    # [2] "/O sk hungu 101/90 MODEL HOUSE TALAB GAGNI SHUKUL LUCKNOW UTTAR PRADESH LUCKNOW UTTAR PRADESH 226001" 
    # [3] "/ O sk hungu 101/90 MODEL HOUSE TALAB GAGNI SHUKUL LUCKNOW UTTAR PRADESH LUCKNOW UTTAR PRADESH 226001" 
    # [4] " O sk hungu 101/90 MODEL HOUSE TALAB GAGNI SHUKUL LUCKNOW UTTAR PRADESH LUCKNOW UTTAR PRADESH 226001" 

Vous pouvez parcourir cette liste pour vérifier les géocodes valides. Je dois fournir un pseudocode car je ne suis pas sûr de savoir si une chaîne est un géocode valide.

sapply(listsubstr, function(I) is.geocode(I))  # contains pseudocode 

Vous pouvez également le faire avec la récursivité.

myfun <- function(x) { 
      if (x is gecode) { # contains pseudocode 
        return(x) 
      } else { 
        myfun(substr(x, 2, nchar(S))) 
      } 
     }