web/api.R

In RobotMermaid/BCRA: Breast Cancer Risk Assessment

library(BCRA)

#' @get /ohai
function(req){
    list("ohai - you made it")
}

#' Absolute Risk
#' @post /absolute.risk
#' @param id
#' @param age
#' @param biopsies
#' @param hyperplasia
#' @param menstruation
#' @param first_birth
#' @param relatives
#' @param race
#' @param Raw_Ind
#' @param Avg_white
#' @get /absolute.risk
#' all params need to be there or bad result
function(req, age=35, biopsies=1, hyperplasia=1, menstruation=1, first_birth=1, relatives=1, race=1, Raw_Ind=1, Avg_White=1) {
    cat(" age::", age, biopsies, hyperplasia, menstruation, first_birth, relatives, race, Raw_Ind, Avg_White)
    absolute.risk(data.frame(ID=1,
                             T1=as.numeric(age),
                             T2=as.numeric(age)+5,
                             N_Biop=as.integer(biopsies),
                             HypPlas=ifelse(as.integer(biopsies) == 0 |
                                              as.integer(biopsies) == 99,
                                            99,as.integer(hyperplasia)),
                             AgeMen=as.numeric(menstruation),
                             Age1st=as.numeric(first_birth),
                             N_Rels=as.numeric(relatives),
                             Race =as.integer(race)), Raw_Ind, Avg_White
                  )
}

#* Relative Risk
#* @param data_name The template data name
#* @param Raw_Ind
#* @get /relative.risk
function(data="exampledata.rda", Raw_Ind=1) {
    source("../R/recode.check.R")
    source("../R/relative.risk.R")
    attach(file.path("..","data",data))
    relative.risk(exampledata, Raw_Ind)
}

#* Check Summary
#* @param data_name The template data name
#* @param Raw_Ind
#* @param Avg_white
#* @get /check.summary
function(data="exampledata.rda", Raw_Ind=1, Avg_White=0) {
    attach(file.path("..","data",data))
    check.summary(data.frame(exampledata), Raw_Ind, Avg_White)
}

#* Risk Summary
#* @param data_name The template data name
#* @param Raw_Ind
#* @get /risk.summary
function(data="exampledata.rda", Raw_Ind=1) {
    attach(file.path("..","data",data))
    risk.summary(data.frame(exampledata), Raw_Ind)
}