R/api.R

In benjaminguinaudeau/systemr: What the Package Does (One Line, Title Case)

#' @post /systemr
#' @serializer unboxedJSON
function(req){
  cmd <- req$postBody
  print(glue::glue("[{Sys.time()} ] {cmd}"))
  out <- system(cmd, intern = T)
  return(out)
}

#' @post /ip
#' @serializer unboxedJSON
function(req){
  print(glue::glue("[{Sys.time()} ] ip"))
  ip <- system("dig +short myip.opendns.com @resolver1.opendns.com", intern = T)
  print(glue::glue("{ip}"))
  return(ip)
}

#' @post /vpn
#' @serializer unboxedJSON
function(req){
  cmd <- jsonlite::fromJSON(req$postBody)
  print(glue::glue("[{Sys.time()} ] vpn {cmd$country}"))
  file <- systemr::connect(cmd$country, cmd$index)
  print(glue::glue("[{Sys.time()} ] vpn {cmd$country}"))

  return(file)
}

#' @post /sytemr_verbose
#' @serializer unboxedJSON
function(req){
  cmd <- req$postBody
  print(glue::glue("[{Sys.time()} ] {cmd}"))

  out <- system(cmd, intern = T)
  return(out)
}

#' @post /kill_vpn
#' @serializer unboxedJSON
function(req){
  print(glue::glue("[{Sys.time()} ] kill vpn"))
  system("killall openvpn")
  return()
}

#' @post /get
#' @serializer unboxedJSON
function(req){
  res <- jsonlite::fromJSON(req$postBody)

  print(glue::glue("[{Sys.time()} ] GET {res$url}"))

  head_names <- names(res[[2]])
  res[[2]] <- as.character(res[[2]])
  names(res[[2]]) <- head_names

  out <- httr::GET(res$url, httr::add_headers(.headers = res[[2]]))

  return(jsonlite::fromJSON(rawToChar(out$content)))
}

#' @post /raw
function(req){
  res <- jsonlite::fromJSON(req$postBody)

  print(glue::glue("[{Sys.time()} ] GET {res$url}"))

  head_names <- names(res[[2]])
  res[[2]] <- as.character(res[[2]])
  names(res[[2]]) <- head_names

  print(res[[2]])
  
  out <- httr::GET(res$url, httr::add_headers(.headers = res[[2]]))

  return(out)
}