Delete sidebar if no buttons are provided

[edward-burn]

from below code

con <- DBI::dbConnect(duckdb::duckdb(dbdir = CDMConnector::eunomia_dir()))
  cdm <- CDMConnector::cdm_from_con(con = con,
                                    cdm_schema = "main",
                                    write_schema = "main")
  meds_cs <- CodelistGenerator::getDrugIngredientCodes(
    cdm = cdm,
    name = c(
      "acetaminophen",
      "morphine",
      "warfarin"
    )
  )
  cdm$meds <- CohortConstructor::conceptCohort(cdm = cdm,
                               conceptSet = meds_cs,
                               name = "meds")
  results <- phenotypeDiagnostics(cdm$meds)
OmopViewer::exportStaticApp(results, here::here())