R/mod_appointments_plain.R

In DavidPatShuiFong/dMeasureAppointments: dMeasureAppointments

# This Source Code Form is subject to the terms of the Mozilla Public
# License, v. 2.0. If a copy of the MPL was not distributed with this
# file, You can obtain one at https://mozilla.org/MPL/2.0/.

#' appointments_plain UI Function
#'
#' @description A shiny Module.
#'
#' @param id,input,output,session Internal parameters for {shiny}.
#'
#' @noRd
#'
#' @importFrom shiny NS tagList
mod_appointments_plain_ui <- function(id){
  ns <- NS(id)

  tagList(
    shiny::fluidRow(
      DT::DTOutput(ns("appointments_table"))
    )
  )
}

#' appointments_plain Server Functions
#'
#' @noRd
mod_appointments_plain_server <- function(id, dMAppointments){

  shiny::moduleServer(id, function(input, output, session){
    ns <- session$ns
    styled_appointments_list <- shiny::reactive({
      shiny::validate(
        shiny::need(
          dMAppointments$dM$appointments_filtered_timeR(),
          "No appointments in selected range"
        )
      )
      shiny::req(dMAppointments$dM$clinicians)

      # `dateformat` is a function to convert dates into desired date format
      dateformat <- dMAppointments$dM$formatdate()

      DailyMeasure::datatable_styled(
        dMAppointments$appointmentsR() %>>%
          dplyr::mutate(
            AppointmentDate = dateformat(AppointmentDate)
          )
      )
    })

    output$appointments_table <- DT::renderDT({
      styled_appointments_list()
    })
  })
}

## To be copied in the UI
# mod_appointments_plain_ui("appointments_plain_1")

## To be copied in the server
# mod_appointments_plain_server("appointments_plain_1")