R/other_functions.R

In mhkhan27/illuminate: Weighted survey analysis

#'
#' Left join in list
#'
#'
#' @param list list of dataframes
#' @param by primary key that exists in all element
#' @return outcome of left join based on the primary key
#' @export
#'



left_join_for_list <- function(list,by){
  Reduce(function(...) merge(..., by=by, all.x=TRUE), list)
}



#' @param x st object
#' @param y st object
#' @return distance from x to nearest y
#' @export
#'


nearest_feature<- function(x, y){
  y_index <- st_nearest_feature(x= x, y= y)
  distance <- st_distance(x= x, y= y[y_index,], by_element=T)
  x %>%
    cbind(y_index= y_index, distance= distance)
}



#' @param df dataframe
#' @param condition st object
#' @return dataframe with NA value
#' @export
#'


replace_with_na_over_df <- function(df, value) {
  purrr::map_dfc(df, ~ na_set(.x, ~.x %in% value ) )
}