r - ggplot2 スムーズ関数が機能しないのはなぜですか?

Question

R Shiny と ggplot2 を使用して、データセットの単純なグラフを作成しようとしています。プロットは問題ありませんが、滑らかにするためのチェック ボックスをクリックすると、グラフに何も起こりません。ここでは stat_smooth() を使用しています。別の問題 (これとは関係ありません) は、ユーザーが大きなファイルをアップロードできるように「options(shiny.maxRequestSize=-1)」を追加したにもかかわらず、5 を超えるファイルをアップロードしようとすると、プログラムでエラーが発生することです。 MB (クラッシュするだけです)。これに関するアイデアはありますか？これが私のコードです：

ui.R

dataset <- list('Upload a file'=c(1))

shinyUI(pageWithSidebar(



  sidebarPanel(


    fileInput('file', 'Data file'),
    radioButtons('format', 'Format', c('CSV', 'TSV')),

    checkboxInput('smooth', 'Smooth')
  )



  mainPanel( 
      plotOutput("plot")
  )
)

サーバー.R

library(ggplot2)
#Increase max upload size 
options(shiny.maxRequestSize=-1)

shinyServer(function(input, output, session) {

data <- reactive({

    if (is.null(input$file))
      return(NULL)
    else if (identical(input$format, 'CSV'))
      return(read.csv(input$file$datapath))
    else
      return(read.delim(input$file$datapath))
  })

  observe({
    df <- data()
    str(names(df))
    if (!is.null(df)) {
      updateSelectInput(session, 'x', choices = names(df))
      updateSelectInput(session, 'y', choices = names(df))

    }
  })

output$plot <- renderPlot({ #Basic Plot

    if (is.null(data()))
      return(NULL)


    p <- ggplot(data(), aes_string(x=input$x, y=input$y)) + 
         geom_point(size = 3) 

    if (input$smooth)
      p <- p + stat_smooth()


    print(p)


  })
       }