[R] A tibble with date column appears different in shiny

[Gayathri Nagarajan]

Hi Rui

Alas, at last this worked and this is what I did :

1) I stopped debugging and started a fresh new table to display in shiny UI
using this example-https://shiny.rstudio.com/gallery/basic-datatable.html
2) Now instead of the table mpg, I plugged in my us_counties above at first
and it worked :-)

I really don't have an answer as to how this was working fine till 2 days
back with the reactive inputs I had in Shiny UI or the read.csv
<https://stackoverflow.com/questions/14441729/read-a-csv-from-github-into-r>
command for the .csv file in GITHUB.


Thanks so much to you for your help as you tried to relentlessly help me
out the past three days.
*So the conclusion is - Starting afresh with DT::dataTableOutput solved the
issue*

*Code  change*
*===============*

In UI.R:
    tabPanel(strong("Table"),DT::dataTableOutput("dumtable"))

In Server.R
output$dumtable <- DT::renderDataTable(DT::datatable({
     data <- us_counties
       data <- data[data$state == input$state,]


       data <- data[data$county == input$county,]

       data <- data[data$date >= input$date2,]

        head(data,n=input$obs)
   }))
   ====================



Regards
Gayathri


On Thu, 4 Mar 2021 at 21:51, Gayathri Nagarajan <
gayathri.nagarajan using gmail.com> wrote:

> Hi Rui
>
> Tried renderDatatable, but now my shiny UI shows Blank for my tibble. Not
> sure what Iam missing suddenly when this was working fine a day back.
>
> The one change I did was:
>
> x <- getURL("
> https://raw.githubusercontent.com/nytimes/covid-19-data/master/us-counties.csv
> ")
> us_counties <- read.csv(text = x)
>
> Error in function (type, msg, asError = TRUE)  :
>   error:1407742E:SSL routines:SSL23_GET_SERVER_HELLO:tlsv1 alert protocol
> version
>
> Hence had to change this to :
>
>
>   urlfile="
> https://raw.githubusercontent.com/nytimes/covid-19-data/master/us-counties.csv
> "
>   #GN added 3/3
>   #GN comment 3/4
>   #us_counties<-read_csv(url(urlfile),col_types = list(date = col_date()))
>   #GN Add 3/4
>   #GN added 3/3
>   cols_spec <- cols(
>     date = col_date(format = ""),
>     county = col_character(),
>     state = col_character(),
>     fips = col_character(),
>     cases = col_double(),
>     deaths = col_double()
>   )
>
>   us_counties <- read_csv(url(urlfile), col_types = cols_spec)
>  ===========================
>
>
> Regards
> Gayathri
>
>
> On Thu, 4 Mar 2021 at 08:41, Rui Barradas <ruipbarradas using sapo.pt> wrote:
>
>> Hello,
>>
>> This is a known issue with renderTable. Show the results with
>> renderDataTable instead.
>>
>> Hope this helps,
>>
>> Rui Barradas
>>
>> Às 15:24 de 03/03/21, Gayathri Nagarajan escreveu:
>> > Hi Team
>> >
>> > I have a tibble like the below :
>> >
>> > class(us_counties)
>> > [1] "tbl_df"     "tbl"        "data.frame"
>> >
>> > head(us_counties)
>> > # A tibble: 6 x 8
>> >    date       deaths Todays_deaths county state fips
>> >    <date>      <dbl>         <dbl> <chr>  <chr> <chr>
>> > 1 2020-03-19      0             0 Abbev~ Sout~ 45001
>> > 2 2020-03-20      0             0 Abbev~ Sout~ 45001
>> > 3 2020-03-21      0             0 Abbev~ Sout~ 45001
>> > 4 2020-03-22      0             0 Abbev~ Sout~ 45001
>> > 5 2020-03-23      0             0 Abbev~ Sout~ 45001
>> > 6 2020-03-24      0             0 Abbev~ Sout~ 45001
>> >
>> > str(us_counties)
>> > tibble [1,082,715 x 8] (S3: tbl_df/tbl/data.frame)
>> >   $ date         : Date[1:1082715], format: "2020-03-19" ...
>> >   $ deaths       : num [1:1082715] 0 0 0 0 0 0 0 0 0 0 ...
>> >   $ Todays_deaths: num [1:1082715] 0 0 0 0 0 0 0 0 0 0 ...
>> >   $ county       : chr [1:1082715] "Abbeville" "Abbeville" "Abbeville"
>> > "Abbeville" ...
>> >   $ state        : chr [1:1082715] "South Carolina" "South Carolina"
>> "South
>> > Carolina" "South Carolina" ...
>> >   $ fips         : chr [1:1082715] "45001" "45001" "45001" "45001" ...
>> >   $ cases        : num [1:1082715] 1 1 1 1 1 1 3 4 4 4 ...
>> >   $ Todays_cases : num [1:1082715] 0 0 0 0 0 0 0 0 0 0 ...
>> >   - attr(*, "spec")=
>> >    .. cols(
>> >    ..   date = col_date(format = ""),
>> >    ..   county = col_character(),
>> >    ..   state = col_character(),
>> >    ..   fips = col_character(),
>> >    ..   cases = col_double(),
>> >    ..   deaths = col_double()
>> >    .. )
>> >   - attr(*, ".internal.selfref")=<externalptr>
>> >>
>> >
>> >
>> >
>> > Now when I display this in shiny UI using a simple  command:
>> >
>> >
>> >     # Generate an HTML table view of the data ----
>> >     output$ttable <- renderTable({
>> >         head(us_counties
>> >              , n = input$obs)
>> >     })
>> >
>> >
>> > I get a display like the below
>> >
>> > datedeathsTodays_deathscountystatefipscasesTodays_cases
>> > 18679.00 34.00 0.00 Abbeville South Carolina 45001 2184.00 0.00
>> > 18680.00 34.00 0.00 Abbeville South Carolina 45001 2191.00 0.00
>> > 18681.00 34.00 0.00 Abbeville South Carolina 45001 2192.00 0.00
>> >
>> > This is the change I made
>> >
>> > old code
>> > ========
>> >   #x <- getURL("
>> >
>> https://raw.githubusercontent.com/nytimes/covid-19-data/master/us-counties.csv
>> > ")
>> >    #us_counties <- read.csv(text = x)
>> >    # 855612 Rows , 6 columns class(us_counties)
>> >
>> >
>> > this stopped working, so I changed to below
>> >
>> >
>> >    urlfile="
>> >
>> https://raw.githubusercontent.com/nytimes/covid-19-data/master/us-counties.csv
>> > "
>> >    #GN added 3/3
>> >    us_counties<-read_csv(url(urlfile),col_types = list(date =
>> col_date()))
>> >
>> >   Please let me know how to correct this
>> >
>> > Regards
>> > Gayathri
>> >
>> >       [[alternative HTML version deleted]]
>> >
>> > ______________________________________________
>> > R-help using r-project.org mailing list -- To UNSUBSCRIBE and more, see
>> > https://stat.ethz.ch/mailman/listinfo/r-help
>> > PLEASE do read the posting guide
>> http://www.R-project.org/posting-guide.html
>> > and provide commented, minimal, self-contained, reproducible code.
>> >
>>
>

	[[alternative HTML version deleted]]