Rui Barradas
2021-Mar-04 16:40 UTC
[R] A tibble with date column appears different in shiny
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 at 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. >
Gayathri Nagarajan
2021-Mar-05 05:51 UTC
[R] A tibble with date column appears different in shiny
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 at 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 at 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]]