extras/CodeToRun.R

In A1exanderAlexeyuk/ODYPACK:

baseUrl <-  Sys.getenv("BaseUrl")
webApiUsername <- Sys.getenv("WEBAPI_USERNAME")
webApiPassword <- Sys.getenv("WEBAPI_PASSWORD")
authMethod <- "db"
ODYPACK::getCohortsToTransfer(
  baseUrl,
  authMethod = "db",
  webApiUsername,
  webApiPassword,
  atlasCohortIdToGetCriteria = 1252,
  atlasCohortIdToPutCriteria = 1204
)
for(inclRule in c(
  "Thrombocytopenia",
  "Exclusion Subject has had a previous iTTP event within the past 30 days. ",
  "Exclude mental disorder",
  "Exclusion methylprednisolone and/or rituximab")) {
  out <- ODYPACK::transferInclusionCriteria(
    jsonToGetInclusionCriteriaPath = ,'C:/Users/Alex/D/projects/ODYPACK/inst/cohorts/TAK-755 iTTP.json',
    jsonToPutInclusionCriteriaPath = 'C:/Users/Alex/D/projects/ODYPACK/inst/cohorts/JSON_test1_wo_incl.json',
    inclusionRuleName = inclRule
  )
  write(out, "C:/Users/Alex/D/projects/ODYPACK/inst/cohorts/JSON_test1_wo_incl.json")
  }




ODYPACK::getCohortsToTransfer(
  baseUrl,
  authMethod = "db",
  webApiUsername,
  webApiPassword,
  atlasCohortIdToGetCriteria = 1252,
  atlasCohortIdToPutCriteria = 1204
)

# ODYPACK::postPreparedCohort(
#   baseUrl,
#   authMethod = "db",
#   webApiUsername,
#   webApiPassword,
#   jsonToPut = "C:/Users/Alex/D/projects/ODYPACK/out.json",
#   cohortName = "demonstr"
# )
#
#
#
#
#
# ROhdsiWebApi::authorizeWebApi(
#   baseUrl,
#   authMethod = "db",
#   webApiUsername = webApiUsername,
#   webApiPassword = webApiPassword
#   )
#