Running ‘testthat.R’ [167s/218s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(WhatsR)
  > 
  > test_check("WhatsR")
  [ FAIL 4 | WARN 159 | SKIP 0 | PASS 286 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure ('test-WhatsR-tests.R:907:3'): tailoring function ───────────────────
  `test` (`actual`) not identical to `tailored_data2` (`expected`).
  
    `attr(actual, 'row.names')`: 10 44   
  `attr(expected, 'row.names')`: 44 46 50
  
      actual$DateTime       | expected$DateTime        
  [1] "2018-01-29 12:26:03" - "2018-01-30 00:12:03" [1]
  [2] "2018-01-30 00:12:03" - "2018-01-30 00:13:04" [2]
                            - "2018-01-30 00:23:03" [3]
  
  `actual$Sender`:   "Dave" "Dave"       
  `expected$Sender`: "Dave" "Dave" "Dave"
  
  `actual$Sender_anon`:   "Person_2" "Person_2"           
  `expected$Sender_anon`: "Person_2" "Person_2" "Person_2"
  
  actual$Message vs expected$Message
  - "Test test"
  - "Sorry guys, I'm not comfortabl with this."
  + "Sorry guys, I'm not comfortabl with this."
  + "Cool, thanks!"
  + "Maybe next time!"
  
  actual$Flat vs expected$Flat
  - "Test test"
  - "Sorry guys I'm not comfortabl with this"
  + "Sorry guys I'm not comfortabl with this"
  + "Cool thanks"
  + "Maybe next time"
  
  `actual$TokVec` is length 2
  `expected$TokVec` is length 3
  
  `actual$TokVec[[1]]`:   "Test"  "test"                                       
  `expected$TokVec[[1]]`: "Sorry" "guys" "I'm" "not" "comfortabl" "with" "this"
  
  `actual$TokVec[[2]]`:   "Sorry" "guys"   "I'm" "not" "comfortabl" "with" "this"
  `expected$TokVec[[2]]`: "Cool"  "thanks"                                       
  
  `actual$TokVec[[3]]` is absent
  `expected$TokVec[[3]]` is a character vector ('Maybe', 'next', 'time')
  
  `actual$URL` is length 2
  `expected$URL` is length 3
  
  `actual$URL[[3]]` is absent
  `expected$URL[[3]]` is a character vector (NA)
  
  `actual$URL_anon` is length 2
  `expected$URL_anon` is length 3
  
  `actual$URL_anon[[3]]` is absent
  `expected$URL_anon[[3]]` is a logical vector (NA)
  
  `actual$Media`:   "NA" "NA"     
  `expected$Media`: "NA" "NA" "NA"
  
  `actual$Media_anon`:   "NA" "NA"     
  `expected$Media_anon`: "NA" "NA" "NA"
  
  `actual$Location`:   NA NA   
  `expected$Location`: NA NA NA
  
  `actual$Location_anon`:   NA NA   
  `expected$Location_anon`: NA NA NA
  
  `actual$Emoji` is length 2
  `expected$Emoji` is length 3
  
  `actual$Emoji[[3]]` is absent
  `expected$Emoji[[3]]` is a logical vector (NA)
  
  `actual$EmojiDescriptions` is length 2
  `expected$EmojiDescriptions` is length 3
  
  `actual$EmojiDescriptions[[3]]` is absent
  `expected$EmojiDescriptions[[3]]` is a logical vector (NA)
  
  `actual$Smilies` is length 2
  `expected$Smilies` is length 3
  
  `actual$Smilies[[3]]` is absent
  `expected$Smilies[[3]]` is a logical vector (NA)
  
  `actual$SystemMessage`:   NA NA   
  `expected$SystemMessage`: NA NA NA
  
    `actual$TokCount`: 2 7  
  `expected$TokCount`: 7 2 3
  
    `actual$TimeOrder`: 10 44   
  `expected$TimeOrder`: 44 47 50
  
    `actual$DisplayOrder`: 10 44   
  `expected$DisplayOrder`: 44 46 50
  ── Failure ('test-WhatsR-tests.R:920:3'): tailoring function ───────────────────
  `test` (`actual`) not identical to `tailored_data3` (`expected`).
  
    `attr(actual, 'row.names')`: 10      
  `attr(expected, 'row.names')`: 44 46 50
  
      actual$DateTime       | expected$DateTime        
  [1] "2018-01-29 12:26:03" - "2018-01-30 00:12:03" [1]
                            - "2018-01-30 00:13:04" [2]
                            - "2018-01-30 00:23:03" [3]
  
  `actual$Sender`:   "Dave"              
  `expected$Sender`: "Dave" "Dave" "Dave"
  
  `actual$Sender_anon`:   "Person_2"                      
  `expected$Sender_anon`: "Person_2" "Person_2" "Person_2"
  
      actual$Message | expected$Message                               
  [1] "Test test"    - "Sorry guys, I'm not comfortabl with this." [1]
                     - "Cool, thanks!"                             [2]
                     - "Maybe next time!"                          [3]
  
      actual$Flat | expected$Flat                                
  [1] "Test test" - "Sorry guys I'm not comfortabl with this" [1]
                  - "Cool thanks"                             [2]
                  - "Maybe next time"                         [3]
  
  `actual$TokVec` is length 1
  `expected$TokVec` is length 3
  
  `actual$TokVec[[1]]`:   "Test"  "test"                                       
  `expected$TokVec[[1]]`: "Sorry" "guys" "I'm" "not" "comfortabl" "with" "this"
  
  `actual$TokVec[[2]]` is absent
  `expected$TokVec[[2]]` is a character vector ('Cool', 'thanks')
  
  `actual$TokVec[[3]]` is absent
  `expected$TokVec[[3]]` is a character vector ('Maybe', 'next', 'time')
  
  `actual$URL` is length 1
  `expected$URL` is length 3
  
  `actual$URL[[2]]` is absent
  `expected$URL[[2]]` is a character vector (NA)
  
  `actual$URL[[3]]` is absent
  `expected$URL[[3]]` is a character vector (NA)
  
  `actual$URL_anon` is length 1
  `expected$URL_anon` is length 3
  
  `actual$URL_anon[[2]]` is absent
  `expected$URL_anon[[2]]` is a logical vector (NA)
  
  `actual$URL_anon[[3]]` is absent
  `expected$URL_anon[[3]]` is a logical vector (NA)
  
  `actual$Media`:   "NA"          
  `expected$Media`: "NA" "NA" "NA"
  
  `actual$Media_anon`:   "NA"          
  `expected$Media_anon`: "NA" "NA" "NA"
  
  `actual$Location`:   NA      
  `expected$Location`: NA NA NA
  
  `actual$Location_anon`:   NA      
  `expected$Location_anon`: NA NA NA
  
  `actual$Emoji` is length 1
  `expected$Emoji` is length 3
  
  `actual$Emoji[[2]]` is absent
  `expected$Emoji[[2]]` is a logical vector (NA)
  
  `actual$Emoji[[3]]` is absent
  `expected$Emoji[[3]]` is a logical vector (NA)
  
  `actual$EmojiDescriptions` is length 1
  `expected$EmojiDescriptions` is length 3
  
  `actual$EmojiDescriptions[[2]]` is absent
  `expected$EmojiDescriptions[[2]]` is a logical vector (NA)
  
  `actual$EmojiDescriptions[[3]]` is absent
  `expected$EmojiDescriptions[[3]]` is a logical vector (NA)
  
  `actual$Smilies` is length 1
  `expected$Smilies` is length 3
  
  `actual$Smilies[[2]]` is absent
  `expected$Smilies[[2]]` is a logical vector (NA)
  
  `actual$Smilies[[3]]` is absent
  `expected$Smilies[[3]]` is a logical vector (NA)
  
  `actual$SystemMessage`:   NA      
  `expected$SystemMessage`: NA NA NA
  
    `actual$TokCount`: 2    
  `expected$TokCount`: 7 2 3
  
    `actual$TimeOrder`: 10      
  `expected$TimeOrder`: 44 47 50
  
    `actual$DisplayOrder`: 10      
  `expected$DisplayOrder`: 44 46 50
  ── Failure ('test-WhatsR-tests.R:933:3'): tailoring function ───────────────────
  `test` (`actual`) not identical to `tailored_data4` (`expected`).
  
    `attr(actual, 'row.names')[1:5]`: 4 10 11 12 13
  `attr(expected, 'row.names')[1:3]`:      11 12 13
  
      actual$DateTime       | expected$DateTime        
  [1] "2018-01-29 12:24:12" -                          
  [2] "2018-01-29 12:26:03" -                          
  [3] "2018-01-29 23:33:03" | "2018-01-29 23:33:03" [1]
  [4] "2018-01-29 23:45:03" | "2018-01-29 23:45:03" [2]
  [5] "2018-01-29 23:45:03" | "2018-01-29 23:45:03" [3]
  
  `actual$Sender[1:5]`:   "Mallory" "Dave" "Alice" "Bob" "Carol"
  `expected$Sender[1:3]`:                  "Alice" "Bob" "Carol"
  
      actual$Sender_anon | expected$Sender_anon    
  [1] "Person_1"         -                         
  [2] "Person_2"         -                         
  [3] "Person_3"         | "Person_3"           [1]
  [4] "Person_4"         | "Person_4"           [2]
  [5] "Person_5"         | "Person_5"           [3]
  
      actual$Message        | expected$Message         
  [1] "Hey! :)"             -                          
  [2] "Test test"           -                          
  [3] "Is this a chat log?" | "Is this a chat log?" [1]
  [4] "Yes it is!"          | "Yes it is!"          [2]
  [5] "I think so too"      | "I think so too"      [3]
  
      actual$Flat          | expected$Flat           
  [1] "Hey"                -                         
  [2] "Test test"          -                         
  [3] "Is this a chat log" | "Is this a chat log" [1]
  [4] "Yes it is"          | "Yes it is"          [2]
  [5] "I think so too"     | "I think so too"     [3]
  
  `actual$TokVec` is length 42
  `expected$TokVec` is length 40
  
  `actual$TokVec[[1]]`:   "Hey"                        
  `expected$TokVec[[1]]`: "Is"  "this" "a" "chat" "log"
  
  `actual$TokVec[[2]]`:   "Test" "test"     
  `expected$TokVec[[2]]`: "Yes"  "it"   "is"
  
  `actual$TokVec[[3]]`:   "Is" "this"  "a"  "chat" "log"
  `expected$TokVec[[3]]`: "I"  "think" "so" "too"       
  
      actual$TokVec[[4]] | expected$TokVec[[4]]    
  [1] "Yes"              - "It's"               [1]
  [2] "it"               - "for"                [2]
  [3] "is"               - "demonstrating"      [3]
                         - "how"                [4]
                         - "this"               [5]
                         - "parser"             [6]
                         - "works"              [7]
  
  `actual$TokVec[[5]]`:   "I" "think" "so" "too"
  `expected$TokVec[[5]]`: NA                    
  
      actual$TokVec[[6]] | expected$TokVec[[6]]    
  [1] "It's"             - "Neat"               [1]
  [2] "for"              - "it"                 [2]
  [3] "demonstrating"    - "also"               [3]
  [4] "how"              - "recognizes"         [4]
  [5] "this"             - "when"               [5]
  [6] "parser"           - "voicemails"         [6]
  [7] "works"            - "have"               [7]
                         - "been"               [8]
                         - "send"               [9]
  
  `actual$TokVec[[7]]`:   NA             
  `expected$TokVec[[7]]`: "Thats" "handy"
  
      actual$TokVec[[8]] | expected$TokVec[[8]]    
  [1] "Neat"             -                         
  [2] "it"               -                         
  [3] "also"             -                         
  [4] "recognizes"       -                         
  [5] "when"             -                         
  [6] "voicemails"       -                         
  [7] "have"             -                         
  [8] "been"             -                         
  [9] "send"             - "it"                 [2]
  
  `actual$TokVec[[9]]`:   "Thats" "handy"
  `expected$TokVec[[9]]`: "yes"          
  
  `actual$TokVec[[10]]`:   "Isn't" "it"
  `expected$TokVec[[10]]`: NA          
  
  `actual$TokVec[[11]]`:   "yes"                     
  `expected$TokVec[[11]]`: "and" "Emoji" "work" "too"
  
  `actual$TokVec[[12]]`:   NA                                
  `expected$TokVec[[12]]`: "What" "about" "regular" "smilies"
  
  `actual$TokVec[[13]]`:   "and" "Emoji" "work" "too"           
  `expected$TokVec[[13]]`: "No"  "idea"  "lets" "try" "it" "out"
  
  `actual$TokVec[[14]]`:   "What"    "about" "regular" "smilies"
  `expected$TokVec[[14]]`: "alright" "D"                        
  
  `actual$TokVec[[15]]`:   "No"    "idea" "lets" "try" "it" "out"
  `expected$TokVec[[15]]`: "Seems" "to"   "work" "P"             
  
  `actual$TokVec[[16]]`:   "alright" "D"                                          
  `expected$TokVec[[16]]`: "Do"      "you" "think" "it" "also" "recognizes" "URLs"
  
  `actual$TokVec[[17]]`:   "Seems" "to"  "work" "P"             
  `expected$TokVec[[17]]`: "Can"   "you" "send" "one" "to" "try"
  
  `actual$TokVec[[18]]`:   "Do" "you" "think" "it" "also" "recognizes" "URLs"
  `expected$TokVec[[18]]`: NA                                                
  
      actual$TokVec[[19]] | expected$TokVec[[19]]    
  [1] "Can"               - "Works"               [1]
  [2] "you"               - "But"                 [2]
  [3] "send"              - "does"                [3]
  [4] "one"               - "it"                  [4]
  [5] "to"                - "also"                [5]
  [6] "try"               - "recognize"           [6]
                          - "multiple"            [7]
                          - "links"               [8]
  
  `actual$TokVec[[20]]`:   NA    
  `expected$TokVec[[20]]`: "Cool"
  
      actual$TokVec[[21]] | expected$TokVec[[21]]    
  [1] "Works"             - "How"                 [1]
  [2] "But"               - "about"               [2]
  [3] "does"              - "Locations"           [3]
  [4] "it"                -                          
  [5] "also"              -                          
  [6] "recognize"         -                          
  [7] "multiple"          -                          
  [8] "links"             -                          
  
  `actual$TokVec[[22]]`:   "Cool"
  `expected$TokVec[[22]]`: NA    
  
  `actual$TokVec[[23]]`:   "How" "about" "Locations"
  `expected$TokVec[[23]]`: NA                       
  
  `actual$TokVec[[24]]`:   NA            
  `expected$TokVec[[24]]`: "Works" "nice"
  
      actual$TokVec[[25]] | expected$TokVec[[25]]               
  [1] NA                  - "Carol"               [1]           
                          - "can"                 [2]           
                          - "you"                 [3]           
                          - "post"                [4]           
                          - "a"                   [5]           
                          - "self"                [6]           
                          - "deleting"            [7]           
                          - "photo"               [8]           
                          - "to"                  [9]           
                          - "show"                [10]          
  ... ...                   ...                   and 7 more ...
  
  `actual$TokVec[[26]]`:   "Works" "nice"
  `expected$TokVec[[26]]`: NA            
  
       actual$TokVec[[27]] | expected$TokVec[[27]]               
   [1] "Carol"             - "This"                [1]           
   [2] "can"               - "should"              [2]           
   [3] "you"               - "help"                [3]           
   [4] "post"              -                                     
   [5] "a"                 -                                     
   [6] "self"              -                                     
   [7] "deleting"          -                                     
   [8] "photo"             -                                     
   [9] "to"                | "to"                  [4]           
  [10] "show"              - "better"              [5]           
   ... ...                   ...                   and 7 more ...
  
  `actual$TokVec[[28]]`:   NA                   
  `expected$TokVec[[28]]`: "Alright" "lets" "go"
  
      actual$TokVec[[29]] | expected$TokVec[[29]]               
  [1] "This"              - "By"                  [1]           
  [2] "should"            - "the"                 [2]           
  [3] "help"              - "way"                 [3]           
  [4] "to"                - "are"                 [4]           
  [5] "better"            - "you"                 [5]           
  [6] "quantify"          - "all"                 [6]           
  [7] "WhatsApp"          - "okay"                [7]           
  [8] "chat"              - "with"                [8]           
  [9] "logs"              - "being"               [9]           
                          - "analyzed"            [10]          
  ... ...                   ...                   and 3 more ...
  
  `actual$TokVec[[30]]`:   "Alright" "lets"  "go"           
  `expected$TokVec[[30]]`: "Sure"    "thing" "sounds" "cool"
  
       actual$TokVec[[31]] | expected$TokVec[[31]]               
   [1] "By"                - "Hm"                  [1]           
   [2] "the"               - "I"                   [2]           
   [3] "way"               - "don't"               [3]           
   [4] "are"               - "know"                [4]           
   [5] "you"               - "can"                 [5]           
   [6] "all"               - "the"                 [6]           
   [7] "okay"              - "researchers"         [7]           
   [8] "with"              - "see"                 [8]           
   [9] "being"             - "what"                [9]           
  [10] "analyzed"          - "we've"               [10]          
   ... ...                   ...                   and 3 more ...
  
      actual$TokVec[[32]] | expected$TokVec[[32]]               
  [1] "Sure"              - "No"                  [1]           
  [2] "thing"             - "it's"                [2]           
  [3] "sounds"            - "only"                [3]           
  [4] "cool"              - "metadata"            [4]           
                          - "no"                  [5]           
                          - "media"               [6]           
                          - "voice"               [7]           
                          - "messages"            [8]           
                          - "or"                  [9]           
                          - "text"                [10]          
  ... ...                   ...                   and 3 more ...
  
       actual$TokVec[[33]] | expected$TokVec[[33]]               
   [1] "Hm"                - "Then"                [1]           
   [2] "I"                 - "I'm"                 [2]           
   [3] "don't"             - "okay"                [3]           
   [4] "know"              - "with"                [4]           
   [5] "can"               - "it"                  [5]           
   [6] "the"               -                                     
   [7] "researchers"       -                                     
   [8] "see"               -                                     
   [9] "what"              -                                     
  [10] "we've"             -                                     
   ... ...                   ...                   and 3 more ...
  
       actual$TokVec[[34]] | expected$TokVec[[34]]               
   [1] "No"                - "Sorry"               [1]           
   [2] "it's"              - "guys"                [2]           
   [3] "only"              - "I'm"                 [3]           
   [4] "metadata"          - "not"                 [4]           
   [5] "no"                - "comfortabl"          [5]           
   [6] "media"             - "with"                [6]           
   [7] "voice"             - "this"                [7]           
   [8] "messages"          -                                     
   [9] "or"                -                                     
  [10] "text"              -                                     
   ... ...                   ...                   and 3 more ...
  
      actual$TokVec[[35]] | expected$TokVec[[35]]                
  [1] "Then"              - "No"                  [1]            
  [2] "I'm"               - "problem"             [2]            
  [3] "okay"              - "Dave"                [3]            
  [4] "with"              - "I'll"                [4]            
  [5] "it"                - "paste"               [5]            
                          - "a"                   [6]            
                          - "consent"             [7]            
                          - "form"                [8]            
                          - "after"               [9]            
                          - "this"                [10]           
  ... ...                   ...                   and 30 more ...
  
  `actual$TokVec[[36]]`:   "Sorry" "guys"   "I'm" "not" "comfortabl" "with" "this"
  `expected$TokVec[[36]]`: "Cool"  "thanks"                                       
  
       actual$TokVec[[37]] | expected$TokVec[[37]]                
   [1] "No"                - "I"                   [1]            
   [2] "problem"           - "hereby"              [2]            
   [3] "Dave"              - "consent"             [3]            
   [4] "I'll"              - "to"                  [4]            
   [5] "paste"             - "donate"              [5]            
   [6] "a"                 - "anonimized"          [6]            
   [7] "consent"           - "metainformation"     [7]            
   [8] "form"              - "of"                  [8]            
   [9] "after"             - "this"                [9]            
  [10] "this"              - "conversation"        [10]           
   ... ...                   ...                   and 46 more ...
  
      actual$TokVec[[38]] | expected$TokVec[[38]]                
  [1] "Cool"              - "I"                   [1]            
  [2] "thanks"            - "hereby"              [2]            
                          - "consent"             [3]            
                          - "to"                  [4]            
                          - "donate"              [5]            
                          - "anonimized"          [6]            
                          - "metainformation"     [7]            
                          - "of"                  [8]            
                          - "this"                [9]            
                          - "conversation"        [10]           
  ... ...                   ...                   and 46 more ...
  
       actual$TokVec[[40]] | expected$TokVec[[40]]                
   [1] "I"                 - "Maybe"               [1]            
   [2] "hereby"            - "next"                [2]            
   [3] "consent"           - "time"                [3]            
   [4] "to"                -                                      
   [5] "donate"            -                                      
   [6] "anonimized"        -                                      
   [7] "metainformation"   -                                      
   [8] "of"                -                                      
   [9] "this"              -                                      
  [10] "conversation"      -                                      
   ... ...                   ...                   and 46 more ...
  
  `actual$TokVec[[41]]` is a character vector ('I', 'hereby', 'consent', 'to', 'donate', ...)
  `expected$TokVec[[41]]` is absent
  
  `actual$TokVec[[42]]` is a character vector ('Maybe', 'next', 'time')
  `expected$TokVec[[42]]` is absent
  
  `actual$URL` is length 42
  `expected$URL` is length 40
  
  `actual$URL[[18]]`:   NA                          
  `expected$URL[[18]]`: "https://github.com/JuKo007"
  
  `actual$URL[[19]]`:   NA                                                       
  `expected$URL[[19]]`: "https://github.com/JuKo007" "https://github.com/JuKo007"
  
  `actual$URL[[20]]`:   "https://github.com/JuKo007"
  `expected$URL[[20]]`: NA                          
  
  `actual$URL[[21]]`:   "https://github.com/JuKo007" "https://github.com/JuKo007"
  `expected$URL[[21]]`: NA                                                       
  
  `actual$URL[[22]]`:   NA                                               
  `expected$URL[[22]]`: "https://maps.google.com/?q=50.9425526,6.9523387"
  
  `actual$URL[[24]]`:   "https://maps.google.com/?q=50.9425526,6.9523387"
  `expected$URL[[24]]`: NA                                               
  
  `actual$URL[[41]]` is a character vector (NA)
  `expected$URL[[41]]` is absent
  
  `actual$URL[[42]]` is a character vector (NA)
  `expected$URL[[42]]` is absent
  
  `actual$URL_anon` is length 42
  `expected$URL_anon` is length 40
  
  `actual$URL_anon[[18]]` is a logical vector (NA)
  `expected$URL_anon[[18]]` is a character vector ('https://github.com/')
  
  `actual$URL_anon[[19]]` is a logical vector (NA)
  `expected$URL_anon[[19]]` is a character vector ('https://github.com/', 'https://github.com/')
  
  `actual$URL_anon[[20]]` is a character vector ('https://github.com/')
  `expected$URL_anon[[20]]` is a logical vector (NA)
  
  `actual$URL_anon[[21]]` is a character vector ('https://github.com/', 'https://github.com/')
  `expected$URL_anon[[21]]` is a logical vector (NA)
  
  `actual$URL_anon[[22]]` is a logical vector (NA)
  `expected$URL_anon[[22]]` is a character vector ('https://maps.google.com/')
  
  `actual$URL_anon[[24]]` is a character vector ('https://maps.google.com/')
  `expected$URL_anon[[24]]` is a logical vector (NA)
  
  `actual$URL_anon[[41]]` is a logical vector (NA)
  `expected$URL_anon[[41]]` is absent
  
  `actual$URL_anon[[42]]` is a logical vector (NA)
  `expected$URL_anon[[42]]` is absent
  
      actual$Media               | expected$Media                
  [2] "NA                      " | "NA                      " [2]
  [3] "NA                      " | "NA                      " [3]
  [4] "NA                      " | "NA                      " [4]
  [5] "NA                      " -                               
  [6] "NA                      " -                               
  [7] "PTT-20180129-WA0025.opus" | "PTT-20180129-WA0025.opus" [5]
  [8] "NA                      " | "NA                      " [6]
  [9] "NA                      " | "NA                      " [7]
  
      actual$Media_anon | expected$Media_anon    
  [2] "NA  "            | "NA  "              [2]
  [3] "NA  "            | "NA  "              [3]
  [4] "NA  "            | "NA  "              [4]
  [5] "NA  "            -                        
  [6] "NA  "            -                        
  [7] "opus"            | "opus"              [5]
  [8] "NA  "            | "NA  "              [6]
  [9] "NA  "            | "NA  "              [7]
  
  actual$Location[19:26] vs expected$Location[19:24]
    NA
    NA
    NA
  - NA
  - NA
    "Location: https://maps.google.com/?q=50.9425526,6.9523387"
    "live location shared"
    NA
  
       actual$Location_anon   | expected$Location_anon     
  [19] NA                     | NA                     [19]
  [20] NA                     | NA                     [20]
  [21] NA                     | NA                     [21]
  [22] NA                     -                            
  [23] NA                     -                            
  [24] "Location shared"      | "Location shared"      [22]
  [25] "live location shared" | "live location shared" [23]
  [26] NA                     | NA                     [24]
  
  `actual$Emoji` is length 42
  `expected$Emoji` is length 40
  
  `actual$Emoji[[9]]` is a logical vector (NA)
  `expected$Emoji[[9]]` is a character vector ('😄')
  
  `actual$Emoji[[11]]` is a character vector ('😄')
  `expected$Emoji[[11]]` is a logical vector (NA)
  
  `actual$Emoji[[28]]` is a logical vector (NA)
  `expected$Emoji[[28]]` is a character vector ('😌', '😄')
  
  `actual$Emoji[[30]]` is a character vector ('😌', '😄')
  `expected$Emoji[[30]]` is a logical vector (NA)
  
  `actual$Emoji[[41]]` is a logical vector (NA)
  `expected$Emoji[[41]]` is absent
  
  `actual$Emoji[[42]]` is a logical vector (NA)
  `expected$Emoji[[42]]` is absent
  
  `actual$EmojiDescriptions` is length 42
  `expected$EmojiDescriptions` is length 40
  
  `actual$EmojiDescriptions[[9]]` is a logical vector (NA)
  `expected$EmojiDescriptions[[9]]` is a character vector ('Grinning_Face_with_Smiling_Eyes')
  
  `actual$EmojiDescriptions[[11]]` is a character vector ('Grinning_Face_with_Smiling_Eyes')
  `expected$EmojiDescriptions[[11]]` is a logical vector (NA)
  
  `actual$EmojiDescriptions[[28]]` is a logical vector (NA)
  `expected$EmojiDescriptions[[28]]` is a character vector ('Relieved_Face', 'Grinning_Face_with_Smiling_Eyes')
  
  `actual$EmojiDescriptions[[30]]` is a character vector ('Relieved_Face', 'Grinning_Face_with_Smiling_Eyes')
  `expected$EmojiDescriptions[[30]]` is a logical vector (NA)
  
  `actual$EmojiDescriptions[[41]]` is a logical vector (NA)
  `expected$EmojiDescriptions[[41]]` is absent
  
  `actual$EmojiDescriptions[[42]]` is a logical vector (NA)
  `expected$EmojiDescriptions[[42]]` is absent
  
  `actual$Smilies` is length 42
  `expected$Smilies` is length 40
  
  `actual$Smilies[[1]]` is a character vector (':)')
  `expected$Smilies[[1]]` is a logical vector (NA)
  
  `actual$Smilies[[14]]` is a logical vector (NA)
  `expected$Smilies[[14]]` is a character vector (':)', ':D')
  
  `actual$Smilies[[16]]` is a character vector (':)', ':D')
  `expected$Smilies[[16]]` is a logical vector (NA)
  
  `actual$Smilies[[20]]` is a logical vector (NA)
  `expected$Smilies[[20]]` is a character vector (':)')
  
  `actual$Smilies[[22]]` is a character vector (':)')
  `expected$Smilies[[22]]` is a logical vector (NA)
  
  `actual$Smilies[[24]]` is a logical vector (NA)
  `expected$Smilies[[24]]` is a character vector (':)')
  
  `actual$Smilies[[26]]` is a character vector (':)')
  `expected$Smilies[[26]]` is a logical vector (NA)
  
  `actual$Smilies[[41]]` is a logical vector (NA)
  `expected$Smilies[[41]]` is absent
  
  `actual$Smilies[[42]]` is a logical vector (NA)
  `expected$Smilies[[42]]` is absent
  
  `actual$SystemMessage[38:42]`:   NA NA NA NA NA
  `expected$SystemMessage[38:40]`: NA NA NA      
  
    `actual$TokCount[1:5]`: 1 2 5 3 4
  `expected$TokCount[1:3]`:     5 3 4
  
    `actual$TimeOrder[1:5]`: 4 10 11 12 13
  `expected$TimeOrder[1:3]`:      11 12 13
  
    `actual$DisplayOrder[1:5]`: 4 10 11 12 13
  `expected$DisplayOrder[1:3]`:      11 12 13
  ── Error ('test-WhatsR-tests.R:1327:3'): Plotting Messages ─────────────────────
  Error in `ans[ypos] <- rep(yes, length.out = len)[ypos]`: replacement has length zero
  Backtrace:
       ▆
    1. └─WhatsR::plot_messages(...) at test-WhatsR-tests.R:1327:2
    2.   ├─base::print(output)
    3.   └─ggplot2:::print.ggplot(output)
    4.     ├─ggplot2::ggplot_build(x)
    5.     └─ggplot2:::ggplot_build.ggplot(x)
    6.       └─layout$setup_panel_params()
    7.         └─ggplot2 (local) setup_panel_params(..., self = self)
    8.           └─base::Map(setup_panel_params, scales_x, scales_y)
    9.             └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
   10.               └─ggplot2 (local) `<fn>`(dots[[1L]][[1L]], dots[[2L]][[1L]])
   11.                 └─self$coord$setup_panel_params(scale_x, scale_y, params = self$coord_params)
   12.                   └─ggplot2 (local) setup_panel_params(..., self = self)
   13.                     └─ggplot2:::expand_limits_scale(scale, expansion, coord_limits = limits)
   14.                       └─ggplot2:::expand_limits_discrete(...)
   15.                         └─ggplot2:::expand_limits_discrete_trans(...)
   16.                           └─ggplot2:::expand_limits_continuous_trans(...)
   17.                             └─base::ifelse(is.na(coord_limits), limits, coord_limits)
  
  [ FAIL 4 | WARN 159 | SKIP 0 | PASS 286 ]
  Error: Test failures
  Execution halted