如何部署写入日志(log)文件的 Plumber docker

这里的问题是入口点.您的入口点.R脚本将被忽略.

以下是这位管道工形象附带的default entrypoint:

ENTRYPOINT ["R", "-e", "pr <- plumber::plumb(rev(commandArgs())[1]); args <- list(host = '0.0.0.0', port = 8000); if (packageVersion('plumber') >= '1.0.0') { pr$setDocs(TRUE) } else { args$swagger <- TRUE }; do.call(pr$run, args)"]

这就是它的作用:

• 载入管道工库.
• 从dockerfile中的cmd行中，获取要加载的文件的文件名.
• 把那份文件弄清楚.
• 打开文档.
• 侦听端口8000上的所有接口.

在本例中，它加载/app/plumber.R文件，而忽略/app/entrypoint.R文件.

你怎么能解决这个问题呢？在Docker文件中定义您自己的入口点.

FROM rstudio/plumber

# Install R libraries
RUN R -e "install.packages(c('odbc','glue','parsedate','tibble','dplyr','httr','RCurl','jsonlite','rjson','stringr','telegram','R.utils','logger','tictoc'))"

ENTRYPOINT ["Rscript", "/app/entrypoint.R"]

在这里，我仍然遇到了一些问题:

1. 没有文件系统包.我加了RUN R -e "install.packages(c('fs'))"来安装它.
2. 收到错误Error in plumb("plumber.R") : File does not exist: plumber.R.这是因为服务器在错误的目录中运行.我修复了这个问题，将WORKDIR /app添加到您的文档文件中.
3. 必须将最后一行entrypoint.R从pr更改为pr$run(host='0.0.0.0', port=8000)才能真正运行.

完整文档文件:

FROM rstudio/plumber

# Install R libraries
RUN R -e "install.packages(c('odbc','glue','parsedate','tibble','dplyr','httr','RCurl','jsonlite','rjson','stringr','telegram','R.utils','logger','tictoc'))"
RUN R -e "install.packages(c('fs'))"

WORKDIR /app
ENTRYPOINT ["Rscript", "/app/entrypoint.R"]

完整的entrypoint.R个文件:

library(plumber)

# Config
#config <- config::get()

# logging
library(logger)
# Ensure glue is a specific dependency so it's avaible for logger
library(glue)

# Specify how logs are written 
log_dir <- "/app/logs"
if (!fs::dir_exists(log_dir)) fs::dir_create(log_dir)
log_appender(appender_tee(tempfile("plumber_", log_dir, ".log")))

convert_empty <- function(string) {
  if (string == "") {
    "-"
  } else {
    string
  }
}

pr <- plumb("plumber.R")

pr$registerHooks(
  list(
    preroute = function() {
      # Start timer for log info
      tictoc::tic()
    },
    postroute = function(req, res) {
      end <- tictoc::toc(quiet = TRUE)
      # Log details about the request and the response
      # TODO: Sanitize log details - perhaps in convert_empty
      log_info('{convert_empty(req$REMOTE_ADDR)} "{convert_empty(req$HTTP_USER_AGENT)}" {convert_empty(req$HTTP_HOST)} {convert_empty(req$REQUEST_METHOD)} {convert_empty(req$PATH_INFO)} {convert_empty(res$status)} {round(end$toc - end$tic, digits = getOption("digits", 5))}')
    }
  )
)

pr$run(host='0.0.0.0', port=8000)