R 应用程序错误源调试

我正在加载一个闪亮的应用程序，该应用程序使用基于csv文件构建的逻辑回归模型中的新输入变量来呈现风险。对调试有什么想法吗？加载应用程序时的错误消息如下：

ERROR: Error sourcing C:\Users\Vincent\AppData\Local\Temp\RtmpATsPEW\filef604271fa   with such message on the R studio console : 
Warning in checkEncoding(file) :
  The input file C:/Users/Vincent/Documents/R Apprentissage/Applications Shiny/Prediction insuffisance renale aigue chez les ileostomises.R/Prediction IRA chez ileostomises.R does not seem to be encoded in UTF8
Warning: invalid input found on input connection 'C:/Users/Vincent/Documents/R Apprentissage/Applications Shiny/Prediction insuffisance renale aigue chez les ileostomises.R/Prediction IRA chez ileostomises.R'
Error in parse(file, keep.source = FALSE, srcfile = src, encoding = enc) : 
  C:/Users/Vincent/Documents/R Apprentissage/Applications Shiny/Prediction insuffisance renale aigue chez les ileostomises.R/Pr:5:14: unexpected INCOMPLETE_STRING
4: ui <- fluidPage(
5:   titlePanel("Pr
                ^
Warning: Error in sourceUTF8: Error sourcing C:\Users\Vincent\AppData\Local\Temp\RtmpATsPEW\filef604271fa
Stack trace (innermost first):
    1: runApp
Error : Error sourcing C:\Users\Vincent\AppData\Local\Temp\RtmpATsPEW\filef604271fa

ERROR:ERROR-sourceing C:\Users\Vincent\AppData\Local\Temp\RtmpATsPEW\filef604271fa，在R studio控制台上显示这样的消息：
checkEncoding（文件）中的警告：
输入文件C:/Users/Vincent/Documents/R Apprentissage/Applications shinny/Prediction infficience renale aigue chez les ileostomises.R/Prediction IRA chez ileostomises.R似乎没有用UTF8编码
警告：在输入连接“C:/Users/Vincent/Documents/R apprenticessage/Applications/Prediction infficience renale aigue chez les ileostomises.R/Prediction IRA chez ileostomises.R”上发现无效输入
分析错误（file，keep.source=FALSE，srcfile=src，encoding=enc）：
C:/Users/Vincent/Documents/R Approvising/Applications Shirning/Prediction Infficience renale aigue chez les ileostomises.R/Pr:5:14：意外不完整字符串
4:ui您的ui中的特殊字符编码似乎有问题。确保使用utf8编码保存文件。
请看这里：

我将您的代码复制到RStudio中的一个文件中，并使用UTF-8编码保存它。它是这样工作的

希望能有所帮助。
关于Rstudio：

转到左上角的文件

选择“使用编码保存”

选择UTF-8

对所有R脚本（server.R/app.R）执行此操作

这对我很有效。
我也遇到了同样的错误。我意识到这是因为有一个不匹配的开头括号。您可以转到顶部栏菜单上的“代码”并选择“显示诊断（项目）”以确定哪一行中有开口括号。
希望这有帮助

 ui <- fluidPage(
  titlePanel("Prédiction d'insuffisance rénale aiguë chez les iléostomisés"),
   sidebarLayout(
     sidebarPanel(

  checkboxGroupInput("checkboxGroup1", "Cancer colorectal", 
                     choices = list("Absente" = 1, 
                                    "Présente" = 2),
                     selected = 1),

  checkboxGroupInput("checkboxGroup2", "Maladie cardiovasculaire", 
                     choices = list("Absente" = 1, 
                                    "Présente" = 2),
                     selected = 1),

  checkboxGroupInput("checkboxGroup3", "Maladie thrombo-embolique veineuse", 
                     choices = list("Absente" = 1, 
                                    "Présente" = 2),
                     selected = 1),

  checkboxGroupInput("checkboxGroup4","Démence", 
                     choices = list("Absente" = 1, 
                                    "Présente" = 2),
                     selected = 1),

  checkboxGroupInput("checkboxGroup5","Résection rectale antérieure", 
                     choices = list("Absente" = 1, 
                                    "Présente" = 2),
                     selected = 1),

  checkboxGroupInput("checkboxGroup6","Hémicolectomie gauche", 
                     choices = list("Absente" = 1, 
                                    "Présente" = 2),
                     selected = 1),

  checkboxGroupInput("checkboxGroup7","Chimiothérapie per iléostomie", 
                     choices = list("Absente" = 1, 
                                    "Présente" = 2),
                     selected = 1),

  checkboxGroupInput("checkboxGroup8","Iléostomie à haut débit", 
                     choices = list("Absente" = 1, 
                                    "Présente" = 2),
                     selected = 1),

  checkboxGroupInput("checkboxGroup9","Deshydratation", 
                     choices = list("Absente" = 1, 
                                    "Présente" = 2),
                     selected = 1),

  sliderInput("slider1","Créatininémie pré-opératoire", min = 20, max = 400, value = 100),

  sliderInput("slider2", "Age", min = 0, max = 100, value = 50)
),

  mainPanel(
tabPanel("Probabilité de développer une insuffisance rénale aiguë",textOutput("pred1")))
 ))



data_app <- read.csv("./data/DatasetpourShiny", header = TRUE, sep = ";", quote = "\"", dec = ",", fill = TRUE)
server <- function(input, output) {

  model1 <- glm(Augmentation.creat.26.umolL.en.48H ~ 
              Cancer.colique.ou.rectal + 
              ATCD.maladie.cardiovasculaire +
              ATCD.MTEV +
              Demences +
              Resection.anterieure.rectum +
              Type.colectomie_2 +
              Chimio.porteur.ileostomie +
              Stomie.a.haut.debit +
              Deshydratation.post.op +
              Creatininemie.pre.operatoire +
              Age, family= "binomial", data = data_app)

  model1pred <- reactive ({
Cancer.colique.ou.rectalInput <- input$checkboxGroup1  
ATCD.maladie.cardiovasculaireInput <- input$checkboxGroup2
ATCD.MTEVInput <- input$checkboxGroup3
DemencesInput <- input$checkboxGroup4
Resection.anterieure.rectumInput <- input$checkboxGroup5
Type.colectomie_2Input <- input$checkboxGroup6
Chimio.porteur.ileostomieInput <- input$checkboxGroup7
Stomie.a.haut.debitInput <- input$checkboxGroup8
Deshydratation.post.opInput <- input$checkboxGroup9
Creatininemie.pre.operatoireInput <- input$slider1
AgeInput <- input$slider2

    predict(model1, 
        newdata = data.frame(
          Cancer.colique.ou.rectal =  Cancer.colique.ou.rectalInput,
          ATCD.maladie.cardiovasculaire = ATCD.maladie.cardiovasculaireInput,
          ATCD.MTEV = ATCD.MTEVInput,
          Demences = DemencesInput,
          Resection.anterieure.rectum = Resection.anterieure.rectumInput,
          Type.colectomie_2 = Type.colectomie_2Input,
          Chimio.porteur.ileostomie  =  Chimio.porteur.ileostomieInput,
          Stomie.a.haut.debit = Stomie.a.haut.debitInput,
          Deshydratation.post.op = Deshydratation.post.opInput,
          Creatininemie.pre.operatoire = Creatininemie.pre.operatoireInput,
          Age = AgeInput
        ))
  })
  output$pred1 <- rendertext({
exp(model1pred())/(1+exp(model1pred()))*100
  })
 }



shinyApp(ui = ui, server = server)