A tibble with date column appears different in shiny
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 at 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 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("
") #us_counties <- read.csv(text = x) # 855612 Rows , 6 columns class(us_counties) this stopped working, so I changed to below urlfile="
" #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.