From ffdfa7f37d344bce924f1f3ee937c2cd095ea609 Mon Sep 17 00:00:00 2001 From: South Date: Tue, 20 Aug 2024 17:20:30 +0100 Subject: [PATCH] completing table rename started on Github fron Stef's suggestion --- dev/omop_analyses/analyse_omop_cdm.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/dev/omop_analyses/analyse_omop_cdm.R b/dev/omop_analyses/analyse_omop_cdm.R index d3c79b2..122d7ac 100644 --- a/dev/omop_analyses/analyse_omop_cdm.R +++ b/dev/omop_analyses/analyse_omop_cdm.R @@ -128,7 +128,7 @@ analyse_summary_stats <- function(cdm) { filter(value_as_concept_id != 0 & !is.null(value_as_concept_id)) # count freq and join to concept table to get name - df_freq_val_as_concept_named <- table |> + df_freq_val_as_concept_named <- categorical_data |> count(concept_id, value_as_concept_id) |> left_join(select(cdm$concept, concept_id, concept_name), by = c('value_as_concept_id' = 'concept_id')) |>