funcoes_old/get_local_windows_ip.R

get_local_windows_ip <- function(){
  x <- system("ipconfig", intern=TRUE)
  x <- removeBrancos(unlist(strsplit(x[grep("IPv4", x)], ":"))[2])
  x
}
leandromarino/avaliaR documentation built on May 24, 2019, 12:33 a.m.