inst/app/www/R_output/across_overview_counts.R

In ocelhay/AMULaos: App on Antimicrobial Use (AMU) in Laos.

output$n_overview_patient <- renderText({
  return(
    paste0(
      as.character(
        div(class = "n_box",
            div(class = "icon_box", icon("user")),
            h3(n_distinct(patients_filter()$patient_id)),
            span(strong("Patients"), 
                 "in ", n_distinct(patients_filter()$hospcd), " hospital(s).")
        )
      )
    )
  )
})

output$n_overview_prescriptions <- renderText({
  return(
    paste0(
      as.character(
        div(class = "n_box",
            div(class = "icon_box", icon("pills")),
            h3(nrow(patients_filter())),
            span(strong("Prescriptions"))
        )
      )
    )
  )
})

output$n_overview_survey <- renderText({
  return(
    paste0(
      as.character(
        div(class = "n_box",
            div(class = "icon_box", icon("pen")),
            h3(n_distinct(patients_filter()$surdate)),
            span(strong("Different Dates of Survey"))
        )
      )
    )
  )
})