如何在R管道工中获取客户端IP地址
我已经检查过了,但仍然不知道如何在管道工中获得客户端IP 这是我尝试的实现,我想在日志文件中添加所有请求的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,
#' @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的帮助。。。