feat: get urls from tableau workbook

NAMESPACE

@@ -47,6 +47,7 @@ export(get_variable_folders)
 export(get_variables)
 export(get_workbook_id)
 export(get_workbook_tabs)
+export(get_workbook_urls)
 export(make_rootnodes)
 export(query_user_on_site)
 export(remove_user_from_group)

R/get_workbook_urls.R

@@ -0,0 +1,36 @@
+#' Get Workbook URLs
+#'
+#' This function parses an XML document representing a Tableau workbook and finds all nodes that have a url attribute containing 'views'.
+#' It then extracts these URLs and returns them in a data frame.
+#'
+#' @param wb The path to the Tableau workbook file (.twb).
+#'
+#' @return A data frame containing the URLs found in the workbook.
+#' @export
+get_workbook_urls <- function(wb) {
+  # Parse the XML document
+  doc <- XML::xmlParse(wb)
+
+  # Get the root node
+  root <- XML::xmlRoot(doc)
+
+  # Find all nodes that have a url attribute containing 'views'
+  nodes <- XML::xpathSApply(root, "//*[contains(@url, 'views')]")
+
+  # Initialize an empty vector to store the URLs
+  urls <- character(length(nodes))
+
+  # Loop over the nodes
+  for (i in seq_along(nodes)) {
+    # Extract the URL attribute
+    url <- XML::xmlGetAttr(nodes[[i]], "url")
+
+    # Store the URL in the urls vector
+    urls[i] <- url
+  }
+
+  # Convert the urls vector to a data frame
+  dfUrls <- data.frame(URL = urls)
+
+  return(dfUrls)
+}

_pkgdown.yml

@@ -206,5 +206,6 @@ reference:
       - get_variables
       - get_workbook_id
       - get_workbook_tabs
+      - get_workbook_urls
       - make_rootnodes