From 40191842fa15dad85c573c2ac4e290ee2fb9ba00 Mon Sep 17 00:00:00 2001 From: tsemharb Date: Tue, 14 Feb 2023 20:26:31 +0200 Subject: [PATCH] metrics names update --- R/RunStudy.R | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/R/RunStudy.R b/R/RunStudy.R index 6bebca7..da391a6 100644 --- a/R/RunStudy.R +++ b/R/RunStudy.R @@ -243,7 +243,7 @@ runStudy <- function(connectionDetails = NULL, median = median(timeToEvent), q3 = quantile(timeToEvent, 0.75), maximum = max(timeToEvent)) %>% - dplyr::mutate(iqr = q3 - q1, analysis_name = "Time to Treatment Switch") %>% + dplyr::mutate(iqr = q3 - q1, analysisName = "Time to Treatment Switch") %>% dplyr::relocate(iqr, .before = minimum) timeToTreatmentSwitch <- purrr::map_df(targetIds, function(targetId){ @@ -325,7 +325,7 @@ runStudy <- function(connectionDetails = NULL, target_ids = paste(targetIds, collapse = ', ')) sql <- paste0(sql, sqlAggreg) - metrics <- rbind(metrics, DatabaseConnector::querySql(connection, sql)) + metrics <- rbind(metrics, DatabaseConnector::querySql(connection, sql, snakeCaseToCamelCase = T)) sqlAggreg <- SqlRender::loadRenderTranslateSql(dbms = connection@dbms, sqlFilename = file.path("quartiles", "QuartilesAggregation.sql"), @@ -343,7 +343,7 @@ runStudy <- function(connectionDetails = NULL, target_ids = paste(targetIds, collapse = ', ')) sql <- paste0(sql, sqlAggreg) - metrics <- rbind(metrics, DatabaseConnector::querySql(connection, sql)) + metrics <- rbind(metrics, DatabaseConnector::querySql(connection, sql, snakeCaseToCamelCase = T)) andrData$metrics_distribution <- metrics