Hello,
In
us_counties <- read.csv(text = x)
remove 'text=', you are reading from a url, not from a text string.
Hope this helps,
Rui Barradas
----- Mensagem de Gayathri Nagarajan <gayathri.nagara...@gmail.com> ---------
Data: Thu, 4 Mar 2021 21:51:05 -0800
De: Gayathri Nagarajan <gayathri.nagara...@gmail.com>
Assunto: Re: [R] A tibble with date column appears different in shiny
Para: Rui Barradas <ruipbarra...@sapo.pt>
> 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 <ruipbarra...@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@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.
>>
>> >
----- Fim da mensagem de Gayathri Nagarajan
<gayathri.nagara...@gmail.com> -----
[[alternative HTML version deleted]]
______________________________________________
R-help@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.
