Question

我正在通过闪亮开发一个Web应用程序。

我正在尝试使用闪亮的fileinput（）上传我的文件。

我的代码正常运行。我最初尝试上传1.38KB的文件并且工作正常。

稍后当我尝试上传大约1.58MB的文件时，它会抛出一个错误，

>   >      <html>  <head><title>413 Request Entity Too Large</title></head>  <body bgcolor="white">  <center><h1>413 Request
> Entity Too Large</h1></center>  <hr><center>nginx/1.12.1</center> 
> </body>

任何人都可以帮助我，我怎么能避免这个错误？

以下是我正在使用的Ui和服务器的代码。

ui <- fluidPage(

  # App title ----
  titlePanel("Uploading Files"),

  # Sidebar layout with input and output definitions ----
  sidebarLayout(

    # Sidebar panel for inputs ----
    sidebarPanel(

      # Input: Select a file ----
      fileInput("file1", "Choose CSV File",
                multiple = TRUE,
                accept = c("text/csv",
                           "text/comma-separated-values,text/plain",
                           ".csv")),

      # Horizontal line ----
      tags$hr(),

      # Input: Checkbox if file has header ----
      checkboxInput("header", "Header", TRUE),

      # Input: Select separator ----
      radioButtons("sep", "Separator",
                   choices = c(Comma = ",",
                               Semicolon = ";",
                               Tab = "\t"),
                   selected = ","),

      # Input: Select quotes ----
      radioButtons("quote", "Quote",
                   choices = c(None = "",
                               "Double Quote" = '"',
                               "Single Quote" = "'"),
                   selected = '"'),

      # Horizontal line ----
      tags$hr(),

      # Input: Select number of rows to display ----
      radioButtons("disp", "Display",
                   choices = c(Head = "head",
                               All = "all"),
                   selected = "head")

    ),

    # Main panel for displaying outputs ----
    mainPanel(

      # Output: Data file ----
      tableOutput("contents")

    )

  )
)

服务器代码

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

  output$contents <- renderTable({

    # input$file1 will be NULL initially. After the user selects
    # and uploads a file, head of that data file by default,
    # or all rows if selected, will be shown.

    req(input$file1)

    df <- read.csv(input$file1$datapath,
                   header = input$header,
                   sep = input$sep,
                   quote = input$quote)

    if(input$disp == "head") {
      return(head(df))
    }
    else {
      return(df)
    }

  })

}

从网上，我还发现我可以增加容量，并在我的服务器功能上面添加了一段代码。

编辑：添加错误的控制台

Answer 1

更改你的maxrequestsize并输入：

options(shiny.maxRequestSize=30*1024^2)

希望有所帮助

编辑：

30表示mb，所以如果你上传超过5 mb你需要使用它，但如果你的文件少于5，不要把它放在上面，因为闪亮的默认上传大小是5mb。

编辑2：

尝试使用DT包（交互式表）： install.packages("DT")

然后在服务器上更改代码并将库（DT）放在shinyServer：

之前

`output$tb = DT::renderDataTable({
      req(input$file1)

      df <- read.csv(input$file1$datapath,
               header = input$header,
               sep = input$sep,
               quote = input$quote)
        if(input$disp == "head") {
           return(head(df))
        }
        else {
           return(df)
        }
    })`

Answer 2

我正在使用AWS环境，但在我的帖子中未提及。

这是我的错误的原因。参数client_max_body_size最初为1MB，仅限于上传我的文件。

当我将其增加到50MB时，我可以上传更大的文件。

要添加，如果您要终止实例，此配置将失败。

使用Shiny

2 个答案: