gexijin / openpay Goto Github PK

1. "Open Payment" does not make sense to people right away. Something like Doctors payment or something so that people know right way what we are talking about.
2. Put explanatory information in a separate tab called "About". Remove the second text element from the top.

Jenna downloaded data for 2019 to 2021. There is a new data file called Open_Payment_south_dakota_2013-21.csv
Some students uploaded their own data file. These files needs to be updated to include latest data.
Also there might be similar data used by different people.

Add a short paragraph beneath each plot to describe, how data is pre-process and plot. How to make sense of data.

The titles of tabs are too long, when we are trying to add multiple tabs.
Probably just word.

Jenna's Donut plot does not respond to the selectInput. This is probably caused by there are two selectInput elements named city.
From Jenna:

  ## 'Select City' Output
  output$city <- renderUI({
    selectInput("city", "Select City", choices = cities)
  })

From Marie

              titlePanel("Total payments received per physician"),
              selectInput("city",
                          h3("City of interest:"),
                          choices = c("SIOUX FALLS",
                                      "BROOKINGS",
                                      "ABERDEEN",
                                      "PINE RIDGE",
                                      "GROTON",
                                      "RAPID CITY"))
              ),

The most recent data from 2019 to 2021 is also available at the OpenPayment website.

Some tabs take several seconds to render. For example, Payments by physician and Payment over time.
We can easily add a progress bar to Shiny apps. These bars does not need to be accurate, but just let people know that something is going on (the website is not dead).