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

[Gayathri Nagarajan]

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]]