R/extract_feature.R

In RADS-project/analysr-git-test: Analysr

#' extract_feature
#'
#' The extract_feature function is quite the same goal as create_feature.
#' This function create a new coll named with the description tag in
#' the stat_units table.
#' The function will extract feature form the description table.
#'
#' @param model An AnalysR model
#' @param tag A tag existing in the description table
#'
#' @export
extract_feature <- function(model, tag) {

  temp <- dplyr::inner_join(model$stat_units, model$descriptions, by = "hash")
  temp <- subset(temp, type == tag)
  temp <- tibble::tibble(stat_unit = temp$stat_unit, x = temp$value)
  colnames(temp) <- c("stat_unit", tag)
  model$stat_units <- dplyr::left_join(model$stat_units, temp, by = "stat_unit")

  model

}