queryUri -> uri

R/az_database.R

@@ -122,7 +122,7 @@ public=list(
             tenant <- self$cluster$get_default_tenant()
 
         token <- self$cluster$get_query_token(tenant)
-        server <- self$cluster$properties$queryUri
+        server <- self$cluster$properties$uri
         database <- basename(self$name)
         kusto_database_endpoint(server=server, database=database, tenantid=tenant,
             .query_token=token,

R/az_kusto.R

@@ -124,7 +124,7 @@ public=list(
 
     get_query_token=function(tenant=self$get_default_tenant(), ...)
     {
-        get_kusto_token(server=self$properties$queryUri, tenant=tenant, ...)
+        get_kusto_token(server=self$properties$uri, tenant=tenant, ...)
     },
 
     get_ingestion_token=function(tenant=self$get_default_tenant(), ...)

tests/testthat/test01_database.R

@@ -42,7 +42,7 @@ test_that("Resource access functions work",
     endp1 <- db$get_database_endpoint()
     expect_is(endp1, "kusto_database_endpoint")
 
-    server <- srv$properties$queryUri
+    server <- srv$properties$uri
     endp2 <- kusto_database_endpoint(server=server, database=dbname, tenantid=tenant)
     expect_is(endp2, "kusto_database_endpoint")