[r] Remove TileDBURI Custom Class (#3689)

Remove an unused custom class as part of replacing `TileDBObject` with a
new SOMA base-object class that is not reliant on tiledb-r

[SC-63206](https://app.shortcut.com/tiledb-inc/story/63206)

continues work for #2406

apis/r/DESCRIPTION

@@ -39,7 +39,6 @@ Imports:
     utils,
     fs,
     glue,
-    urltools,
     Rcpp,
     data.table,
     spdl,

apis/r/NAMESPACE

@@ -136,7 +136,5 @@ importFrom(stats,setNames)
 importFrom(tibble,as_tibble)
 importFrom(tools,R_user_dir)
 importFrom(tools,file_path_sans_ext)
-importFrom(urltools,url_compose)
-importFrom(urltools,url_parse)
 importFrom(utils,packageVersion)
 useDynLib(tiledbsoma, .registration=TRUE)

apis/r/R/TileDBObject.R

@@ -29,7 +29,8 @@ TileDBObject <- R6::R6Class(
         ), call. = FALSE)
       }
       if (missing(uri)) stop("Must specify a `uri`", call. = FALSE)
-      private$tiledb_uri <- TileDBURI$new(uri)
+      # private$tiledb_uri <- TileDBURI$new(uri)
+      private$tiledb_uri <- uri
 
       # Set platform config
       platform_config <- platform_config %||% PlatformConfig$new()
@@ -195,7 +196,7 @@ TileDBObject <- R6::R6Class(
     #' The URI of the TileDB object.
     uri = function(value) {
       if (missing(value)) {
-        return(private$tiledb_uri$uri)
+        return(private$tiledb_uri)
       }
       stop(sprintf("'%s' is a read-only field.", "uri"), call. = FALSE)
     },