Small change in C03Ca_ml_wine

Author: phgrosjean

inst/shiny/C00Sa_histogram/app.R …/shiny/C00Sa_histogram/app.R.inactivatedinst/shiny/C00Sa_histogram/app.R renamed to inst/shiny/C00Sa_histogram/app.R.inactivated inst/shiny/C00Sa_histogram/app.R renamed to inst/shiny/C00Sa_histogram/app.R.inactivated

@@ -29,7 +29,7 @@ if (!file.exists(dir))
   dir <- "~/C03_challenge" # Alternate dir for local tests
 database <- file.path(dir, "wine.sqlite")
 table <- "wines"
-wine2quality <- read$rds(file.path(dir, "wine2quality.rds"))$value
+wine2quality <- read$rds(file.path(dir, "wine2quality.rds"))
 
 # Is the countdown over?
 is_done <- function()