Fix unit tests; fix R CMD check warnings; Bump version to 0.2.7

Author: Ubuntu

.Rbuildignore

@@ -5,3 +5,4 @@
 .vs/*
 CONTRIBUTING.md
 README.md
+man-roxygen

AzureSMR.Rproj

@@ -15,3 +15,5 @@ LaTeX: pdfLaTeX
 BuildType: Package
 PackageUseDevtools: Yes
 PackageInstallArgs: --no-multiarch --with-keep.source
+PackageCheckArgs: --as-cran --no-tests --no-vignettes
+PackageRoxygenize: rd,collate,namespace

DESCRIPTION

@@ -5,8 +5,8 @@ Description: Helps users to manage Azure Services and objects from within an
     Machines and HDInsight (Spark, Hive). To use the package, you must configure an
     Azure Active Directory application and service principal in the Azure portal.
 Type: Package
-Version: 0.2.6
-Date: 2017-06-16
+Version: 0.2.7
+Date: 2017-09-26
 Authors@R: c(
       person(family="Microsoft Corporation", role="cph"),
       person("Alan", "Weaver", role=c("aut"), email="[email protected]"),

NAMESPACE

@@ -106,7 +106,10 @@ importFrom(miniUI,miniPage)
 importFrom(shiny,observeEvent)
 importFrom(shiny,paneViewer)
 importFrom(shiny,runGadget)
+importFrom(shiny,stopApp)
 importFrom(utils,URLencode)
 importFrom(utils,browseURL)
 importFrom(utils,ls.str)
+importFrom(utils,setTxtProgressBar)
 importFrom(utils,str)
+importFrom(utils,txtProgressBar)

R/AzureAuthenticate.R

@@ -1,7 +1,8 @@
 #' Authenticates against Azure Active directory application.
 #'
 #' @inheritParams setAzureContext
-#' @param verbose Print Tracing information (Default False)
+#' @param verbose If TRUE, prints verbose messages
+#' @param resource URL of azure management portal
 #'
 #' @note See \url{https://azure.microsoft.com/en-us/documentation/articles/resource-group-create-service-principal-portal/} for instructions to set up an Active Directory application
 #' @references \url{https://azure.microsoft.com/en-us/documentation/articles/resource-group-create-service-principal-portal/}
@@ -10,12 +11,16 @@
 #' @family Azure resource functions
 #' 
 #' @export
-azureAuthenticate <- function(azureActiveContext, tenantID, clientID, authKey, verbose = FALSE, resource = "https%3A%2F%2Fmanagement.azure.com%2F") {
+azureAuthenticate <- function(azureActiveContext, tenantID, clientID, authKey, 
+                              verbose = FALSE, 
+                              resource = "https://management.azure.com/") {
   assert_that(is.azureActiveContext(azureActiveContext))
 
   if (missing(tenantID)) tenantID <- azureActiveContext$tenantID
   if (missing(clientID)) clientID <- azureActiveContext$clientID 
   if (missing(authKey)) authKey <- azureActiveContext$authKey
+  
+  resource <- URLencode(resource, reserved = TRUE, repeated = TRUE)
 
   assert_that(is_tenant_id(tenantID))
   assert_that(is_client_id(clientID))

R/AzureBatch.R

@@ -119,6 +119,8 @@ azureDeleteBatchAccount <- function(azureActiveContext, batchAccount,
 #'
 #' @inheritParams setAzureContext
 #' @inheritParams azureAuthenticate
+#' 
+#' @param batchAccount storage account used by Azure Batch
 #'
 #' @family Batch account functions
 #' @export

R/AzureContextObject.R

@@ -5,6 +5,7 @@
 #' See the Azure documentation (\url{https://azure.microsoft.com/en-us/documentation/articles/resource-group-create-service-principal-portal/}) for information to configure an Active Directory application.
 #'
 #' @inheritParams setAzureContext
+#' @inheritParams read.AzureSMR.config
 #' @family azureActiveContext functions
 #'
 #' @seealso [setAzureContext()], [azureAuthenticate()], [read.AzureSMR.config)]