如何在R管道工中获取客户端IP地址

如何在R管道工中获取客户端IP地址,r,api-design,plumber,R,Api Design,Plumber,我已经检查过了,但仍然不知道如何在管道工中获得客户端IP 这是我尝试的实现,我想在日志文件中添加所有请求的IP地址 #' @post /v1/rl rl_v1 <- function(a, b, c){ request='rl' start_time <- as.numeric(as.POSIXct(Sys.time())) log_record <- paste(NULL, Sys.time(), request, "requested", NULL, NULL,

我已经检查过了,但仍然不知道如何在管道工中获得客户端IP

这是我尝试的实现,我想在日志文件中添加所有请求的IP地址

#' @post /v1/rl
rl_v1 <- function(a, b, c){
  request='rl'
  start_time <- as.numeric(as.POSIXct(Sys.time()))
  log_record <- paste(NULL, Sys.time(), request, "requested", NULL, NULL, 
                  sep=",")
  cat(paste(log_record, "\n", sep=""), file=log_file_name, append=T)

  lhs <- data.frame(a=unlist(a),
                b=unlist(b),
                c=unlist(c))

  pairs <- custom_function(lhs, rhs, m_w = 0.98,
                                ext_blk_field=c(12), international=T,
                                fasterWcoBlock=T, preprocessedData2=T)
  input_records=nrow(lhs)
  matches=nrow(pairs)
  query_time <- as.numeric(as.POSIXct(Sys.time())) - start_time
  status <- data.frame(query_time=query_time, 
                   request=request, 
                   type='POST',
                   api_version=api_version_v1)

  log_record <- paste(NULL, Sys.time(), request, "responded", 
                  round(matches/input_records*100, 2), 
                  paste0(matches, '/', input_records, ' in ', query_time), 
                  sep=",")
  cat(paste(log_record, "\n", sep=""), file=log_file_name, append=T)

  return(list(data=pairs, status=status))
}

非常感谢您的帮助。

为了结束这个问题,我将重申以下评论:

由于水管工使用,所以您可以访问请求句柄的属性


为了结束这个问题,我将重申以下评论:

由于水管工使用,所以您可以访问请求句柄的属性


你到底在说什么?你想在哪里获得IP?请尝试准备一个最小值,显示您拥有的一些代码,并描述您需要的内容。由于管道工使用,因此您可能可以访问请求句柄的属性。感谢@r2evans的工作……您在这里到底在说什么?你想在哪里获得IP?请尝试准备一个最小值,显示您拥有的一些代码,并描述您需要的内容。由于管道工使用,您可以访问请求句柄的属性。感谢@r2evans的帮助。。。