Bonjour a tous,
J'ai réalisé une application sous shiny qui fonctionne très bien en local.
L'objet est de faire une prédiction d'un prix d’après un model (lm) calculé a partir d'un fichier CSV de référence.
C'est lors du déploiement que le bas blesse.
Mon ui.R s'affiche dans la page web mais je suis déconnecté du server. Le message suivant s'affiche sur la page web avec mon application grisé en fond:
Disconneted from the server
Reload

Dans la console R j'ai le message d'erreur suivant:
Warning message:
Error detecting locale: Error in read.table(file = file, header = header, sep = sep, quote = quote, : incomplete final line found by readTableHeader on 'raw'
(Using default: en_US)
Je pense que c'est un souci au niveau de l'import de mon fichier de référence qui pose problème. Je ne maitrise pas trop le fonctionnement de shiny je me demande comment on peux charger dans l'application ce fichier de référence.
Dans ma version local il le trouve sur mon ordinateur. Je ne sais pas comment faire pour le charger sur le cloud et ensuite l'appeler pour calculer le model.

Voici mon code:


server.R

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
function(input, output){
  gilles<-read.csv("C:/AirBnb_App/base regression.csv",sep = ",")
 
 
  Model_Final<-lm(prix_quanti~
                    AirConditioning+nettoyage_quanti+garantie_quanti +FreeParkingonPremises+ElevatorinBuilding +facebook + nb_sdb_quanti+nb_accomodate_quanti+nb_chambre_quanti +invite_quanti+room_type+require_guest_phone_verification +dispo_30, data=gilles[,-1])
 
 
  pred<-reactive({
    AirConditioning_Input<-input$AirConditioning
    FreeParkingonPremises_Input<-input$FreeParkingonPremises
    ElevatorinBuilding_Input<-input$ElevatorinBuilding
    facebook_Input<-input$facebook
    require_guest_phone_verification_Input<-input$require_guest_phone_verification
    room_type_Input<-input$room_type
    dispo_30_Input<-input$dispo_30
    nettoyage_quanti_Input<-input$nettoyage_quanti
    garantie_quanti_Input<-input$garantie_quanti
    nb_sdb_quanti_Input<-input$nb_sdb_quanti
    nb_accomodate_quanti_Input<-input$nb_accomodate_quanti
    nb_chambre_quanti_Input<-input$nb_chambre_quanti
    invite_quanti_Input<-input$invite_quanti
 
 
 
    predict(Model_Final,newdata = data.frame(AirConditioning=AirConditioning_Input,
                                             nettoyage_quanti=nettoyage_quanti_Input,
                                             garantie_quanti=garantie_quanti_Input,
                                             FreeParkingonPremises=FreeParkingonPremises_Input,
                                             ElevatorinBuilding=ElevatorinBuilding_Input,
                                             facebook=facebook_Input,
                                             nb_sdb_quanti=nb_sdb_quanti_Input,
                                             nb_accomodate_quanti=nb_accomodate_quanti_Input,
                                             nb_chambre_quanti=nb_chambre_quanti_Input,
                                             invite_quanti=invite_quanti_Input,
                                             room_type=room_type_Input,
                                             require_guest_phone_verification=require_guest_phone_verification_Input,
                                             dispo_30=dispo_30_Input))})
 
  output$Prix_Conseille<-renderText(c({round(pred(),digits = 0)},"Euros."))

Merci beaucoup pour vos retours d'expertise