From c8f78a7a7e92b07656121968418b4b4253119a67 Mon Sep 17 00:00:00 2001
From: "Thomas J. Leeper" <thosjleeper@gmail.com>
Date: Mon, 12 Jun 2017 13:35:21 +0100
Subject: [PATCH] importFrom urltools url_parse

---
 NAMESPACE | 1 +
 R/utils.R | 1 +
 2 files changed, 2 insertions(+)

diff --git a/NAMESPACE b/NAMESPACE
index 87aed92..e81001e 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -53,6 +53,7 @@ export(set_dataverse_metadata)
 export(update_dataset)
 export(update_group)
 importFrom(stats,setNames)
+importFrom(urtools,url_parse)
 importFrom(utils,str)
 importFrom(utils,unzip)
 importFrom(xml2,read_xml)
diff --git a/R/utils.R b/R/utils.R
index bcb6e81..23f3c36 100644
--- a/R/utils.R
+++ b/R/utils.R
@@ -100,6 +100,7 @@ prepend_doi <- function(dataset) {
     dataset
 }
 
+#' @importFrom urltools url_parse
 api_url <- function(server = Sys.getenv("DATAVERSE_SERVER"), prefix = "api/") {
     if (is.null(server) || server == "") {
         stop("'server' is missing with no default set in DATAVERSE_SERVER environment variable.")