#' @export
nkbc09f <- list(
code = "nkbc09f",
kortnamn = "nkbc_pop_tnm_m_09f",
lab = c(
sv = "Fjärrmetastaser vid diagnos",
en = "Distant metastases at diagnosis"
),
pop = c(
sv = "alla anmälda fall",
en = "all reported cases"
),
filter_pop = function(x, ...) {
x
},
mutate_outcome = function(x, ...) {
dplyr::mutate(x,
outcome1 = d_mstad,
outcome1_en = d_mstad_en,
outcome2 = dplyr::case_when(
a_tnm_mklass_Varde %in% 0 ~ TRUE,
a_tnm_mklass_Varde %in% 10 ~ FALSE,
a_tnm_mklass_Varde %in% 30 ~ NA
),
outcome2_en = outcome2,
outcome3 = !outcome2,
outcome3_en = outcome3
)
},
outcome = c("outcome1", "outcome2", "outcome3"),
outcome_title = list(
sv = c("Fjärrmetastaser, kategorier", "Inga fjärrmetastaser (M0)", "Fjärrmetastaser (M1)"),
en = c("Distant metastases, categories", "No distant metastases (M0)", "Distant metastases (M1)")
),
sjhkod_var = "a_inr_sjhkod",
other_vars = c("a_pat_alder", "d_screening"),
om_indikatorn = list(
sv = "Fjärrmetastas vid diagnos definieras som fjärrmetastaserande sjukdom diagnosticerad inom 3 månader från bröstcancerdiagnos (cytdatum).",
en = "Distant metastasis at diagnosis is defined as distant metastatic disease diagnosed within 3 months of breast cancer diagnosis (cytology/biopsy date)."
),
vid_tolkning = list(
sv = paste(
"T.o.m. 2012 var det möjligt att registrera en tumör som att fjärrmetastaser ej kan bedömas (MX) i NKBC.",
"Dessa har grupperats ihop med Uppgift saknas."
),
en = NULL
),
teknisk_beskrivning = NULL
)
class(nkbc09f) <- "nkbcind"
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.