r - 在Shiny中获取用户IP

Question

有没有办法获取访问 Shiny 应用程序的人员的IP？希望有一个R/Shiny解决方案，但我也可以接受javascript解决方案。我想对IP进行地理编码以制作图表，以可视化大多数用户从哪个国家/地区访问该应用程序-然后将该信息放入应用程序中，以供所有用户查看。我只需要一种获取用户IP的方法，其他事情就很容易解决。

Answer 1

你可以试试看
在www文件夹中，将此文件放入getIP.js:

$(document).ready(function(){
  $.get("http://ipinfo.io", function(response) {
    Shiny.onInputChange("getIP", response);
  }, "json");
});

在 ui.R中:

shinyUI(fluidPage(
  tags$head(
    tags$script(src="getIP.js")
  ),
  .......

并在 server.R中(观察者仅用于测试):

  IP <- reactive({ input$getIP })

  observe({
    cat(capture.output(str(IP()), split=TRUE))
  })

然后，您将得到如下列表作为 IP()的输出(我隐藏了我的IP):

List of 8
 $ ip      : chr "xx MY IP IS HERE xx"
 $ hostname: chr "No Hostname"
 $ city    : chr "Liège"
 $ region  : chr "Wallonia"
 $ country : chr "BE"
 $ loc     : chr "50.6412,5.5718"
 $ org     : chr "AS12392 Brutele SC"
 $ postal  : chr "4020"

这不是完美的，有时结果是 NULL。