From f5e500e66fc05e22a6090b808128c978472e7903 Mon Sep 17 00:00:00 2001
From: pdiakumis <peterdiakumis@gmail.com>
Date: Fri, 14 Jun 2024 22:04:32 +1000
Subject: [PATCH] mkdir -> fs::dir_create

---
 NAMESPACE           |  1 -
 R/utils.R           | 13 -------------
 R/utils_shortcuts.R |  1 +
 man/mkdir.Rd        | 14 --------------
 4 files changed, 1 insertion(+), 28 deletions(-)
 delete mode 100644 man/mkdir.Rd

diff --git a/NAMESPACE b/NAMESPACE
index ba4c05f..b2ce7ce 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -13,7 +13,6 @@ export(generate_cpsr_report)
 export(get_insilico_prediction_statistics)
 export(get_max_rows_pr_datatable)
 export(load_germline_snv_indel)
-export(mkdir)
 export(plot_summary_statistics)
 export(plot_virtual_panels)
 export(retrieve_secondary_calls)
diff --git a/R/utils.R b/R/utils.R
index 94e7844..ec6a164 100644
--- a/R/utils.R
+++ b/R/utils.R
@@ -314,16 +314,3 @@ check_variant2cancer_phenotype <- function(cpg_calls, ref_data) {
   }
   return(cpg_calls)
 }
-
-#' Create directory
-#'
-#' @param d Directory to create.
-#'
-#' @export
-mkdir <- function(d) {
-  if (!dir.exists(d)) {
-    dir.create(d, recursive = TRUE)
-  }
-  TRUE
-}
-
diff --git a/R/utils_shortcuts.R b/R/utils_shortcuts.R
index f11bce8..5e33db3 100644
--- a/R/utils_shortcuts.R
+++ b/R/utils_shortcuts.R
@@ -12,6 +12,7 @@ utils::globalVariables(c("."))
 #' @noRd
 dummy1 <- function() {
   # Solves R CMD check: Namespaces in Imports field not imported from
+  glue::glue
   DT::datatable
   htmltools::br
   shiny::bootstrapPage
diff --git a/man/mkdir.Rd b/man/mkdir.Rd
deleted file mode 100644
index cecf0ed..0000000
--- a/man/mkdir.Rd
+++ /dev/null
@@ -1,14 +0,0 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/utils.R
-\name{mkdir}
-\alias{mkdir}
-\title{Create directory}
-\usage{
-mkdir(d)
-}
-\arguments{
-\item{d}{Directory to create.}
-}
-\description{
-Create directory
-}