From ce8b99995e4f7f70f39551346419f0ce34c1c4f6 Mon Sep 17 00:00:00 2001 From: Wolfgang Hottgenroth Date: Tue, 10 Aug 2021 22:30:52 +0200 Subject: [PATCH] next step --- secondDbSteps.r | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/secondDbSteps.r b/secondDbSteps.r index 6b64863..5708909 100644 --- a/secondDbSteps.r +++ b/secondDbSteps.r @@ -37,7 +37,7 @@ get_freq_df <- function(con, startDate, endDate) { con <- dbConnect(RPostgres::Postgres(), dbname='mainscnt', - host='172.16.10.27', + host='db.mainscnt.eu', user='wn') @@ -56,7 +56,7 @@ for (offset in 0:0) { freq_wide <- freq_wide %>% rowwise() %>% mutate(!!colName.mean := mean(c_across(names(freq_wide)[c(-1, - colIdx)]), na.rm=TRUE)) %>% - mutate(!!colName.diff := abs()) + mutate(!!colName.diff := eval(as.name(colName.mean)) - freq_wide[colIdx]) }