시도해 볼 수 있습니다. 폴더 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
입니다.
여기를 보시려면 https://shiny.rstudio.com/articles/usage-metrics.html 및 https://shiny.rstudio.com/articles/google-analytics.html을 참조하십시오. – Jav