@sjcrh/proteinpaint-server 2.63.4 → 2.63.5
This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
- package/package.json +1 -1
- package/routes/termdb.config.js +8 -10
- package/routes/termdb.singlecellSamples.js +50 -5
- package/src/app.js +165 -90
- package/utils/burden.R +3 -1
package/utils/burden.R
CHANGED
|
@@ -40,7 +40,7 @@ load(survData)
|
|
|
40
40
|
############################ These are the input values in APP that users can change. Edgar, these should be the same as the APP before, variable names and units. #############
|
|
41
41
|
### Input the primary DX.
|
|
42
42
|
# pr=5
|
|
43
|
-
agecut=40 ##### Edgar, This is not an user input paramter, but we input this. This depends on the DX. For example, here for CNS we use 40. For HL DX, it is 55. I will give this value for each DX.
|
|
43
|
+
# agecut=40 ##### Edgar, This is not an user input paramter, but we input this. This depends on the DX. For example, here for CNS we use 40. For HL DX, it is 55. I will give this value for each DX.
|
|
44
44
|
|
|
45
45
|
# # # Input person's values, 18 input X's , plus the input primary DX
|
|
46
46
|
# sexval=1 #sex, take value 1 for male and 0 for female
|
|
@@ -88,6 +88,8 @@ newdata_chc_sampled=newdata_chc_sampled[newdata_chc_sampled$t.endage<=60,]
|
|
|
88
88
|
|
|
89
89
|
# paste(names(input), input, sep = ":", collapse = ",")
|
|
90
90
|
pr=input$diaggrp
|
|
91
|
+
# agecut was previously hardcoded to 40 above
|
|
92
|
+
agecut=c('1'=50, '2'=45, '3'=55, '4'=50, '5'=40, '6'=60, '7'=50, '8'=45, '9'=45, '10'=45, '11'=50 )[pr]
|
|
91
93
|
sexval=input$sex
|
|
92
94
|
newdata_chc_sampled$sex=input$sex # sexval
|
|
93
95
|
newdata_chc_sampled$white=input$white # whiteval
|