R/nis_inc_dx.r

In jjinho/rnis: R Functions for the Nationwide Inpatient Sample

#' NIS Include by Diagnostic Codes
#'
#' Returns rows from NIS Core that have the diagnostic codes
#' @param dx_codes List of ICD9 diagnostic codes given as strings
#' @keywords nis
#' @export
#' @examples
#' nis_inc_dx(df, dx_codes)
nis_inc_dx <- function(df, dx_codes) {
  if(as.numeric(df$YEAR) < 2009) {
    dplyr::filter(df, DX1  %in% dx_codes |
											DX2  %in% dx_codes |
											DX3  %in% dx_codes |
											DX4  %in% dx_codes |
											DX5  %in% dx_codes |
											DX6  %in% dx_codes |
											DX7  %in% dx_codes |
											DX8  %in% dx_codes |
											DX9  %in% dx_codes |
											DX10 %in% dx_codes |
											DX11 %in% dx_codes |
											DX12 %in% dx_codes |
											DX13 %in% dx_codes |
											DX14 %in% dx_codes |
											DX15 %in% dx_codes)
  } else {
    dplyr::filter(df, DX1  %in% dx_codes |
											DX2  %in% dx_codes |
											DX3  %in% dx_codes |
											DX4  %in% dx_codes |
											DX5  %in% dx_codes |
											DX6  %in% dx_codes |
											DX7  %in% dx_codes |
											DX8  %in% dx_codes |
											DX9  %in% dx_codes |
											DX10 %in% dx_codes |
											DX11 %in% dx_codes |
											DX12 %in% dx_codes |
											DX13 %in% dx_codes |
											DX14 %in% dx_codes |
											DX15 %in% dx_codes |
											DX16 %in% dx_codes |
											DX17 %in% dx_codes |
											DX18 %in% dx_codes |
											DX19 %in% dx_codes |
											DX20 %in% dx_codes |
											DX21 %in% dx_codes |
											DX22 %in% dx_codes |
											DX23 %in% dx_codes |
											DX24 %in% dx_codes |
											DX25 %in% dx_codes)
  }
}