Make Shiny App more robust

[milanwiedemann]

• Check that Codelists are the same coding system as the selected dataset. This will need to check the @coding_system_id property from codeusage/R/opencodelists.R with input$dataset:

  codeusage/R/opencodelists.R

  Line 71 in bc4ffc1

  coding_system = codelist_info$coding_system_id,

  codeusage/R/server.R

  Lines 18 to 29 in bc4ffc1

  	selected_data <- reactive({
  	if (input$dataset == "snomed") {
  	codeusage::snomed_usage %>%
  	select(start_date, end_date, code = snomed_concept_id, description, usage)
  	} else if (input$dataset == "icd10") {
  	codeusage::icd10_usage %>%
  	select(start_date, end_date, code = icd10_code, description, usage)
  	} else if (input$dataset == "opcs") {
  	codeusage::opcs_usage %>%
  	select(start_date, end_date, code = opcs_code, description, usage)
  	}
  	})

• Host the additional data (update the webpage)
• Breakdown codes selected from the codelist by used and unused codes #27

[milanwiedemann]

Mostly addressed in #25