r - 光沢のある入力/出力でベクトルを読み取るにはどうすればよいですか?

Question

線形回帰を使用して光沢のあるアプリを作成しています。入力/出力関数に問題があるため、ユーザーが比較する変数を選択できるようにするため、SelectInput を使用します。しかし問題は、入力/出力が csv ファイルからの値を取得しないことです。どうすれば解決できますか？

コードは次のとおりです。

datos <- read.csv("C:/Users/jerez/OneDrive/Escritorio/UAL/Datos1.csv", sep=";", header = TRUE, stringsAsFactors = FALSE)

ui <- fluidPage(
  headerPanel("Analisis de Regresion"), 
  sidebarPanel(
    #Eleccion de variable x
    p("Selecciona la primera variable a comparar"),
    selectInput(inputId = "varX", label = "Variable eje X", multiple = FALSE, choices = list("NumBusquedas", "FrecuenciaAsistente", "FrecuenciasCorreos", "NumMensajes", "FreqDiscover", "NumUsosApp", "NumPublicidad","NumSuscripciones","NumBusquedasYoutube")),
    #Eleccion de variable y
    p("Selecciona la segunda variable a comparar"),
    selectInput(inputId = "varY", label = "Variable eje Y", multiple = FALSE, choices = list("NumBusquedas", "FrecuenciaAsistente", "FrecuenciasCorreos", "NumMensajes", "FreqDiscover", "NumUsosApp", "NumPublicidad","NumSuscripciones","NumBusquedasYoutube"))
  ),
  mainPanel(
    #verbatimTextOutput(outputId = "Datos"),
    verbatimTextOutput(outputId = "X"),
    verbatimTextOutput(outputId = "Y"),
    verbatimTextOutput(outputId = "coefCorr"),
    plotOutput(outputId = "Grafico")
    
   
    
  )
)

server <- function(input, output) {
  
  output$coefCorr <- renderPrint(cor(input$varX, input$varY))
  output$Grafico <- renderPlot(ggplot(datos, aes(input$varX, input$varY)))
  output$X <- renderPrint({input$varX})
  output$Y <- renderPrint({input$varY})
  
}
# Run the application 
shinyApp(ui = ui, server = server)

結果は次のとおりです。

ありがとうございました！:)