Uploading WhatsApp data to Shiny

dkxmen commented 3 years ago

Hi, I am creating an App where a User can upload data to Shiny. I have tried researching on how I can do that but I always get an error.

Warning in rwhatsapp::rwa_read(input$file$datapath) : Time conversion did not work correctly. Provide a custom format or add an issue at www.github.com/JBGruber/rwhatsapp. Warning: Error in is.finite: default method not implemented for type 'list' 108: formatC 106: print.xtable 97: transform 96: func 94: f 93: Reduce 84: do 83: hybrid_chain 82: origRenderFunc 81: output$head 1: runApp

What could be the issue, or how can I go about it.

JBGruber commented 3 years ago

This error usually indicates that the time in your file is provided in an unsupported format. I'm adding new formats as I discover them, so if you send me 3-4 lines from your file I can probably do that quickly.

I don't think the Shiny part should cause any trouble but you should try to read the file normally first anyway.

dkxmen commented 3 years ago

	time	author	text	source	id	emoji	emoji_name
1	6/8/2020 21:52	NA	Messages and calls are end-to-end encrypted. No one outside of this chat, not even WhatsApp, can read or listen to them. Tap to learn more.	D:\Work\My_Proj\R Proj\Sentiment\Data\Nyandarua\Githioro_1st_parliament.txt	1

I believe I have found out where the issue was. I need to first upload it as a normal txt, then read it using rwa_read. The time periods is in 24 hrs, but is datetime format as you will see in the poreview.

JBGruber commented 3 years ago

You can also pass the text directly to rwhatsapp. Would that solve your problem?

library(rwhatsapp)
history <- system.file("extdata", "sample.txt", package = "rwhatsapp")
lines <- readLines(history)
rwa_read(lines)
#> # A tibble: 9 x 6
#>   time                author    text                    source emoji  emoji_name
#>   <dttm>              <fct>     <chr>                   <chr>  <list> <list>    
#> 1 2017-07-12 22:35:17 <NA>      "Messages to this grou… text … <NULL> <NULL>    
#> 2 2017-07-12 22:35:17 <NA>      "You created group \"T… text … <NULL> <NULL>    
#> 3 2017-07-12 22:35:17 Johannes… "<Media omitted>"       text … <NULL> <NULL>    
#> 4 2017-07-12 22:35:17 Johannes… "Fruit bread with ched… text … <chr … <chr [2]> 
#> 5 2017-07-13 09:12:17 Test      "It's fun doing text a… text … <NULL> <NULL>    
#> 6 2017-07-13 09:16:17 Johannes… "Haha it sure is 😅"    text … <chr … <chr [1]> 
#> 7 2018-09-28 13:27:17 Johannes… "Did you know there is… text … <NULL> <NULL>    
#> 8 2018-09-28 13:28:17 Johannes… "😀😃😄😁😆😅😂🤣☺😊😇🙂🙃😉😌😍😘😗😙😚😋… text … <chr … <chr [242…
#> 9 2018-09-28 13:30:17 Johannes… "🤷‍♀🤷🏻‍♂🙎‍♀🙎‍♂🙍‍♀🙍‍♂💇‍…        text … <chr … <chr [87]>

^{Created on 2020-12-01 by the reprex package (v0.3.0)}

JBGruber commented 3 years ago

Since I haven't heard anything in a while, I'm closing this. Let me know if you need further help.

JBGruber / rwhatsapp

Uploading WhatsApp data to Shiny #21