R/measurement_value_raw.R

In pocdata/oliveR: A package for extracting data from the oliver sms replica and creating measurements

#' Capture the "raw value"
#'
#' This function is designed to be used as a method within an object of class \code{performance_metric_provider}.
#' It assumes the existence of #' a file named \code{network_aggr_performance_metrics.feather} as created by \code{\link{write_network_metric_file}}. It returns the raw value of a given performance measure, as determined by the column name in \code{network_aggr_performance_metrics.feather}.
#'
#' @param id The provider \code{id} as defined in \code{oliver_replica}.

measurement_value_raw = function(id
                                 ,measurement_service_val = NA
                                 ,measurement_index_val = NA) {

  measurement_type = 'value'

  network_aggr_performance_metrics <- read_feather(path = 'Data//network_aggr_performance_metrics.feather')
  provider_id <- id

  .dots <- list(~provider_id == id)

  network_aggr_performance_metrics %>%
    filter_(.dots = .dots) %>%
    select(ends_with(paste0(measurement_service_val, '_', measurement_index_val, '_', measurement_type))) %>%
    as.numeric()

}