Ошибка в plot.new (): слишком большие поля рисунка в блестящем приложении

Question

Я получаю это сообщение об ошибке: «Ошибка в plot.new (): слишком большие поля рисунка», когда пытаюсь запустить блестящее приложение. В других вопросах я видел, что проблема исходит из измерения. (par = ...) Но я не могу найти решение, когда оно появляется в блестящем приложении.

Вот моя серверная часть:

work_dir_3 <- "C:\\Users\\François\\Desktop\\SHINY"
setwd(work_dir_3)
getwd()

source("procedure_finale_shiny.R", local = TRUE)

#res1 = as.data.frame(procedure_finale_shiny(0.3,0.3,0.1,0.1,0.2,c(30,50,60,70,80),c(1,2,3,4))[[1]]) 
#res2 = as.data.frame(procedure_finale_shiny(0.3,0.3,0.1,0.1,0.2,c(30,50,60,70,80),c(1,2,3,4))[[2]])

server <- function(input, output, session) {

  source("procedure_finale_shiny.R", local = TRUE)

  results <- eventReactive(input$calculate, {
    procedure_finale_shiny(
      input$SliderAlpha1, input$SliderAlpha2, input$SliderAlpha3, input$SliderAlpha4, input$SliderAlpha5,
      c(input$SliderRatio1, input$SliderRatio2,input$SliderRatio3, input$SliderRatio4, input$SliderRatio5),
      as.numeric(input$ModeleFinder))
  })

  output$tab_res <- renderDataTable({ results()[[1]] })
  output$best_mod <- renderDataTable({ results()[[2]] })


  output$downloadData1 <- downloadHandler(
    filename = function(file.type = input$Export1) {
      if (file.type == "csv"){
        str <- "my_data.csv"
      }else if (file.type == "texte"){
        str <- "my_data.txt"
      }
      #else if()...etc
      return(str)
    },

    content = function(con){

      my_data <- results()[[1]]

      # input$Export1 is again used in this if-else block to use the 
      # correct function to write the data
      if (input$Export1 == "csv"){
        write.csv(my_data, con, row.names=FALSE)
      }else if (input$Export1 == "texte"){
        write.table(my_data, con)
      }
      #else if...etc

    }

  )

  Base_shiny <- read.csv("base_de_donnees\\Main_Learning_Base_corr.csv" , header = T)

  output$base_donnees <- renderPrint({
    if(input$Display1 == "head"){

      print(head(Base_shiny))
    } 

    if(input$Display1 == "str"){

      print(str(Base_shiny))
    } 

    if(input$Display1 == "summary"){

      print(summary(Base_shiny))
    } 

  })

  Base_shiny_2 <- Base_shiny[,-c(1:4)]

  Base_shiny_3 <- pairs(data.matrix(Base_shiny_2))

  output$graph_sortie <- renderPlot({

    if(input$Display2 == "Modele 1"){

      plot(Base_shiny_3[1,], type='o', xlab="Indice n", ylab = "Valeurs de la série temporelle")
    } 


  })


}

Я пытаюсь построить этот элемент: Base_shiny_3

Заранее спасибо!