R闪亮&x2014；上传前检查文件大小？

我想阻止用户上传超出服务器内存的文件。上传前是否有办法检查文件大小

大概是这样的：

library(shiny)

ui <- fluidPage(
  fileInput("file", "Big file")
)

server <- function(input, output, session) {
  observeEvent(input$file, {
      if(size > max_size) { # how do I do this part?
          showNotification("File is too big", type = "error")
      }
  })
}

shinyApp(ui, server)

库（闪亮）
uiYes在
服务器
函数的第一行添加这样一行：
options（shinny.maxRequestSize=30*1024^2）
例如，这会将上载文件大小限制为30MB

所以它应该看起来像：

...
server <- function(input, output, session) {
    options(shiny.maxRequestSize=30*1024^2)
...


。。。
服务器我想在用户上传大文件时给他们一个自定义通知。当超过
maxRequestSize
时，是否有方法触发响应函数？我不确定，但函数
file.info（“filename”）$size
可能会对您有所帮助，这将返回给定文件的大小，然后将其与
shinny.maxRequestSize