Creates a list of basic information about a single 'WhatsApp' chat log

summarize_chat(data, exclude_sm = FALSE)

Arguments

data

A 'WhatsApp' chat log that was parsed with parse_chat.

exclude_sm

If TRUE, excludes the 'WhatsApp' system messages from the descriptive statistics. Default is FALSE.

Value

A list containing:

1) The number of messages in the chat

2) The number of tokens in the chat

3) The number of participants in the chat

4) The date of the first message

6) The date of the last message

7) The total duration of the chat

8) The number of system messages in the chat

9) The number of emoji in the chat

10) The number of smilies in the chat

11) The number of links in the chat

12) The number of media in the chat

12) The number of locations in the chat

Examples

data <- readRDS(system.file("ParsedWhatsAppChat.rds", package = "WhatsR"))
summarize_chat(data)
#> $NumberOfMessages
#> [1] 50
#> 
#> $NumberOfTokens
#> [1] 382
#> 
#> $NumberOfParticipants
#> [1] 6
#> 
#> $StartDate
#> [1] "2018-01-29 12:24:00 UTC"
#> 
#> $EndDate
#> [1] "2018-01-30 00:23:00 UTC"
#> 
#> $TimeSpan
#> Time difference of 11.98333 hours
#> 
#> $NumberOfSystemMessages
#> [1] 8
#> 
#> $NumberOfEmoji
#> [1] 3
#> 
#> $NumberOfSmilies
#> [1] 4
#> 
#> $NumberOfLinks
#> [1] 4
#> 
#> $NumberOfMedia
#> [1] 1
#> 
#> $NumberOfLocation
#> [1] 2
#>