repl.it
@anonymous/

LoathsomeDentalMacroinstruction

R

No description

fork
loading
Files
  • main.r
main.r
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
cadenas <- c(
            "el metro",               #1
            "dos metrobuses",         #2  x
            "pasó en el metro norte", #3
            "metro 12",               #4
            "no",                     #5  x
            "metro",                  #6
            "metrocable",             #7  x
            "\nmetro",                #8     Igual se imprime con \n
            "\nmetro\n",              #9     Igual se imprime con \n
            "metro\n"                 #10    Igual se imprime con \n
            )

print(
      grep("metro\\b", cadenas)
)

print(
      cadenas[grep("\\bmetro\\b", cadenas)]
)


print(
      grep("\\bmetro\\b", cadenas)
)

print(
      cadenas[grep("\\bmetro\\b", cadenas)]
)