R/data_normalization_non_pair.R

In senickel/geosampling:

#' data_normalization_non_pair
#'
#' @param sample_obj
#' @param selected_part
#' @keywords
#' @keywords
#' @export
#' @examples
#' checking.nominal()
#' @importFrom magrittr %>%
#'
#'
data_normalization_non_pair<-function(sample_obj,name) {
  sample_obj@data$country_id<-name

  sample_obj@data$Name<-sample_obj@data %>%
    dplyr::select(country_id,bin_id,unit2_id) %>%
    apply(1,function(x) {
      paste0(x[!is.na(x)],collapse="@") %>%
        gsub(" ","",.)
    })

  sample_obj@data$type<-sample_obj@data %>%
    dplyr::select(contains("is_")) %>%
    apply(1,function(x) {
      if(x[1]) return("Bin")
      return("Unit_2")
    })

  sample_obj@data$pop<-sample_obj@data %>%
    dplyr::select(contains("population")) %>%
    apply(1,function(x) {
      if (!is.na(x[2])) return(x[2])
      x[1]
    })

  sample_obj@data$prob<-sample_obj@data %>%
    dplyr::select(contains("probability")) %>%
    apply(1,function(x) {
      if (!is.na(x[2])) return(x[2])
      x[1]
    })


  sample_obj@data<-sample_obj@data[,!grepl("_",colnames(sample_obj@data))]

  sample_obj <- .add_centroid(sample_obj)

  sample_obj@data$Description<-sample_obj@data %>%
    apply(1,function(x) paste0("Type: ",x[2],"; Probability:",round(x[4] %>%
                                                                      as.numeric,2),
          "; Lat/Long: ",paste(x[6],x[5],sep=", ")))


  sample_obj
}