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:
> I have a tibble like the below :
> [1] "tbl_df"? ? ?"tbl"? ? ? ? "data.frame"
>? ? 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
> 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"
>? ?$ state? ? ? ? : chr [1:1082715] "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 ...
>? ? ..? ?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
>? ? #us_counties <- read.csv(text = x)
>? ? # 855612 Rows , 6 columns class(us_counties)
> this stopped working, so I changed to below
>? ? us_counties<-read_csv(url(urlfile),col_types = list(date =
>? ?Please let me know how to correct this
>? ? ? ?[[alternative HTML version deleted]]
> ______________________________________________