Skip to content

Commit

Permalink
export pgxinfo.delete
Browse files Browse the repository at this point in the history
  • Loading branch information
ivokwee committed Oct 19, 2023
1 parent 8d9080d commit b2bc8b6
Show file tree
Hide file tree
Showing 2 changed files with 18 additions and 2 deletions.
3 changes: 2 additions & 1 deletion R/pgx-compute.R
Original file line number Diff line number Diff line change
Expand Up @@ -654,7 +654,8 @@ pgx.computePGX <- function(pgx,
message("[pgx.computePGX] computing extra modules...")
pgx <- compute_extra(pgx,
extra = extra.methods,
pgx.dir = pgx.dir, libx.dir = libx.dir
pgx.dir = pgx.dir,
libx.dir = libx.dir
)

message("[pgx.computePGX] done!")
Expand Down
17 changes: 16 additions & 1 deletion R/pgx-files.R
Original file line number Diff line number Diff line change
Expand Up @@ -853,7 +853,22 @@ pgxinfo.updateDatasetFolder <- function(pgx.dir,
return()
}


#' Delete pgx entries in pgx info objects
#'
#' @param pgx.dir The folder containing pgxinfo metadata
#' @param pgxname The name of the pgx object for which metadata to delete
#' @param purge.h5 Logical indicating whether to remove entry in big H5 file
#'
#' @return NULL
#'
#' @description
#' Removes entries the pgxinfo metadata files from a pgxname
#'
#' @details
#' This function takes a pgxname as input and removes all entries in the pgx metadata files.
#'
#'
#' @export
pgxinfo.delete <- function(pgx.dir, pgxname, purge.h5 = FALSE) {
allfc.file <- file.path(pgx.dir, "datasets-allFC.csv")
info.file <- file.path(pgx.dir, "datasets-info.csv")
Expand Down

0 comments on commit b2bc8b6

Please sign in to comment.