R/utils.R

In PirateGrunt/imagine: Simulate General Insurance Policies and Losses

# This Source Code Form is subject to the terms of the Mozilla Public License, v. 2.0.
# If a copy of the MPL was not distributed with this file, You can obtain one at https://mozilla.org/MPL/2.0/.

sample_or_rep <- function(x, n) {

  # Checking for the Uniform class is needed until a bug fix in distributions3
  # is on CRAN
  if (distributions3::is_distribution(x) || inherits(x, 'Uniform'))
    distributions3::random(x, n)
  else
    rep(x, n)
}

maybe_wrap_in_list <- function(x) {
  if (length(x) == 1 && !rlang::is_bare_list(x))
    list(x)
  else
    x
}

PadParameters <- function(paramA, paramB){
  num_a <- length(paramA)
  num_b <- length(paramB)
  if (num_a < num_b){
    indices <- rep_len(seq.int(num_a), length.out = num_b)
    paramA <- paramA[indices]
  }

  paramA
}

GetFirstFunction <- function(obj){
  if (!is.list(obj)) {
    warning("Object is not a list. Returning NULL.")
  }

  obj <- obj[[1]]

  if (!is.function(obj)){
    warning("Object is not a function. Returning NULL.")
    obj <- NULL
  }

  obj
}

PutFunctionInList <- function(obj){
  if (!is.function(obj)){
    warning("Object is not a function. Returning NULL.")
    obj <- NULL
  }

  obj <- list(obj)

  obj
}