Incorporate code

[eribul]

This code was removed from the package but might be used somehow (otherwise the issue can be closed).

# Include some par data in correct format

library(dplyr)
load("Z:\\SHPR\\SZILARD\\Beslutstöd\\\\Output\\Old\\data for calculating the Comorb indices_2015-11-03.RData")

oppen   <- coder::as.pardata(oppen)
sluten  <- coder::as.pardata(sluten)
pardata <- coder::as.codedata(oppen, sluten) %>%
  dplyr::filter(
    date >= "2001-01-01",
    # Remove some codes that doesn't seem to be ICD10
    grepl("^[[:alpha:]][[:digit:]]{3}$", as.character(code))) %>%
  dplyr::mutate(code = droplevels(code))

# object.size(pardata) / 2 ^ 20

devtools::use_data(pardata, overwrite = TRUE)

# Vi sparar även ner SHPR-data men det är bara för att kunna används som
# lite exempeldata under processen.
# Är inte meningen att denna data sedan ska finnas med i paketet!
names(shpr_operation) <- tolower(names(shpr_operation))
shpr_operation <-
  shpr_operation %>%
  mutate(sida = as.factor(sida),
         opnr = as.factor(opnr),
         lpnr = as.factor(lpnr),
         oppdat = as.Date(oppdat, format = "%Y/%m/%d")) %>%
  filter(oppdat >= "2002-01-01")

object.size(shpr_operation) / 2 ^ 20

devtools::use_data(shpr_operation, overwrite = TRUE)

[eribul]

# Installera och ladda
# devtools::install_github("eribul/coder")
library(coder)

# Läs på
help(package = "coder")
browseVignettes("coder")

ex_people; ?ex_people
ex_icd10; ?ex_icd10

?codify
?classify
?index

# Find patients with adverse events after hip surgery
ex_peopple %>%
codify(
  ex_icd10,
  id   = "name",
  date = "surgery",
  days = c(-365, 0)
) %>%
classify("hip_adverse_events_icd10") %>%
index()

# Genväg för kompletternig
add("elix_icd10", to = ex_people, from = ex_icd10,
  id = "name", date = "surgery")