diff --git a/.github/dep-suggests-matrix.json b/.github/dep-suggests-matrix.json
deleted file mode 100644
index e69de29..0000000
diff --git a/.github/versions-matrix.json b/.github/versions-matrix.json
deleted file mode 100644
index 5af4434..0000000
--- a/.github/versions-matrix.json
+++ /dev/null
@@ -1 +0,0 @@
-{"include":[{"os":"macos-latest","r":"4.4"},{"os":"macos-latest","r":"4.3"},{"os":"windows-latest","r":"devel"},{"os":"windows-latest","r":"4.4"},{"os":"windows-latest","r":"4.3"},{"os":"ubuntu-22.04","r":"devel","http-user-agent":"release"},{"os":"ubuntu-22.04","r":"4.4"},{"os":"ubuntu-22.04","r":"4.3"},{"os":"ubuntu-22.04","r":"4.2"},{"os":"ubuntu-22.04","r":"4.1"},{"os":"ubuntu-22.04","r":"4.0"},{"os":"ubuntu-22.04","r":"4.4","covr":"true","desc":"with covr"}]}
diff --git a/DESCRIPTION b/DESCRIPTION
index 73ea12d..e5b1c9f 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -9,21 +9,28 @@ Authors@R: c(
     person("Kirill", "Müller", , "kirill@cynkra.com", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0002-1416-3412")),
     person("Maëlle", "Salmon", role = "ctb"),
+    person("David","Schoch", role = "aut",
+           comment = c(ORCID="0000-0003-2952-4812")),
     person("Chan Zuckerberg Initiative", role = "fnd")
   )
 Description: A small collection of various network data sets, to use with
     the 'igraph' package: the Enron email network, various food webs,
     interactions in the immunoglobulin protein, the karate club network,
     Koenigsberg's bridges, visuotactile brain areas of the macaque monkey,
-    UK faculty friendship network, domestic US flights network, etc.
+    UK faculty friendship network, domestic US flights network, etc. Also provides
+    access to the API of <https://networks.skewed.de/>.
 License: CC BY-SA 4.0 + file LICENSE
 URL: http://igraph.org
 BugReports: https://github.com/igraph/igraphdata/issues
 Depends: 
-    R (>= 2.10)
+    R (>= 4.0)
 Imports: 
-    igraph (>= 1.5.0)
-Suggests: 
+    igraph (>= 2.0.0),
+    rlang
+Suggests:
+    cli, 
+    minty, 
+    httr2,
     testthat (>= 3.0.0)
 Encoding: UTF-8
 LazyData: true
diff --git a/NAMESPACE b/NAMESPACE
index 6c0dbb1..e2c36a7 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -1,6 +1,10 @@
 # Generated by roxygen2: do not edit by hand
 
+S3method(print,ns_meta)
 export(lesmis_gml)
 export(lesmis_graphml)
 export(lesmis_pajek)
+export(ns_df)
+export(ns_graph)
+export(ns_metadata)
 importFrom(igraph,vcount)
diff --git a/R/netzschleuder.R b/R/netzschleuder.R
new file mode 100644
index 0000000..2033701
--- /dev/null
+++ b/R/netzschleuder.R
@@ -0,0 +1,264 @@
+#' @keywords internal
+.pkg_env <- new.env(parent = emptyenv())
+
+get_base_req <- function() {
+  if (!exists("base_req", envir = .pkg_env, inherits = FALSE)) {
+    base_req <- httr2::request("https://networks.skewed.de") |>
+      httr2::req_throttle(capacity = 20, fill_time_s = 60) |>
+      httr2::req_user_agent(
+        "R package igraphdata (github.com/igraph/igraphdata)"
+      )
+    .pkg_env$base_req <- base_req
+  }
+  .pkg_env$base_req
+}
+
+make_request <- function(path, token = NULL, method = "GET") {
+  rlang::check_installed("httr2")
+  req <- httr2::req_url_path(get_base_req(), path)
+  req <- httr2::req_method(req, method)
+  if (method == "HEAD") {
+    req <- httr2::req_headers(req, `Accept-Encoding` = "identity")
+  }
+  if (!is.null(token)) {
+    req <- httr2::req_headers(req, `WWW-Authenticate` = token)
+  }
+
+  resp <- httr2::req_perform(req)
+
+  if (httr2::resp_status(resp) != 200) {
+    stop("Failed to download file. Status: ", httr2::resp_status(resp))
+  }
+
+  resp
+}
+
+resolve_name <- function(x) {
+  #remove trailing /
+  x <- sub("/$", "", x)
+  #remove double slash
+  x <- sub("//", "/", x)
+
+  if (grepl("/", x)) {
+    x_split <- strsplit(x, "/", fixed = TRUE)[[1]]
+    if (length(x_split) > 2) {
+      cli::cli_abort(
+        "{.arg name} has {length(x_split)} components instead of 2."
+      )
+    }
+    return(x_split)
+  } else {
+    c(x, x)
+  }
+}
+
+download_file <- function(zip_url, token = NULL, file, size_limit) {
+  resp <- make_request(zip_url, token, method = "HEAD")
+  byte_size <- as.numeric(httr2::resp_headers(resp)[["content-length"]])
+  gb_size <- round(byte_size / 1024^3, 4)
+  if (gb_size > size_limit) {
+    cli::cli_abort(c(
+      "{zip_url} has a size of {gb_size} GB and exceeds the size limit of {size_limit} GB.",
+      "i" = "To download the file, set {.arg size_limit} to a value greater than {gb_size}"
+    ))
+  }
+  resp <- make_request(zip_url, token, method = "GET")
+  writeBin(httr2::resp_body_raw(resp), file)
+  invisible(NULL)
+}
+
+#' Download and Convert Graph Data from Netzschleuder
+#'
+#' These functions provide tools to interact with the Netzschleuder network dataset archive.
+#' Netzschleuder (<https://networks.skewed.de/>) is a large online repository for network datasets,
+#' aimed at aiding scientific research.
+#' \describe{
+#'   \item{`ns_metadata()`}{ retrieves metadata about a network or network collection.}
+#'   \item{`ns_df()`}{downloads the graph data as data frames (nodes, edges, and graph properties).}
+#'   \item{`ns_graph()`}{creates an `igraph` object directly from Netzschleuder.}
+#' }
+#'
+#' @param name Character. The name of the network dataset. To get a network from a collection,
+#'   use the format `<collection_name>/<network_name>`.
+#' @param collection Logical. If TRUE, get the metadata of a whole collection of networks.
+#' @param token Character. Some networks have restricted access and require a token.
+#' @param size_limit Numeric. Maximum allowed file size in GB. Larger files will be prevented from being downloaded.
+#'   See <https://networks.skewed.de/restricted>.
+#'
+#' @return
+#' \describe{
+#' \item{`ns_metadata()`}{A list containing metadata for the dataset.}
+#' \item{`ns_df()`}{A named list with `nodes`, `edges`, `gprops`, and `meta`.}
+#' \item{`ns_graph()`}{An `igraph` object.}
+#' }
+#' @examples
+#' \dontrun{
+#' # Get metadata
+#' ns_metadata("copenhagen/calls")
+#'
+#' # Download network as data frames
+#' graph_data <- ns_df("copenhagen/calls")
+#'
+#' # Create an igraph object
+#' g <- ns_graph("copenhagen/calls")
+#' }
+#'
+#' @seealso <https://networks.skewed.de/>
+#' @rdname netzschleuder
+#' @export
+ns_metadata <- function(name, collection = FALSE) {
+  rlang::check_installed("cli")
+  net_ident <- resolve_name(name)
+  path <- sprintf("api/net/%s", net_ident[[1]])
+  collection_url <- sprintf("https://networks.skewed.de/net/%s", net_ident[[1]])
+  resp <- make_request(path)
+  raw <- httr2::resp_body_json(resp)
+  class(raw) <- c("ns_meta", class(raw))
+  raw[["is_collection"]] <- collection
+  raw[["collection_name"]] <- net_ident[[1]]
+  if (collection) {
+    return(raw)
+  } else if (
+    net_ident[[1]] == net_ident[[2]] &&
+      length(unlist(raw$nets)) > 1 &&
+      !collection
+  ) {
+    cli::cli_abort(
+      c(
+        "{net_ident[[1]]} is a collection and downloading a whole collection is not permitted.",
+        "i" = "see {.url {collection_url}}"
+      )
+    )
+  } else if (net_ident[[1]] == net_ident[[2]]) {
+    return(raw)
+  } else {
+    idx <- which(unlist(raw[["nets"]]) == net_ident[[2]])
+    if (length(idx) == 0) {
+      cli::cli_abort(
+        c(
+          "{net_ident[[2]]} is not part of the collection {net_ident[[1]]}.",
+          "i" = "see {.url {collection_url}}"
+        )
+      )
+    }
+    raw[["analyses"]] <- raw[["analyses"]][[net_ident[[2]]]]
+    raw[["nets"]] <- raw[["nets"]][idx]
+    raw
+  }
+}
+
+#' @rdname netzschleuder
+#' @export
+ns_df <- function(name, token = NULL, size_limit = 1) {
+  rlang::check_installed("minty")
+  if (is.character(name)) {
+    meta <- ns_metadata(name, collection = FALSE)
+    net_ident <- resolve_name(name)
+  } else if (inherits(name, "ns_meta")) {
+    if (name[["is_collection"]]) {
+      cli::cli_abort(c(
+        "{.arg name} contains the meta data of a whole collection and downloading a whole collection is not permitted.",
+        "i" = "set collection = FALSE in `ns_metadata()`"
+      ))
+    }
+    meta <- name
+    net_ident <- c(meta[["collection_name"]], meta[["nets"]])
+  } else {
+    cli::cli_abort("{.arg name} must be a string or a `ns_meta` object.")
+  }
+
+  zip_url <- sprintf(
+    "net/%s/files/%s.csv.zip",
+    net_ident[[1]],
+    net_ident[[2]]
+  )
+
+  temp <- tempfile(fileext = "zip")
+  download_file(zip_url, token = token, file = temp, size_limit = size_limit)
+
+  zip_contents <- utils::unzip(temp, list = TRUE)
+
+  edge_file_name <- grep("edge", zip_contents$Name, value = TRUE)
+  node_file_name <- grep("node", zip_contents$Name, value = TRUE)
+  gprops_file_name <- grep("gprops", zip_contents$Name, value = TRUE)
+
+  edges_df_raw <- utils::read.csv(unz(temp, edge_file_name))
+  edges_df <- suppressWarnings(minty::type_convert(edges_df_raw))
+  source_loc <- grep("source", names(edges_df))
+  target_loc <- grep("target", names(edges_df))
+  names(edges_df)[c(source_loc, target_loc)] <- c("from", "to")
+
+  # netzschleuder uses 0-indexing, igraph uses 1-indexing
+  edges_df[["from"]] <- edges_df[["from"]] + 1L
+  edges_df[["to"]] <- edges_df[["to"]] + 1L
+
+  nodes_df_raw <- utils::read.csv(unz(temp, node_file_name))
+  #suppress warning if no character columns found
+  nodes_df <- suppressWarnings(minty::type_convert(nodes_df_raw))
+  names(nodes_df)[1] <- "id"
+
+  # netzschleuder uses 0-indexing, igraph uses 1-indexing
+  nodes_df[["id"]] <- nodes_df[["id"]] + 1L
+  if ("X_pos" %in% names(nodes_df)) {
+    regex <- gregexpr("-?\\d+\\.\\d+", nodes_df[["X_pos"]])
+    matches <- regmatches(nodes_df[["X_pos"]], regex)
+
+    mat <- vapply(matches, as.numeric, numeric(2))
+
+    nodes_df[["X_pos"]] <- NULL
+    nodes_df[["x"]] <- mat[1, ]
+    nodes_df[["y"]] <- mat[2, ]
+  }
+
+  gprops_df <- readLines(unz(temp, gprops_file_name))
+
+  on.exit(unlink(temp))
+
+  list(nodes = nodes_df, edges = edges_df, gprops = gprops_df, meta = meta)
+}
+
+#' @rdname netzschleuder
+#' @export
+ns_graph <- function(name, token = NULL, size_limit = 1) {
+  graph_data <- ns_df(name, token = token, size_limit = size_limit)
+  directed <- graph_data$meta[["analyses"]][["is_directed"]]
+  bipartite <- graph_data$meta[["analyses"]][["is_bipartite"]]
+
+  g <- igraph::graph_from_data_frame(
+    graph_data$edges,
+    directed = directed,
+    vertices = graph_data$nodes
+  )
+
+  if (bipartite) {
+    types <- rep(FALSE, igraph::vcount(g))
+    types[graph_data$nodes$id %in% graph_data$edges[[1]]] <- TRUE
+    g <- igraph::set_vertex_attr(g, "type", value = types)
+  }
+
+  g
+}
+
+#' @export
+print.ns_meta <- function(x, ...) {
+  if (x[["is_collection"]]) {
+    cat("Netzschleuder Metadata for the collection:", x[["collection_name"]])
+    cat("Number of Networks:", length(x[["nets"]]))
+  } else {
+    cat(
+      "Netzschleuder Metadata for: ",
+      x[["collection_name"]],
+      "/",
+      x[["nets"]][[1]],
+      sep = ""
+    )
+    cat("\n")
+    cat("Number of vertices:", x$analyses$num_vertices)
+    cat("\n")
+    cat("Number of Edges:", x$analyses$num_edges)
+    cat("\n")
+    cat("Directed:", x$analyses$is_directed)
+    cat("\n")
+    cat("Bipartite:", x$analyses$is_bipartite)
+  }
+}
diff --git a/man/igraphdata-package.Rd b/man/igraphdata-package.Rd
index 7902410..af34170 100644
--- a/man/igraphdata-package.Rd
+++ b/man/igraphdata-package.Rd
@@ -6,7 +6,7 @@
 \alias{igraphdata-package}
 \title{igraphdata: A Collection of Network Data Sets for the 'igraph' Package}
 \description{
-A small collection of various network data sets, to use with the 'igraph' package: the Enron email network, various food webs, interactions in the immunoglobulin protein, the karate club network, Koenigsberg's bridges, visuotactile brain areas of the macaque monkey, UK faculty friendship network, domestic US flights network, etc.
+A small collection of various network data sets, to use with the 'igraph' package: the Enron email network, various food webs, interactions in the immunoglobulin protein, the karate club network, Koenigsberg's bridges, visuotactile brain areas of the macaque monkey, UK faculty friendship network, domestic US flights network, etc. Also provides access to the API of \url{https://networks.skewed.de/}.
 }
 \seealso{
 Useful links:
@@ -22,6 +22,7 @@ Useful links:
 Authors:
 \itemize{
   \item Gábor Csárdi (\href{https://orcid.org/0000-0001-7098-9676}{ORCID})
+  \item David Schoch (\href{https://orcid.org/0000-0003-2952-4812}{ORCID})
 }
 
 Other contributors:
diff --git a/man/netzschleuder.Rd b/man/netzschleuder.Rd
new file mode 100644
index 0000000..c5a30a0
--- /dev/null
+++ b/man/netzschleuder.Rd
@@ -0,0 +1,58 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/netzschleuder.R
+\name{ns_metadata}
+\alias{ns_metadata}
+\alias{ns_df}
+\alias{ns_graph}
+\title{Download and Convert Graph Data from Netzschleuder}
+\usage{
+ns_metadata(name, collection = FALSE)
+
+ns_df(name, token = NULL, size_limit = 1)
+
+ns_graph(name, token = NULL, size_limit = 1)
+}
+\arguments{
+\item{name}{Character. The name of the network dataset. To get a network from a collection,
+use the format \verb{<collection_name>/<network_name>}.}
+
+\item{collection}{Logical. If TRUE, get the metadata of a whole collection of networks.}
+
+\item{token}{Character. Some networks have restricted access and require a token.}
+
+\item{size_limit}{Numeric. Maximum allowed file size in GB. Larger files will be prevented from being downloaded.
+See \url{https://networks.skewed.de/restricted}.}
+}
+\value{
+\describe{
+\item{\code{ns_metadata()}}{A list containing metadata for the dataset.}
+\item{\code{ns_df()}}{A named list with \code{nodes}, \code{edges}, \code{gprops}, and \code{meta}.}
+\item{\code{ns_graph()}}{An \code{igraph} object.}
+}
+}
+\description{
+These functions provide tools to interact with the Netzschleuder network dataset archive.
+Netzschleuder (\url{https://networks.skewed.de/}) is a large online repository for network datasets,
+aimed at aiding scientific research.
+\describe{
+\item{\code{ns_metadata()}}{ retrieves metadata about a network or network collection.}
+\item{\code{ns_df()}}{downloads the graph data as data frames (nodes, edges, and graph properties).}
+\item{\code{ns_graph()}}{creates an \code{igraph} object directly from Netzschleuder.}
+}
+}
+\examples{
+\dontrun{
+# Get metadata
+ns_metadata("copenhagen/calls")
+
+# Download network as data frames
+graph_data <- ns_df("copenhagen/calls")
+
+# Create an igraph object
+g <- ns_graph("copenhagen/calls")
+}
+
+}
+\seealso{
+\url{https://networks.skewed.de/}
+}