add modifiable endpoint

R/alapur.R

@@ -3,14 +3,15 @@
 #'
 #' alapur
 #' @param url url IP adress
+#' @param endpoint endpoint
 #' @keywords alapur
 #' @export
 #' @examples
 #' \dontrun{
 #' alapur()
 #' }
-alapur <- function(url){
-  alapur_object(url=url)
+alapur <- function(url,endpoint="ocpu"){
+  alapur_object(url=file.path(url,endpoint))
 }
 
 alapur_object <- function(url){

man/alapur.Rd

@@ -4,10 +4,12 @@
 \alias{alapur}
 \title{alapur}
 \usage{
-alapur(url)
+alapur(url, endpoint = "ocpu")
 }
 \arguments{
 \item{url}{url IP adress}
+
+\item{endpoint}{endpoint}
 }
 \description{
 alapur