diff --git a/R/connect.R b/R/connect.R index 892fc83..1a16a1a 100644 --- a/R/connect.R +++ b/R/connect.R @@ -15,6 +15,6 @@ ##' server <- connect(url="http://localhost:8000", username="carya", password="illinois") connect <- function(url, username=NULL, password=NULL){ - res <- list(url=url, username=username, password=password) + res <- list(url=sub('^/|/$','',url), username=username, password=password) return(res) }