R/find_buildingblock.R

In FlorianSchw/DSFunctionCreator: Template building functions for DataSHIELD developers

#'
#' @title Internal Function for pathing of the building blocks for the template
#' @description This is an internal function which will find the correct path for the buildingblocks.
#' @details This function adapts the code from the internal function find_template from the usethis::use_template function.
#' @param buildingblock_name specifies which buildingblock is called.
#' @param package is the name of the package where the buildingblocks are included ("DSFunctionCreator").
#' @return the path of the buildingblock.
#' @author Florian Schwarz for the German Institute of Human Nutrition
#' @import fs
#' @import usethis
#'


find_buildingblock <- function(buildingblock_name, package = "DSFunctionCreator"){
  #usethis:::check_installed(package)
  path <- tryCatch(
    fs::path_package(package = package, "templates/BuildingBlocks", buildingblock_name),
    error = function(e) ""
  )
  if (identical(path, "")){
    usethis::ui_stop(
      "Could not find buildingblock {ui_value(buildingblock_name)} \\
      in package {ui_value(package)}."
    )
  }
  path
}