问管道工找不到请求正文

EN

#app.R
library(plumber)
library(tidyverse)

port <- Sys.getenv('PORT')

pr <- plumb("plumber.R")

pr$run(
  host = '0.0.0.0',
  port = as.numeric(port)
)

library(plumber)
library(tidyverse)
#* Log some information about the incoming request
#* @filter logger
function(req){
  print('LOGGER')
  print( req)
  cat(as.character(Sys.time()), "-",
      req$REQUEST_METHOD, req$PATH_INFO, "-",
      req$HTTP_USER_AGENT, "@", req$REMOTE_ADDR, "\n")
  plumber::forward()
}

#* @filter bodyExists?
function(req, res){
  print( 'BODY FILTER')
  print( req$body)
  if (is.null(req$body)){
    res$status <- 404 
    return(list(error="Body not found"))
  } else {
    plumber::forward()
  }
}