diff --git a/R/app_server.R b/R/app_server.R
index 3b66173..df8ac2b 100644
--- a/R/app_server.R
+++ b/R/app_server.R
@@ -298,13 +298,16 @@ tagList(
 
 ## 93% reduction in lines of codes by modularizing accordion displays
 ## Originally, 11,360 lines of code. Reduced to 832.
-  # PHM Accordion -----------------------------------------------------------
+
+# Observe PMH selector ----------------------------------------------------
+
 
   observeEvent(input$PMHselector,{
-    req(input$PMHselector == "Physical Health")
-    selection<-input$PMHselector
 
+    # PHM Accordion -----------------------------------------------------------
 
+    if(input$PMHselector == "Physical Health"){
+      selection<-input$PMHselector
     PMHdata<-reactive({
       data[data$Type == 'PhysMH',]
     }) %>% bindCache(data[data$Type == 'PhysMH',])
@@ -366,494 +369,515 @@ tagList(
 
       }
     })
-  })
 
+    }
+
+    # MH Accordion ------------------------------------------------------------
+
+
+      if(input$PMHselector == "Mental Health (MH)"){
+      selection<-input$PMHselector
+      MHdata<-reactive({
+        data[data$Type == 'MH',]
+      }) %>% bindCache(data[data$Type == 'MH',])
+      observeEvent(input$OffCampus,{
+
+        if(input$OffCampus == F) {
+          # ON CAMPUS
+          mod_Accordion_server('Mhcaps', selector=selection, data=MHdata(), title=c("Counseling and Psychological Services Center (CAPS)"),Visible = T)
+          mod_Accordion_server('Mhmiddleearth', selector=selection, data=MHdata(), title=c("Middle Earth"),Visible = T)
+          mod_Accordion_server('MHprideCenter', selector=selection, data=MHdata(), title=c("Pride Center of the Capital Region"),Visible = F)
+          mod_Accordion_server('MHsuicideFound', selector=selection, data=MHdata(), title=c("American Foundation for Suicide Prevention Capital Region"),Visible = F)
+          mod_Accordion_server('Mhnyspa', selector=selection, data=MHdata(), title=c("Find a Psychologist (NYSPA)"),Visible = F)
+          mod_Accordion_server('Mhpsychtoday', selector=selection, data=MHdata(), title=c("Find a Therapist (Psych Today)"),Visible = F)
+
+
+          mod_info_server('Mhcaps',selector=selection, data=MHdata(), rownametitle=c("Counseling and Psychological Services Center (CAPS)"), phone=T, website=T)
+          mod_info_server('Mhmiddleearth',selector=selection, data=MHdata(), rownametitle=c("Middle Earth"), phone=T, website=T)
+          mod_info_server('MHprideCenter',selector=selection, data=MHdata(), rownametitle=c("Pride Center of the Capital Region"), phone=T, website=T)
+          mod_info_server('MHsuicideFound',selector=selection, data=MHdata(), rownametitle=c("American Foundation for Suicide Prevention Capital Region"), phone=T, website=T)
+          mod_info_server('Mhnyspa',selector=selection, data=MHdata(), rownametitle=c("Find a Psychologist (NYSPA)"), phone=F, website=T)
+          mod_info_server('Mhpsychtoday',selector=selection, data=MHdata(), rownametitle=c("Find a Therapist (Psych Today)"), phone=F, website=T)
+
+        } else {
+          mod_Accordion_server('Mhcaps', selector=selection, data=MHdata(), title=c("Counseling and Psychological Services Center (CAPS)"),Visible = T)
+          mod_Accordion_server('Mhmiddleearth', selector=selection, data=MHdata(), title=c("Middle Earth"),Visible = T)
+          mod_Accordion_server('MHprideCenter', selector=selection, data=MHdata(), title=c("Pride Center of the Capital Region"),Visible = T)
+          mod_Accordion_server('MHsuicideFound', selector=selection, data=MHdata(), title=c("American Foundation for Suicide Prevention Capital Region"),Visible = T)
+          mod_Accordion_server('Mhnyspa', selector=selection, data=MHdata(), title=c("Find a Psychologist (NYSPA)"),Visible = T)
+          mod_Accordion_server('Mhpsychtoday', selector=selection, data=MHdata(), title=c("Find a Therapist (Psych Today)"),Visible = T)
+
+
+          mod_info_server('Mhcaps',selector=selection, data=MHdata(), rownametitle=c("Counseling and Psychological Services Center (CAPS)"), phone=T, website=T)
+          mod_info_server('Mhmiddleearth',selector=selection, data=MHdata(), rownametitle=c("Middle Earth"), phone=T, website=T)
+          mod_info_server('MHprideCenter',selector=selection, data=MHdata(), rownametitle=c("Pride Center of the Capital Region"), phone=T, website=T)
+          mod_info_server('MHsuicideFound',selector=selection, data=MHdata(), rownametitle=c("American Foundation for Suicide Prevention Capital Region"), phone=T, website=T)
+          mod_info_server('Mhnyspa',selector=selection, data=MHdata(), rownametitle=c("Find a Psychologist (NYSPA)"), phone=F, website=T)
+          mod_info_server('Mhpsychtoday',selector=selection, data=MHdata(), rownametitle=c("Find a Therapist (Psych Today)"), phone=F, website=T)
+        }
+      })
+}
 
 
 
-  # MH Accordion ------------------------------------------------------------
 
+    # MH Black Communities ----------------------------------------------------
 
-  observeEvent(input$PMHselector,{
-    req(input$PMHselector == "Mental Health (MH)")
-    selection<-input$PMHselector
-    MHdata<-reactive({
-      data[data$Type == 'MH',]
-    }) %>% bindCache(data[data$Type == 'MH',])
-    observeEvent(input$OffCampus,{
 
-      if(input$OffCampus == F) {
-        # ON CAMPUS
-        mod_Accordion_server('Mhcaps', selector=selection, data=MHdata(), title=c("Counseling and Psychological Services Center (CAPS)"),Visible = T)
-        mod_Accordion_server('Mhmiddleearth', selector=selection, data=MHdata(), title=c("Middle Earth"),Visible = T)
-        mod_Accordion_server('MHprideCenter', selector=selection, data=MHdata(), title=c("Pride Center of the Capital Region"),Visible = F)
-        mod_Accordion_server('MHsuicideFound', selector=selection, data=MHdata(), title=c("American Foundation for Suicide Prevention Capital Region"),Visible = F)
-        mod_Accordion_server('Mhnyspa', selector=selection, data=MHdata(), title=c("Find a Psychologist (NYSPA)"),Visible = F)
-        mod_Accordion_server('Mhpsychtoday', selector=selection, data=MHdata(), title=c("Find a Therapist (Psych Today)"),Visible = F)
-
-
-        mod_info_server('Mhcaps',selector=selection, data=MHdata(), rownametitle=c("Counseling and Psychological Services Center (CAPS)"), phone=T, website=T)
-        mod_info_server('Mhmiddleearth',selector=selection, data=MHdata(), rownametitle=c("Middle Earth"), phone=T, website=T)
-        mod_info_server('MHprideCenter',selector=selection, data=MHdata(), rownametitle=c("Pride Center of the Capital Region"), phone=T, website=T)
-        mod_info_server('MHsuicideFound',selector=selection, data=MHdata(), rownametitle=c("American Foundation for Suicide Prevention Capital Region"), phone=T, website=T)
-        mod_info_server('Mhnyspa',selector=selection, data=MHdata(), rownametitle=c("Find a Psychologist (NYSPA)"), phone=F, website=T)
-        mod_info_server('Mhpsychtoday',selector=selection, data=MHdata(), rownametitle=c("Find a Therapist (Psych Today)"), phone=F, website=T)
+      if(input$PMHselector == "MH Resources (Black Communities)"){
+      selection<-input$PMHselector
+      MHBC<-reactive({
+        data[data$Type == 'MHBC',]
+      }) %>% bindCache(data[data$Type == 'MHBC',])
 
-      } else {
-        mod_Accordion_server('Mhcaps', selector=selection, data=MHdata(), title=c("Counseling and Psychological Services Center (CAPS)"),Visible = T)
-        mod_Accordion_server('Mhmiddleearth', selector=selection, data=MHdata(), title=c("Middle Earth"),Visible = T)
-        mod_Accordion_server('MHprideCenter', selector=selection, data=MHdata(), title=c("Pride Center of the Capital Region"),Visible = T)
-        mod_Accordion_server('MHsuicideFound', selector=selection, data=MHdata(), title=c("American Foundation for Suicide Prevention Capital Region"),Visible = T)
-        mod_Accordion_server('Mhnyspa', selector=selection, data=MHdata(), title=c("Find a Psychologist (NYSPA)"),Visible = T)
-        mod_Accordion_server('Mhpsychtoday', selector=selection, data=MHdata(), title=c("Find a Therapist (Psych Today)"),Visible = T)
-
-
-        mod_info_server('Mhcaps',selector=selection, data=MHdata(), rownametitle=c("Counseling and Psychological Services Center (CAPS)"), phone=T, website=T)
-        mod_info_server('Mhmiddleearth',selector=selection, data=MHdata(), rownametitle=c("Middle Earth"), phone=T, website=T)
-        mod_info_server('MHprideCenter',selector=selection, data=MHdata(), rownametitle=c("Pride Center of the Capital Region"), phone=T, website=T)
-        mod_info_server('MHsuicideFound',selector=selection, data=MHdata(), rownametitle=c("American Foundation for Suicide Prevention Capital Region"), phone=T, website=T)
-        mod_info_server('Mhnyspa',selector=selection, data=MHdata(), rownametitle=c("Find a Psychologist (NYSPA)"), phone=F, website=T)
-        mod_info_server('Mhpsychtoday',selector=selection, data=MHdata(), rownametitle=c("Find a Therapist (Psych Today)"), phone=F, website=T)
-      }
-    })
-  })
 
+      mod_Accordion_server('akkoma', selector=selection, data=MHBC(), title = c('AAKOMA Project'), Visible = T)
+      mod_info_server('akkoma', selector = selection, data = MHBC(), rownametitle = c('AAKOMA Project'), phone = F, website = T)
+      mod_Accordion_server('BEAM', selector=selection, data=MHBC(), title = c('Black Mental Wellness'), Visible = T)
+      mod_info_server('BEAM', selector = selection, data = MHBC(), rownametitle = c('Black Emotional and Mental Health Collective (BEAM)'), phone = F, website = T)
+      mod_Accordion_server('BLHF', selector=selection, data=MHBC(), title = c('The Boris Lawrence Henson Foundation'), Visible = T)
+      mod_info_server('BLHF', selector = selection, data = MHBC(), rownametitle = c('The Boris Lawrence Henson Foundation'), phone = F, website = T)
+      mod_Accordion_server('BROMM', selector=selection, data=MHBC(), title = c('Brother, You are on My Mind'), Visible = T)
+      mod_info_server('BROMM', selector = selection, data = MHBC(), rownametitle = c('Brother, You are on My Mind'), phone = F, website = T)
+      mod_Accordion_server('MHBCinsclusivetherapists', selector=selection, data=MHBC(), title = c('Inclusive Therapists'), Visible = T)
+      mod_info_server('MHBCinsclusivetherapists', selector = selection, data = MHBC(), rownametitle = c('Inclusive Therapists'), phone = F, website = T)
+      mod_Accordion_server('Loveland', selector=selection, data=MHBC(), title = c('The Loveland Foundation'), Visible = T)
+      mod_info_server('Loveland', selector = selection, data = MHBC(), rownametitle = c('The Loveland Foundation'), phone = F, website = T)
+      mod_Accordion_server('MalaninandMH', selector=selection, data=MHBC(), title = c('Melanin and Mental Health'), Visible = T)
+      mod_info_server('MalaninandMH', selector = selection, data = MHBC(), rownametitle = c('Melanin and Mental Health'), phone = F, website = T)
+      mod_Accordion_server('POCagainstsuicide', selector=selection, data=MHBC(), title = c('People of Color Against Suicide'), Visible = T)
+      mod_info_server('POCagainstsuicide', selector = selection, data = MHBC(), rownametitle = c('National Organization for People of Color Against Suicide'), phone = F, website = T)
+      mod_Accordion_server('Qttoc', selector=selection, data=MHBC(), title = c('Queer & Trans Therapists of Color'), Visible = T)
+      mod_info_server('Qttoc', selector = selection, data = MHBC(), rownametitle = c('National Queer & Trans Therapists of Color Network'), phone = F, website = T)
+      mod_Accordion_server('TherapyBlackGirls', selector=selection, data=MHBC(), title = c('Therapy for Black Girls'), Visible = T)
+      mod_info_server('TherapyBlackGirls', selector = selection, data = MHBC(), rownametitle = c('Therapy for Black Girls'), phone = F, website = T)
+      mod_Accordion_server('TherapyBlackMen', selector=selection, data=MHBC(), title = c('Therapy for Black Men'), Visible = T)
+      mod_info_server('TherapyBlackMen', selector = selection, data = MHBC(), rownametitle = c('Therapy for Black Men'), phone = F, website = T)
 
+}
 
-  # MH Black Communities ----------------------------------------------------
 
-  observeEvent(input$PMHselector,{
-    req(input$PMHselector == "MH Resources (Black Communities)")
-    selection<-input$PMHselector
-    MHBC<-reactive({
-      data[data$Type == 'MHBC',]
-    }) %>% bindCache(data[data$Type == 'MHBC',])
-
-
-    mod_Accordion_server('akkoma', selector=selection, data=MHBC(), title = c('AAKOMA Project'), Visible = T)
-    mod_info_server('akkoma', selector = selection, data = MHBC(), rownametitle = c('AAKOMA Project'), phone = F, website = T)
-    mod_Accordion_server('BEAM', selector=selection, data=MHBC(), title = c('Black Mental Wellness'), Visible = T)
-    mod_info_server('BEAM', selector = selection, data = MHBC(), rownametitle = c('Black Emotional and Mental Health Collective (BEAM)'), phone = F, website = T)
-    mod_Accordion_server('BLHF', selector=selection, data=MHBC(), title = c('The Boris Lawrence Henson Foundation'), Visible = T)
-    mod_info_server('BLHF', selector = selection, data = MHBC(), rownametitle = c('The Boris Lawrence Henson Foundation'), phone = F, website = T)
-    mod_Accordion_server('BROMM', selector=selection, data=MHBC(), title = c('Brother, You are on My Mind'), Visible = T)
-    mod_info_server('BROMM', selector = selection, data = MHBC(), rownametitle = c('Brother, You are on My Mind'), phone = F, website = T)
-    mod_Accordion_server('MHBCinsclusivetherapists', selector=selection, data=MHBC(), title = c('Inclusive Therapists'), Visible = T)
-    mod_info_server('MHBCinsclusivetherapists', selector = selection, data = MHBC(), rownametitle = c('Inclusive Therapists'), phone = F, website = T)
-    mod_Accordion_server('Loveland', selector=selection, data=MHBC(), title = c('The Loveland Foundation'), Visible = T)
-    mod_info_server('Loveland', selector = selection, data = MHBC(), rownametitle = c('The Loveland Foundation'), phone = F, website = T)
-    mod_Accordion_server('MalaninandMH', selector=selection, data=MHBC(), title = c('Melanin and Mental Health'), Visible = T)
-    mod_info_server('MalaninandMH', selector = selection, data = MHBC(), rownametitle = c('Melanin and Mental Health'), phone = F, website = T)
-    mod_Accordion_server('POCagainstsuicide', selector=selection, data=MHBC(), title = c('People of Color Against Suicide'), Visible = T)
-    mod_info_server('POCagainstsuicide', selector = selection, data = MHBC(), rownametitle = c('National Organization for People of Color Against Suicide'), phone = F, website = T)
-    mod_Accordion_server('Qttoc', selector=selection, data=MHBC(), title = c('Queer & Trans Therapists of Color'), Visible = T)
-    mod_info_server('Qttoc', selector = selection, data = MHBC(), rownametitle = c('National Queer & Trans Therapists of Color Network'), phone = F, website = T)
-    mod_Accordion_server('TherapyBlackGirls', selector=selection, data=MHBC(), title = c('Therapy for Black Girls'), Visible = T)
-    mod_info_server('TherapyBlackGirls', selector = selection, data = MHBC(), rownametitle = c('Therapy for Black Girls'), phone = F, website = T)
-    mod_Accordion_server('TherapyBlackMen', selector=selection, data=MHBC(), title = c('Therapy for Black Men'), Visible = T)
-    mod_info_server('TherapyBlackMen', selector = selection, data = MHBC(), rownametitle = c('Therapy for Black Men'), phone = F, website = T)
 
-  })
 
 
-  # MH Hispanic Communities -------------------------------------------------
 
 
-  observeEvent(input$PMHselector,{
-    req(input$PMHselector == "MH Resources (Hispanic Communities)")
-    selection<-input$PMHselector
-
-    MHLC<-reactive({
-      data[data$Type == 'MHLC',]
-    }) %>% bindCache(data[data$Type == 'MHLC',])
-
-
-
-    mod_Accordion_server('CDLatinos', selector=selection, data=MHLC(), title = c('Capital District Latinos'), Visible = T)
-    mod_info_server('CDLatinos', selector = selection, data = MHLC(), rownametitle = c('Capital District Latinos'), phone = F, website = T)
-    mod_Accordion_server('MHLCInclusiveTherapists', selector=selection, data=MHLC(), title = c('Inclusive Therapists'), Visible = T)
-    mod_info_server('MHLCInclusiveTherapists', selector = selection, data = MHLC(), rownametitle = c('Inclusive Therapists'), phone = F, website = T)
-    mod_Accordion_server('LifeisPrecious', selector=selection, data=MHLC(), title = c('Life is Precious'), Visible = T)
-    mod_info_server('LifeisPrecious', selector = selection, data = MHLC(), rownametitle = c('Life is Precious'), phone = F, website = T)
-    mod_Accordion_server('LatinXtherapy', selector=selection, data=MHLC(), title = c('Latinx Therapy'), Visible = T)
-    mod_info_server('LatinXtherapy', selector = selection, data = MHLC(), rownametitle = c('Latinx Therapy'), phone = F, website = T)
-    mod_Accordion_server('NatnlLatinaOrg', selector=selection, data=MHLC(), title = c('National Latina Organization'), Visible = T)
-    mod_info_server('NatnlLatinaOrg', selector = selection, data = MHLC(), rownametitle = c('MANA, A National Latina Organization'), phone = F, website = T)
-    mod_Accordion_server('NatlAllianceHispHealth', selector=selection, data=MHLC(), title = c('Alliance for Hispanic Health'), Visible = T)
-    mod_info_server('NatlAllianceHispHealth', selector = selection, data = MHLC(), rownametitle = c('National Alliance for Hispanic Health'), phone = F, website = T)
-    mod_Accordion_server('LatinxPsychAssociation', selector=selection, data=MHLC(), title = c('Latinx Psych Association'), Visible = T)
-    mod_info_server('LatinxPsychAssociation', selector = selection, data = MHLC(), rownametitle = c('National Latinx Psychological Association'), phone = F, website = T)
-    mod_Accordion_server('MHLCpocagainstsuicide', selector=selection, data=MHLC(), title = c('People of Color Against Suicide'), Visible = T)
-    mod_info_server('MHLCpocagainstsuicide', selector = selection, data = MHLC(), rownametitle = c('National Organization for People of Color Against Suicide'), phone = F, website = T)
-    mod_Accordion_server('MHLCqtTherapistsofColor', selector=selection, data=MHLC(), title = c('Queer & Trans Therapists of Color'), Visible = T)
-    mod_info_server('MHLCqtTherapistsofColor', selector = selection, data = MHLC(), rownametitle = c('National Queer & Trans Therapists of Color Network'), phone = F, website = T)
 
 
-  })
 
 
 
 
-  # LGBTQ+ Accordion --------------------------------------------------------
 
 
-  observeEvent(input$PMHselector,{
-    req(input$PMHselector == "LGBTQ+ Resources")
-    selection<-input$PMHselector
-    SLGBT<-reactive({
-      data[data$Type == 'SLGBT',]
-    }) %>% bindCache(data[data$Type == 'SLGBT',])
-    observeEvent(input$OffCampus,{
 
-      if(input$OffCampus == F) {
-        # ON CAMPUS
-
-        mod_Accordion_server('LGB_pridecenter', selector=selection, data=SLGBT(), title = c('Pride Center of the Capital Region'), Visible = F)
-        mod_info_server('LGB_pridecenter', selector = selection, data = SLGBT(), rownametitle = c('Pride Center of the Capital Region'), phone = T, website = T)
-        mod_Accordion_server('LBG_IOOV', selector=selection, data=SLGBT(), title = c('In Our Own Voices'), Visible = F)
-        mod_info_server('LBG_IOOV', selector = selection, data = SLGBT(), rownametitle = c('In Our Own Voices'), phone = T, website = T)
-        mod_Accordion_server('LGB_APH', selector=selection, data=SLGBT(), title = c('Alliance for Positive Health'), Visible = F)
-        mod_info_server('LGB_APH', selector = selection, data = SLGBT(), rownametitle = c('Alliance for Positive Health'), phone = T, website = T)
-        mod_Accordion_server('LGB_DamienCenter', selector=selection, data=SLGBT(), title = c('Damien Center'), Visible = F)
-        mod_info_server('LGB_DamienCenter', selector = selection, data = SLGBT(), rownametitle = c('Damien Center'), phone = T, website = T)
-        mod_Accordion_server('LGB_UHPP', selector=selection, data=SLGBT(), title = c('Upper Hudson Planned Parenthood'), Visible = F)
-        mod_info_server('LGB_UHPP', selector = selection, data = SLGBT(), rownametitle = c('Upper Hudson Planned Parenthood'), phone = T, website = T)
-        mod_Accordion_server('LGB_InclusiveTherapists', selector=selection, data=SLGBT(), title = c('Inclusive Therapists'), Visible = F)
-        mod_info_server('LGB_InclusiveTherapists', selector = selection, data = SLGBT(), rownametitle = c('Inclusive Therapists'), phone = F, website = T)
-        mod_Accordion_server('LGB_Qttherapistsofcolor', selector=selection, data=SLGBT(), title = c('Queer & Trans Therapists of Color'), Visible = F)
-        mod_info_server('LGB_Qttherapistsofcolor', selector = selection, data = SLGBT(), rownametitle = c('National Queer & Trans Therapists of Color Network'), phone = F, website = T)
-        mod_Accordion_server('LGB_SHAPE', selector=selection, data=SLGBT(), title = c('Project SHAPE'), Visible = T)
-        mod_info_server('LGB_SHAPE', selector = selection, data = SLGBT(), rownametitle = c('Project SHAPE (Sexual Health and Peer Education)'), phone = T, website = T)
-        mod_Accordion_server('LGB_LegalAIDNENY', selector=selection, data=SLGBT(), title = c('Legal Aid of NE New York'), Visible = F)
-        mod_info_server('LGB_LegalAIDNENY', selector = selection, data = SLGBT(), rownametitle = c('Legal Aid Society Northeastern New York'), phone = T, website = T)
-        mod_Accordion_server('LGB_StudentLegal', selector=selection, data=SLGBT(), title = c('Student Legal Services'), Visible = T)
-        mod_info_server('LGB_StudentLegal', selector = selection, data = SLGBT(), rownametitle = c('Student Legal Services'), phone = T, website = T)
 
+    # MH Hispanic Communities -------------------------------------------------
 
-      } else {
 
-        mod_Accordion_server('LGB_pridecenter', selector=selection, data=SLGBT(), title = c('Pride Center of the Capital Region'), Visible = T)
-        mod_info_server('LGB_pridecenter', selector = selection, data = SLGBT(), rownametitle = c('Pride Center of the Capital Region'), phone = T, website = T)
-        mod_Accordion_server('LBG_IOOV', selector=selection, data=SLGBT(), title = c('In Our Own Voices'), Visible = T)
-        mod_info_server('LBG_IOOV', selector = selection, data = SLGBT(), rownametitle = c('In Our Own Voices'), phone = T, website = T)
-        mod_Accordion_server('LGB_APH', selector=selection, data=SLGBT(), title = c('Alliance for Positive Health'), Visible = T)
-        mod_info_server('LGB_APH', selector = selection, data = SLGBT(), rownametitle = c('Alliance for Positive Health'), phone = T, website = T)
-        mod_Accordion_server('LGB_DamienCenter', selector=selection, data=SLGBT(), title = c('Damien Center'), Visible = T)
-        mod_info_server('LGB_DamienCenter', selector = selection, data = SLGBT(), rownametitle = c('Damien Center'), phone = T, website = T)
-        mod_Accordion_server('LGB_UHPP', selector=selection, data=SLGBT(), title = c('Upper Hudson Planned Parenthood'), Visible = T)
-        mod_info_server('LGB_UHPP', selector = selection, data = SLGBT(), rownametitle = c('Upper Hudson Planned Parenthood'), phone = T, website = T)
-        mod_Accordion_server('LGB_InclusiveTherapists', selector=selection, data=SLGBT(), title = c('Inclusive Therapists'), Visible = T)
-        mod_info_server('LGB_InclusiveTherapists', selector = selection, data = SLGBT(), rownametitle = c('Inclusive Therapists'), phone = F, website = T)
-        mod_Accordion_server('LGB_Qttherapistsofcolor', selector=selection, data=SLGBT(), title = c('Queer & Trans Therapists of Color'), Visible = T)
-        mod_info_server('LGB_Qttherapistsofcolor', selector = selection, data = SLGBT(), rownametitle = c('National Queer & Trans Therapists of Color Network'), phone = F, website = T)
-        mod_Accordion_server('LGB_SHAPE', selector=selection, data=SLGBT(), title = c('Project SHAPE'), Visible = T)
-        mod_info_server('LGB_SHAPE', selector = selection, data = SLGBT(), rownametitle = c('Project SHAPE (Sexual Health and Peer Education)'), phone = T, website = T)
-        mod_Accordion_server('LGB_LegalAIDNENY', selector=selection, data=SLGBT(), title = c('Legal Aid of NE New York'), Visible = T)
-        mod_info_server('LGB_LegalAIDNENY', selector = selection, data = SLGBT(), rownametitle = c('Legal Aid Society Northeastern New York'), phone = T, website = T)
-        mod_Accordion_server('LGB_StudentLegal', selector=selection, data=SLGBT(), title = c('Student Legal Services'), Visible = T)
-        mod_info_server('LGB_StudentLegal', selector = selection, data = SLGBT(), rownametitle = c('Student Legal Services'), phone = T, website = T)
 
+    if(input$PMHselector == "MH Resources (Hispanic Communities)"){
+      selection<-input$PMHselector
 
-      }
-    })
-  })
+      MHLC<-reactive({
+        data[data$Type == 'MHLC',]
+      }) %>% bindCache(data[data$Type == 'MHLC',])
 
 
 
+      mod_Accordion_server('CDLatinos', selector=selection, data=MHLC(), title = c('Capital District Latinos'), Visible = T)
+      mod_info_server('CDLatinos', selector = selection, data = MHLC(), rownametitle = c('Capital District Latinos'), phone = F, website = T)
+      mod_Accordion_server('MHLCInclusiveTherapists', selector=selection, data=MHLC(), title = c('Inclusive Therapists'), Visible = T)
+      mod_info_server('MHLCInclusiveTherapists', selector = selection, data = MHLC(), rownametitle = c('Inclusive Therapists'), phone = F, website = T)
+      mod_Accordion_server('LifeisPrecious', selector=selection, data=MHLC(), title = c('Life is Precious'), Visible = T)
+      mod_info_server('LifeisPrecious', selector = selection, data = MHLC(), rownametitle = c('Life is Precious'), phone = F, website = T)
+      mod_Accordion_server('LatinXtherapy', selector=selection, data=MHLC(), title = c('Latinx Therapy'), Visible = T)
+      mod_info_server('LatinXtherapy', selector = selection, data = MHLC(), rownametitle = c('Latinx Therapy'), phone = F, website = T)
+      mod_Accordion_server('NatnlLatinaOrg', selector=selection, data=MHLC(), title = c('National Latina Organization'), Visible = T)
+      mod_info_server('NatnlLatinaOrg', selector = selection, data = MHLC(), rownametitle = c('MANA, A National Latina Organization'), phone = F, website = T)
+      mod_Accordion_server('NatlAllianceHispHealth', selector=selection, data=MHLC(), title = c('Alliance for Hispanic Health'), Visible = T)
+      mod_info_server('NatlAllianceHispHealth', selector = selection, data = MHLC(), rownametitle = c('National Alliance for Hispanic Health'), phone = F, website = T)
+      mod_Accordion_server('LatinxPsychAssociation', selector=selection, data=MHLC(), title = c('Latinx Psych Association'), Visible = T)
+      mod_info_server('LatinxPsychAssociation', selector = selection, data = MHLC(), rownametitle = c('National Latinx Psychological Association'), phone = F, website = T)
+      mod_Accordion_server('MHLCpocagainstsuicide', selector=selection, data=MHLC(), title = c('People of Color Against Suicide'), Visible = T)
+      mod_info_server('MHLCpocagainstsuicide', selector = selection, data = MHLC(), rownametitle = c('National Organization for People of Color Against Suicide'), phone = F, website = T)
+      mod_Accordion_server('MHLCqtTherapistsofColor', selector=selection, data=MHLC(), title = c('Queer & Trans Therapists of Color'), Visible = T)
+      mod_info_server('MHLCqtTherapistsofColor', selector = selection, data = MHLC(), rownametitle = c('National Queer & Trans Therapists of Color Network'), phone = F, website = T)
 
 
-  # Sexual Health Accordion -------------------------------------------------
+    }
 
 
-  observeEvent(input$PMHselector,{
-    req(input$PMHselector == "Sexual Health")
-    selection<-input$PMHselector
-    HIVSTI<-reactive({
-      data[data$Type == 'HIVSTI',]
-    }) %>% bindCache(data[data$Type == 'HIVSTI',])
-    observeEvent(input$OffCampus,{
 
-      if(input$OffCampus == F) {
-        # ON CAMPUS
-        mod_Accordion_server('SH_SHS', selector=selection, data=HIVSTI(), title = c('Student Health Services'), Visible = T)
-        mod_info_server('SH_SHS', selector = selection, data = HIVSTI(), rownametitle = c('Student Health Services'), phone = T, website = T)
-        mod_Accordion_server('SH_APH', selector=selection, data=HIVSTI(), title = c('Alliance for Positive Health'), Visible = F)
-        mod_info_server('SH_APH', selector = selection, data = HIVSTI(), rownametitle = c('Alliance for Positive Health'), phone = T, website = T)
-        mod_Accordion_server('SH_AMC', selector=selection, data=HIVSTI(), title = c('Albany Med Young Adult Program'), Visible = F)
-        mod_info_server('SH_AMC', selector = selection, data = HIVSTI(), rownametitle = c('Albany Med Young Adult Program'), phone = T, website = T)
-        mod_Accordion_server('SH_DamienCenter', selector=selection, data=HIVSTI(), title = c('Damien Center'), Visible = F)
-        mod_info_server('SH_DamienCenter', selector = selection, data = HIVSTI(), rownametitle = c('Damien Center'), phone = T, website = T)
-        mod_Accordion_server('SH_UHPP', selector=selection, data=HIVSTI(), title = c('Upper Hudson Planned Parenthood'), Visible = F)
-        mod_info_server('SH_UHPP', selector = selection, data = HIVSTI(), rownametitle = c('Upper Hudson Planned Parenthood'), phone = T, website = T)
-        mod_Accordion_server('SH_PrideCenter', selector=selection, data=HIVSTI(), title = c('Pride Center of the Capital Region'), Visible = F)
-        mod_info_server('SH_PrideCenter', selector = selection, data = HIVSTI(), rownametitle = c('Pride Center of the Capital Region'), phone = T, website = T)
-        mod_Accordion_server('SH_WYH', selector=selection, data=HIVSTI(), title = c('Whitney Young Health'), Visible = F)
-        mod_info_server('SH_WYH', selector = selection, data = HIVSTI(), rownametitle = c('Whitney Young Health'), phone = T, website = T)
 
 
-      } else {
 
-        mod_Accordion_server('SH_SHS', selector=selection, data=HIVSTI(), title = c('Student Health Services'), Visible = T)
-        mod_info_server('SH_SHS', selector = selection, data = HIVSTI(), rownametitle = c('Student Health Services'), phone = T, website = T)
-        mod_Accordion_server('SH_APH', selector=selection, data=HIVSTI(), title = c('Alliance for Positive Health'), Visible = T)
-        mod_info_server('SH_APH', selector = selection, data = HIVSTI(), rownametitle = c('Alliance for Positive Health'), phone = T, website = T)
-        mod_Accordion_server('SH_AMC', selector=selection, data=HIVSTI(), title = c('Albany Med Young Adult Program'), Visible = T)
-        mod_info_server('SH_AMC', selector = selection, data = HIVSTI(), rownametitle = c('Albany Med Young Adult Program'), phone = T, website = T)
-        mod_Accordion_server('SH_DamienCenter', selector=selection, data=HIVSTI(), title = c('Damien Center'), Visible = T)
-        mod_info_server('SH_DamienCenter', selector = selection, data = HIVSTI(), rownametitle = c('Damien Center'), phone = T, website = T)
-        mod_Accordion_server('SH_UHPP', selector=selection, data=HIVSTI(), title = c('Upper Hudson Planned Parenthood'), Visible = T)
-        mod_info_server('SH_UHPP', selector = selection, data = HIVSTI(), rownametitle = c('Upper Hudson Planned Parenthood'), phone = T, website = T)
-        mod_Accordion_server('SH_PrideCenter', selector=selection, data=HIVSTI(), title = c('Pride Center of the Capital Region'), Visible = T)
-        mod_info_server('SH_PrideCenter', selector = selection, data = HIVSTI(), rownametitle = c('Pride Center of the Capital Region'), phone = T, website = T)
-        mod_Accordion_server('SH_WYH', selector=selection, data=HIVSTI(), title = c('Whitney Young Health'), Visible = T)
-        mod_info_server('SH_WYH', selector = selection, data = HIVSTI(), rownametitle = c('Whitney Young Health'), phone = T, website = T)
 
-      }
-    })
-  })
 
 
+    # LGBTQ+ Accordion --------------------------------------------------------
 
-  # Sexual Violence Accordion -----------------------------------------------
 
 
-  observeEvent(input$PMHselector,{
-    req(input$PMHselector == "Sexual Violence Related")
-    selection<-input$PMHselector
-    # SVdata<-data[data$Type == 'SV',]
-    observeEvent(input$OffCampus,{
+    if(input$PMHselector == "LGBTQ+ Resources"){
+      selection<-input$PMHselector
+      SLGBT<-reactive({
+        data[data$Type == 'SLGBT',]
+      }) %>% bindCache(data[data$Type == 'SLGBT',])
+      observeEvent(input$OffCampus,{
 
-      if(input$OffCampus == F) {
-        # ON CAMPUS
-        mod_Accordion_server('SV_SLS', selector=selection, data=SVdata(), title = c('Student Legal Services'), Visible = T)
-        mod_info_server('SV_SLS', selector = selection, data = SVdata(), rownametitle = c('Student Legal Services'), phone = T, website = T)
-        mod_Accordion_server('SV_SVsupportAdvocacy', selector=selection, data=SVdata(), title = c('Sexual Violence Support & Advocacy'), Visible = F)
-        mod_info_server('SV_SVsupportAdvocacy', selector = selection, data = SVdata(), rownametitle = c('Sexual Violence Support & Advocacy Services'), phone = T, website = T)
-        mod_Accordion_server('SV_24hrSexualAssaultHotline', selector=selection, data=SVdata(), title = c('24-Hour Sexual Assault Hotline'), Visible = F)
-        mod_info_server('SV_24hrSexualAssaultHotline', selector = selection, data = SVdata(), rownametitle = c('24-Hour Sexual Assault Hotline'), phone = T, website = T)
-        mod_Accordion_server('SV_RAINN', selector=selection, data=SVdata(), title = c('RAINN Sexual Violence'), Visible = F)
-        mod_info_server('SV_RAINN', selector = selection, data = SVdata(), rownametitle = c('RAINN Sexual Violence'), phone = T, website = T)
-        mod_Accordion_server('SV_Svcenter', selector=selection, data=SVdata(), title = c('Sexual Violence Center'), Visible = F)
-        mod_info_server('SV_Svcenter', selector = selection, data = SVdata(), rownametitle = c('Crime Victim and Sexual Violence Center'), phone = T, website = T)
+        if(input$OffCampus == F) {
+          # ON CAMPUS
 
+          mod_Accordion_server('LGB_pridecenter', selector=selection, data=SLGBT(), title = c('Pride Center of the Capital Region'), Visible = F)
+          mod_info_server('LGB_pridecenter', selector = selection, data = SLGBT(), rownametitle = c('Pride Center of the Capital Region'), phone = T, website = T)
+          mod_Accordion_server('LBG_IOOV', selector=selection, data=SLGBT(), title = c('In Our Own Voices'), Visible = F)
+          mod_info_server('LBG_IOOV', selector = selection, data = SLGBT(), rownametitle = c('In Our Own Voices'), phone = T, website = T)
+          mod_Accordion_server('LGB_APH', selector=selection, data=SLGBT(), title = c('Alliance for Positive Health'), Visible = F)
+          mod_info_server('LGB_APH', selector = selection, data = SLGBT(), rownametitle = c('Alliance for Positive Health'), phone = T, website = T)
+          mod_Accordion_server('LGB_DamienCenter', selector=selection, data=SLGBT(), title = c('Damien Center'), Visible = F)
+          mod_info_server('LGB_DamienCenter', selector = selection, data = SLGBT(), rownametitle = c('Damien Center'), phone = T, website = T)
+          mod_Accordion_server('LGB_UHPP', selector=selection, data=SLGBT(), title = c('Upper Hudson Planned Parenthood'), Visible = F)
+          mod_info_server('LGB_UHPP', selector = selection, data = SLGBT(), rownametitle = c('Upper Hudson Planned Parenthood'), phone = T, website = T)
+          mod_Accordion_server('LGB_InclusiveTherapists', selector=selection, data=SLGBT(), title = c('Inclusive Therapists'), Visible = F)
+          mod_info_server('LGB_InclusiveTherapists', selector = selection, data = SLGBT(), rownametitle = c('Inclusive Therapists'), phone = F, website = T)
+          mod_Accordion_server('LGB_Qttherapistsofcolor', selector=selection, data=SLGBT(), title = c('Queer & Trans Therapists of Color'), Visible = F)
+          mod_info_server('LGB_Qttherapistsofcolor', selector = selection, data = SLGBT(), rownametitle = c('National Queer & Trans Therapists of Color Network'), phone = F, website = T)
+          mod_Accordion_server('LGB_SHAPE', selector=selection, data=SLGBT(), title = c('Project SHAPE'), Visible = T)
+          mod_info_server('LGB_SHAPE', selector = selection, data = SLGBT(), rownametitle = c('Project SHAPE (Sexual Health and Peer Education)'), phone = T, website = T)
+          mod_Accordion_server('LGB_LegalAIDNENY', selector=selection, data=SLGBT(), title = c('Legal Aid of NE New York'), Visible = F)
+          mod_info_server('LGB_LegalAIDNENY', selector = selection, data = SLGBT(), rownametitle = c('Legal Aid Society Northeastern New York'), phone = T, website = T)
+          mod_Accordion_server('LGB_StudentLegal', selector=selection, data=SLGBT(), title = c('Student Legal Services'), Visible = T)
+          mod_info_server('LGB_StudentLegal', selector = selection, data = SLGBT(), rownametitle = c('Student Legal Services'), phone = T, website = T)
 
 
-      } else {
+        } else {
 
-        mod_Accordion_server('SV_SLS', selector=selection, data=SVdata(), title = c('Student Legal Services'), Visible = T)
-        mod_info_server('SV_SLS', selector = selection, data = SVdata(), rownametitle = c('Student Legal Services'), phone = T, website = T)
-        mod_Accordion_server('SV_SVsupportAdvocacy', selector=selection, data=SVdata(), title = c('Sexual Violence Support & Advocacy'), Visible = T)
-        mod_info_server('SV_SVsupportAdvocacy', selector = selection, data = SVdata(), rownametitle = c('Sexual Violence Support & Advocacy Services'), phone = T, website = T)
-        mod_Accordion_server('SV_24hrSexualAssaultHotline', selector=selection, data=SVdata(), title = c('24-Hour Sexual Assault Hotline'), Visible = T)
-        mod_info_server('SV_24hrSexualAssaultHotline', selector = selection, data = SVdata(), rownametitle = c('24-Hour Sexual Assault Hotline'), phone = T, website = T)
-        mod_Accordion_server('SV_RAINN', selector=selection, data=SVdata(), title = c('RAINN Sexual Violence'), Visible = T)
-        mod_info_server('SV_RAINN', selector = selection, data = SVdata(), rownametitle = c('RAINN Sexual Violence'), phone = T, website = T)
-        mod_Accordion_server('SV_Svcenter', selector=selection, data=SVdata(), title = c('Sexual Violence Center'), Visible = T)
-        mod_info_server('SV_Svcenter', selector = selection, data = SVdata(), rownametitle = c('Crime Victim and Sexual Violence Center'), phone = T, website = T)
+          mod_Accordion_server('LGB_pridecenter', selector=selection, data=SLGBT(), title = c('Pride Center of the Capital Region'), Visible = T)
+          mod_info_server('LGB_pridecenter', selector = selection, data = SLGBT(), rownametitle = c('Pride Center of the Capital Region'), phone = T, website = T)
+          mod_Accordion_server('LBG_IOOV', selector=selection, data=SLGBT(), title = c('In Our Own Voices'), Visible = T)
+          mod_info_server('LBG_IOOV', selector = selection, data = SLGBT(), rownametitle = c('In Our Own Voices'), phone = T, website = T)
+          mod_Accordion_server('LGB_APH', selector=selection, data=SLGBT(), title = c('Alliance for Positive Health'), Visible = T)
+          mod_info_server('LGB_APH', selector = selection, data = SLGBT(), rownametitle = c('Alliance for Positive Health'), phone = T, website = T)
+          mod_Accordion_server('LGB_DamienCenter', selector=selection, data=SLGBT(), title = c('Damien Center'), Visible = T)
+          mod_info_server('LGB_DamienCenter', selector = selection, data = SLGBT(), rownametitle = c('Damien Center'), phone = T, website = T)
+          mod_Accordion_server('LGB_UHPP', selector=selection, data=SLGBT(), title = c('Upper Hudson Planned Parenthood'), Visible = T)
+          mod_info_server('LGB_UHPP', selector = selection, data = SLGBT(), rownametitle = c('Upper Hudson Planned Parenthood'), phone = T, website = T)
+          mod_Accordion_server('LGB_InclusiveTherapists', selector=selection, data=SLGBT(), title = c('Inclusive Therapists'), Visible = T)
+          mod_info_server('LGB_InclusiveTherapists', selector = selection, data = SLGBT(), rownametitle = c('Inclusive Therapists'), phone = F, website = T)
+          mod_Accordion_server('LGB_Qttherapistsofcolor', selector=selection, data=SLGBT(), title = c('Queer & Trans Therapists of Color'), Visible = T)
+          mod_info_server('LGB_Qttherapistsofcolor', selector = selection, data = SLGBT(), rownametitle = c('National Queer & Trans Therapists of Color Network'), phone = F, website = T)
+          mod_Accordion_server('LGB_SHAPE', selector=selection, data=SLGBT(), title = c('Project SHAPE'), Visible = T)
+          mod_info_server('LGB_SHAPE', selector = selection, data = SLGBT(), rownametitle = c('Project SHAPE (Sexual Health and Peer Education)'), phone = T, website = T)
+          mod_Accordion_server('LGB_LegalAIDNENY', selector=selection, data=SLGBT(), title = c('Legal Aid of NE New York'), Visible = T)
+          mod_info_server('LGB_LegalAIDNENY', selector = selection, data = SLGBT(), rownametitle = c('Legal Aid Society Northeastern New York'), phone = T, website = T)
+          mod_Accordion_server('LGB_StudentLegal', selector=selection, data=SLGBT(), title = c('Student Legal Services'), Visible = T)
+          mod_info_server('LGB_StudentLegal', selector = selection, data = SLGBT(), rownametitle = c('Student Legal Services'), phone = T, website = T)
 
 
-      }
-    })
-  })
+        }
+      })
+    }
 
 
 
 
-  # AOD Accordion -----------------------------------------------------------
 
+    # Sexual Health Accordion -------------------------------------------------
 
-  observeEvent(input$PMHselector,{
-    req(input$PMHselector == "Alcohol and Other Drugs")
-    selection<-input$PMHselector
-    AODdata<-reactive({
-      data[data$Type == 'AOD',]
-    }) %>% bindCache(data[data$Type == 'AOD',])
-    observeEvent(input$OffCampus,{
 
-      if(input$OffCampus == F) {
 
-        mod_Accordion_server('AOD_OHP', selector=selection, data=AODdata(), title = c('Collegiate Recovery Program'), Visible = T)
-        mod_info_server('AOD_OHP', selector = selection, data = AODdata(), rownametitle = c('Collegiate Recovery Program'), phone = T, website = T)
-        mod_Accordion_server('AOD_NUA', selector=selection, data=AODdata(), title = c('Never Use Alone'), Visible = F)
-        mod_info_server('AOD_NUA', selector = selection, data = AODdata(), rownametitle = c('Never Use Alone'), phone = T, website = T)
-        mod_Accordion_server('AOD_Equinox', selector=selection, data=AODdata(), title = c('Equinox'), Visible = F)
-        mod_info_server('AOD_Equinox', selector = selection, data = AODdata(), rownametitle = c('Equinox'), phone = T, website = T)
-        mod_Accordion_server('AOD_ACCAlbany', selector=selection, data=AODdata(), title = c('Addictions Care Center of Albany'), Visible = F)
-        mod_info_server('AOD_ACCAlbany', selector = selection, data = AODdata(), rownametitle = c('Addictions Care Center of Albany'), phone = T, website = T)
-        mod_Accordion_server('AOD_OASASlocator', selector=selection, data=AODdata(), title = c('OASAS Treatment Locator'), Visible = F)
-        mod_info_server('AOD_OASASlocator', selector = selection, data = AODdata(), rownametitle = c('OASAS Treatment Locator'), phone = T, website = T)
+    if(input$PMHselector == "Sexual Health"){
+      selection<-input$PMHselector
+      HIVSTI<-reactive({
+        data[data$Type == 'HIVSTI',]
+      }) %>% bindCache(data[data$Type == 'HIVSTI',])
+      observeEvent(input$OffCampus,{
 
+        if(input$OffCampus == F) {
+          # ON CAMPUS
+          mod_Accordion_server('SH_SHS', selector=selection, data=HIVSTI(), title = c('Student Health Services'), Visible = T)
+          mod_info_server('SH_SHS', selector = selection, data = HIVSTI(), rownametitle = c('Student Health Services'), phone = T, website = T)
+          mod_Accordion_server('SH_APH', selector=selection, data=HIVSTI(), title = c('Alliance for Positive Health'), Visible = F)
+          mod_info_server('SH_APH', selector = selection, data = HIVSTI(), rownametitle = c('Alliance for Positive Health'), phone = T, website = T)
+          mod_Accordion_server('SH_AMC', selector=selection, data=HIVSTI(), title = c('Albany Med Young Adult Program'), Visible = F)
+          mod_info_server('SH_AMC', selector = selection, data = HIVSTI(), rownametitle = c('Albany Med Young Adult Program'), phone = T, website = T)
+          mod_Accordion_server('SH_DamienCenter', selector=selection, data=HIVSTI(), title = c('Damien Center'), Visible = F)
+          mod_info_server('SH_DamienCenter', selector = selection, data = HIVSTI(), rownametitle = c('Damien Center'), phone = T, website = T)
+          mod_Accordion_server('SH_UHPP', selector=selection, data=HIVSTI(), title = c('Upper Hudson Planned Parenthood'), Visible = F)
+          mod_info_server('SH_UHPP', selector = selection, data = HIVSTI(), rownametitle = c('Upper Hudson Planned Parenthood'), phone = T, website = T)
+          mod_Accordion_server('SH_PrideCenter', selector=selection, data=HIVSTI(), title = c('Pride Center of the Capital Region'), Visible = F)
+          mod_info_server('SH_PrideCenter', selector = selection, data = HIVSTI(), rownametitle = c('Pride Center of the Capital Region'), phone = T, website = T)
+          mod_Accordion_server('SH_WYH', selector=selection, data=HIVSTI(), title = c('Whitney Young Health'), Visible = F)
+          mod_info_server('SH_WYH', selector = selection, data = HIVSTI(), rownametitle = c('Whitney Young Health'), phone = T, website = T)
 
 
+        } else {
 
-      } else {
-        mod_Accordion_server('AOD_OHP', selector=selection, data=AODdata(), title = c('Collegiate Recovery Program'), Visible = T)
-        mod_info_server('AOD_OHP', selector = selection, data = AODdata(), rownametitle = c('Collegiate Recovery Program'), phone = T, website = T)
-        mod_Accordion_server('AOD_NUA', selector=selection, data=AODdata(), title = c('Never Use Alone'), Visible = T)
-        mod_info_server('AOD_NUA', selector = selection, data = AODdata(), rownametitle = c('Never Use Alone'), phone = T, website = T)
-        mod_Accordion_server('AOD_Equinox', selector=selection, data=AODdata(), title = c('Equinox'), Visible = T)
-        mod_info_server('AOD_Equinox', selector = selection, data = AODdata(), rownametitle = c('Equinox'), phone = T, website = T)
-        mod_Accordion_server('AOD_ACCAlbany', selector=selection, data=AODdata(), title = c('Addictions Care Center of Albany'), Visible = T)
-        mod_info_server('AOD_ACCAlbany', selector = selection, data = AODdata(), rownametitle = c('Addictions Care Center of Albany'), phone = T, website = T)
-        mod_Accordion_server('AOD_OASASlocator', selector=selection, data=AODdata(), title = c('OASAS Treatment Locator'), Visible = T)
-        mod_info_server('AOD_OASASlocator', selector = selection, data = AODdata(), rownametitle = c('OASAS Treatment Locator'), phone = T, website = T)
+          mod_Accordion_server('SH_SHS', selector=selection, data=HIVSTI(), title = c('Student Health Services'), Visible = T)
+          mod_info_server('SH_SHS', selector = selection, data = HIVSTI(), rownametitle = c('Student Health Services'), phone = T, website = T)
+          mod_Accordion_server('SH_APH', selector=selection, data=HIVSTI(), title = c('Alliance for Positive Health'), Visible = T)
+          mod_info_server('SH_APH', selector = selection, data = HIVSTI(), rownametitle = c('Alliance for Positive Health'), phone = T, website = T)
+          mod_Accordion_server('SH_AMC', selector=selection, data=HIVSTI(), title = c('Albany Med Young Adult Program'), Visible = T)
+          mod_info_server('SH_AMC', selector = selection, data = HIVSTI(), rownametitle = c('Albany Med Young Adult Program'), phone = T, website = T)
+          mod_Accordion_server('SH_DamienCenter', selector=selection, data=HIVSTI(), title = c('Damien Center'), Visible = T)
+          mod_info_server('SH_DamienCenter', selector = selection, data = HIVSTI(), rownametitle = c('Damien Center'), phone = T, website = T)
+          mod_Accordion_server('SH_UHPP', selector=selection, data=HIVSTI(), title = c('Upper Hudson Planned Parenthood'), Visible = T)
+          mod_info_server('SH_UHPP', selector = selection, data = HIVSTI(), rownametitle = c('Upper Hudson Planned Parenthood'), phone = T, website = T)
+          mod_Accordion_server('SH_PrideCenter', selector=selection, data=HIVSTI(), title = c('Pride Center of the Capital Region'), Visible = T)
+          mod_info_server('SH_PrideCenter', selector = selection, data = HIVSTI(), rownametitle = c('Pride Center of the Capital Region'), phone = T, website = T)
+          mod_Accordion_server('SH_WYH', selector=selection, data=HIVSTI(), title = c('Whitney Young Health'), Visible = T)
+          mod_info_server('SH_WYH', selector = selection, data = HIVSTI(), rownametitle = c('Whitney Young Health'), phone = T, website = T)
 
+        }
+      })
+    }
 
 
-      }
-    })
-  })
 
+    # Sexual Violence Accordion -----------------------------------------------
 
 
 
+    if(input$PMHselector == "Sexual Violence Related"){
+      selection<-input$PMHselector
+      # SVdata<-data[data$Type == 'SV',]
+      observeEvent(input$OffCampus,{
 
+        if(input$OffCampus == F) {
+          # ON CAMPUS
+          mod_Accordion_server('SV_SLS', selector=selection, data=SVdata(), title = c('Student Legal Services'), Visible = T)
+          mod_info_server('SV_SLS', selector = selection, data = SVdata(), rownametitle = c('Student Legal Services'), phone = T, website = T)
+          mod_Accordion_server('SV_SVsupportAdvocacy', selector=selection, data=SVdata(), title = c('Sexual Violence Support & Advocacy'), Visible = F)
+          mod_info_server('SV_SVsupportAdvocacy', selector = selection, data = SVdata(), rownametitle = c('Sexual Violence Support & Advocacy Services'), phone = T, website = T)
+          mod_Accordion_server('SV_24hrSexualAssaultHotline', selector=selection, data=SVdata(), title = c('24-Hour Sexual Assault Hotline'), Visible = F)
+          mod_info_server('SV_24hrSexualAssaultHotline', selector = selection, data = SVdata(), rownametitle = c('24-Hour Sexual Assault Hotline'), phone = T, website = T)
+          mod_Accordion_server('SV_RAINN', selector=selection, data=SVdata(), title = c('RAINN Sexual Violence'), Visible = F)
+          mod_info_server('SV_RAINN', selector = selection, data = SVdata(), rownametitle = c('RAINN Sexual Violence'), phone = T, website = T)
+          mod_Accordion_server('SV_Svcenter', selector=selection, data=SVdata(), title = c('Sexual Violence Center'), Visible = F)
+          mod_info_server('SV_Svcenter', selector = selection, data = SVdata(), rownametitle = c('Crime Victim and Sexual Violence Center'), phone = T, website = T)
 
 
-  # Problem Gambling Accordion ----------------------------------------------
-  observeEvent(input$PMHselector,{
-    req(input$PMHselector == "Problem Gambling")
-    selection<-input$PMHselector
-    GAMBdata<-reactive({
-      data[data$Type == 'GAMB',]
-    }) %>% bindCache(data[data$Type == 'GAMB',])
-
-    mod_Accordion_server('GAMB_Escreener', selector=selection, data=GAMBdata(), title = c('NYS Gambling E-Screener'), Visible = T)
-    mod_info_server('GAMB_Escreener', selector = selection, data = GAMBdata(), rownametitle = c('NYS Gambling E-Screener'), phone = F, website = T)
-    mod_Accordion_server('GAMB_NYShotline', selector=selection, data=GAMBdata(), title = c('New York State Gamblers Hotline'), Visible = T)
-    mod_info_server('GAMB_NYShotline', selector = selection, data = GAMBdata(), rownametitle = c("New York State Gambler's Hotline"), phone = T, website = T)
-    mod_Accordion_server('GAMB_NtnlHotline', selector=selection, data=GAMBdata(), title = c('National Gambler Support Line'), Visible = T)
-    mod_info_server('GAMB_NtnlHotline', selector = selection, data = GAMBdata(), rownametitle = c('National Gambler Support Line'), phone = T, website = T)
-    mod_Accordion_server('GAMB_gambAnonymous', selector=selection, data=GAMBdata(), title = c('Gamblers Anonymous'), Visible = T)
-    mod_info_server('GAMB_gambAnonymous', selector = selection, data = GAMBdata(), rownametitle = c('Gamblers Anonymous'), phone = F, website = T)
-    mod_Accordion_server('GAMB_gambAnon', selector=selection, data=GAMBdata(), title = c('Gam-Anon'), Visible = T)
-    mod_info_server('GAMB_gambAnon', selector = selection, data = GAMBdata(), rownametitle = c('Gam-Anon'), phone = F, website = T)
-    mod_Accordion_server('GAMB_TxtLocator', selector=selection, data=GAMBdata(), title = c('Gambling Treatment Locator'), Visible = T)
-    mod_info_server('GAMB_TxtLocator', selector = selection, data = GAMBdata(), rownametitle = c('OASAS Problem Gambling Treatment Locator'), phone = F, website = T)
 
+        } else {
 
+          mod_Accordion_server('SV_SLS', selector=selection, data=SVdata(), title = c('Student Legal Services'), Visible = T)
+          mod_info_server('SV_SLS', selector = selection, data = SVdata(), rownametitle = c('Student Legal Services'), phone = T, website = T)
+          mod_Accordion_server('SV_SVsupportAdvocacy', selector=selection, data=SVdata(), title = c('Sexual Violence Support & Advocacy'), Visible = T)
+          mod_info_server('SV_SVsupportAdvocacy', selector = selection, data = SVdata(), rownametitle = c('Sexual Violence Support & Advocacy Services'), phone = T, website = T)
+          mod_Accordion_server('SV_24hrSexualAssaultHotline', selector=selection, data=SVdata(), title = c('24-Hour Sexual Assault Hotline'), Visible = T)
+          mod_info_server('SV_24hrSexualAssaultHotline', selector = selection, data = SVdata(), rownametitle = c('24-Hour Sexual Assault Hotline'), phone = T, website = T)
+          mod_Accordion_server('SV_RAINN', selector=selection, data=SVdata(), title = c('RAINN Sexual Violence'), Visible = T)
+          mod_info_server('SV_RAINN', selector = selection, data = SVdata(), rownametitle = c('RAINN Sexual Violence'), phone = T, website = T)
+          mod_Accordion_server('SV_Svcenter', selector=selection, data=SVdata(), title = c('Sexual Violence Center'), Visible = T)
+          mod_info_server('SV_Svcenter', selector = selection, data = SVdata(), rownametitle = c('Crime Victim and Sexual Violence Center'), phone = T, website = T)
 
-  })
 
+        }
+      })
+    }
 
 
 
 
+    # AOD Accordion -----------------------------------------------------------
 
 
-  # Academic Resources Accordion --------------------------------------------
-  observeEvent(input$PMHselector,{
-    req(input$PMHselector == "Academic Resources")
-    selection<-input$PMHselector
-    Acadata<-reactive({
-      data[data$Type == 'Aca',]
-    }) %>% bindCache(data[data$Type == 'Aca',])
-
-
-    mod_Accordion_server('ACA_lib', selector=selection, data=Acadata(), title = c('University Libraries'), Visible = T)
-    mod_info_server('ACA_lib', selector = selection, data = Acadata(), rownametitle = c('University Libraries'), phone = T, website = T)
-    mod_Accordion_server('ACA_DAISS', selector=selection, data=Acadata(), title = c('Disability Access and Inclusion Student Services'), Visible = T)
-    mod_info_server('ACA_DAISS', selector = selection, data = Acadata(), rownametitle = c('Disability Access and Inclusion Student Services'), phone = T, website = T)
-    mod_Accordion_server('ACA_Writing', selector=selection, data=Acadata(), title = c('Writing Center'), Visible = T)
-    mod_info_server('ACA_Writing', selector = selection, data = Acadata(), rownametitle = c('Writing Center'), phone = T, website = T)
-    mod_Accordion_server('ACA_Tutoring', selector=selection, data=Acadata(), title = c('Tutoring'), Visible = T)
-    mod_info_server('ACA_Tutoring', selector = selection, data = Acadata(), rownametitle = c('Tutoring'), phone = T, website = T)
-    mod_Accordion_server('ACA_Excel', selector=selection, data=Acadata(), title = c('Project Excel'), Visible = T)
-    mod_info_server('ACA_Excel', selector = selection, data = Acadata(), rownametitle = c('Project Excel'), phone = T, website = T)
-    mod_Accordion_server('ACA_CSTEP', selector=selection, data=Acadata(), title = c('CSTEP'), Visible = T)
-    mod_info_server('ACA_CSTEP', selector = selection, data = Acadata(), rownametitle = c('Collegiate Science and Technology Entry Program (CSTEP)'), phone = T, website = T)
-    mod_Accordion_server('ACA_SummerResearch', selector=selection, data=Acadata(), title = c('Summer Research Program'), Visible = T)
-    mod_info_server('ACA_SummerResearch', selector = selection, data = Acadata(), rownametitle = c('University at Albany Summer Research Program'), phone = T, website = T)
-    mod_Accordion_server('ACA_DOS', selector=selection, data=Acadata(), title = c('Dean of Students'), Visible = T)
-    mod_info_server('ACA_DOS', selector = selection, data = Acadata(), rownametitle = c('Dean of Students'), phone = T, website = T)
+    if(input$PMHselector == "Alcohol and Other Drugs"){
+      selection<-input$PMHselector
+      AODdata<-reactive({
+        data[data$Type == 'AOD',]
+      }) %>% bindCache(data[data$Type == 'AOD',])
+      observeEvent(input$OffCampus,{
 
-  })
+        if(input$OffCampus == F) {
 
+          mod_Accordion_server('AOD_OHP', selector=selection, data=AODdata(), title = c('Collegiate Recovery Program'), Visible = T)
+          mod_info_server('AOD_OHP', selector = selection, data = AODdata(), rownametitle = c('Collegiate Recovery Program'), phone = T, website = T)
+          mod_Accordion_server('AOD_NUA', selector=selection, data=AODdata(), title = c('Never Use Alone'), Visible = F)
+          mod_info_server('AOD_NUA', selector = selection, data = AODdata(), rownametitle = c('Never Use Alone'), phone = T, website = T)
+          mod_Accordion_server('AOD_Equinox', selector=selection, data=AODdata(), title = c('Equinox'), Visible = F)
+          mod_info_server('AOD_Equinox', selector = selection, data = AODdata(), rownametitle = c('Equinox'), phone = T, website = T)
+          mod_Accordion_server('AOD_ACCAlbany', selector=selection, data=AODdata(), title = c('Addictions Care Center of Albany'), Visible = F)
+          mod_info_server('AOD_ACCAlbany', selector = selection, data = AODdata(), rownametitle = c('Addictions Care Center of Albany'), phone = T, website = T)
+          mod_Accordion_server('AOD_OASASlocator', selector=selection, data=AODdata(), title = c('OASAS Treatment Locator'), Visible = F)
+          mod_info_server('AOD_OASASlocator', selector = selection, data = AODdata(), rownametitle = c('OASAS Treatment Locator'), phone = T, website = T)
 
 
 
-  # Food Housing Financial Accordion ----------------------------------------
-  observeEvent(input$PMHselector,{
-    req(input$PMHselector == "Food, Housing, & Financial")
-    selection<-input$PMHselector
-    FHFdata<-reactive({
-      data[data$Type == 'FHF',]
-    }) %>% bindCache(data[data$Type == 'FHF',])
 
-    mod_Accordion_server('FAO', selector=selection, data=FHFdata(), title = c('Financial Aid Office'), Visible = T)
-    mod_info_server('FAO', selector = selection, data = FHFdata(), rownametitle = c('Financial Aid Office'), phone = T, website = T)
-    mod_Accordion_server('PurplePantry', selector=selection, data=FHFdata(), title = c('Purple Pantry'), Visible = T)
-    mod_info_server('PurplePantry', selector = selection, data = FHFdata(), rownametitle = c('Purple Pantry'), phone = T, website = T)
-    mod_Accordion_server('PurpleThreads', selector=selection, data=FHFdata(), title = c('Purple Threads'), Visible = T)
-    mod_info_server('PurpleThreads', selector = selection, data = FHFdata(), rownametitle = c('Purple Threads'), phone = T, website = T)
-    mod_Accordion_server('UAemergencyFund', selector=selection, data=FHFdata(), title = c('UAlbany Student Emergency Fund'), Visible = T)
-    mod_info_server('UAemergencyFund', selector = selection, data = FHFdata(), rownametitle = c('UAlbany Student Emergency Fund'), phone = T, website = T)
+        } else {
+          mod_Accordion_server('AOD_OHP', selector=selection, data=AODdata(), title = c('Collegiate Recovery Program'), Visible = T)
+          mod_info_server('AOD_OHP', selector = selection, data = AODdata(), rownametitle = c('Collegiate Recovery Program'), phone = T, website = T)
+          mod_Accordion_server('AOD_NUA', selector=selection, data=AODdata(), title = c('Never Use Alone'), Visible = T)
+          mod_info_server('AOD_NUA', selector = selection, data = AODdata(), rownametitle = c('Never Use Alone'), phone = T, website = T)
+          mod_Accordion_server('AOD_Equinox', selector=selection, data=AODdata(), title = c('Equinox'), Visible = T)
+          mod_info_server('AOD_Equinox', selector = selection, data = AODdata(), rownametitle = c('Equinox'), phone = T, website = T)
+          mod_Accordion_server('AOD_ACCAlbany', selector=selection, data=AODdata(), title = c('Addictions Care Center of Albany'), Visible = T)
+          mod_info_server('AOD_ACCAlbany', selector = selection, data = AODdata(), rownametitle = c('Addictions Care Center of Albany'), phone = T, website = T)
+          mod_Accordion_server('AOD_OASASlocator', selector=selection, data=AODdata(), title = c('OASAS Treatment Locator'), Visible = T)
+          mod_info_server('AOD_OASASlocator', selector = selection, data = AODdata(), rownametitle = c('OASAS Treatment Locator'), phone = T, website = T)
 
 
 
+        }
+      })
+    }
 
 
-  })
 
 
 
 
 
-  # Legal Resources Accordion -----------------------------------------------
+    # Problem Gambling Accordion ----------------------------------------------
 
-  observeEvent(input$PMHselector,{
-    req(input$PMHselector == "Legal Resources")
-    selection<-input$PMHselector
-    Legaldata<-reactive({
-      data[data$Type == 'Legal',]
-    }) %>% bindCache(data[data$Type == 'Legal',])
-    observeEvent(input$OffCampus,{
+    if(input$PMHselector == "Problem Gambling"){
+      selection<-input$PMHselector
+      GAMBdata<-reactive({
+        data[data$Type == 'GAMB',]
+      }) %>% bindCache(data[data$Type == 'GAMB',])
 
-      if(input$OffCampus == F) {
+      mod_Accordion_server('GAMB_Escreener', selector=selection, data=GAMBdata(), title = c('NYS Gambling E-Screener'), Visible = T)
+      mod_info_server('GAMB_Escreener', selector = selection, data = GAMBdata(), rownametitle = c('NYS Gambling E-Screener'), phone = F, website = T)
+      mod_Accordion_server('GAMB_NYShotline', selector=selection, data=GAMBdata(), title = c('New York State Gamblers Hotline'), Visible = T)
+      mod_info_server('GAMB_NYShotline', selector = selection, data = GAMBdata(), rownametitle = c("New York State Gambler's Hotline"), phone = T, website = T)
+      mod_Accordion_server('GAMB_NtnlHotline', selector=selection, data=GAMBdata(), title = c('National Gambler Support Line'), Visible = T)
+      mod_info_server('GAMB_NtnlHotline', selector = selection, data = GAMBdata(), rownametitle = c('National Gambler Support Line'), phone = T, website = T)
+      mod_Accordion_server('GAMB_gambAnonymous', selector=selection, data=GAMBdata(), title = c('Gamblers Anonymous'), Visible = T)
+      mod_info_server('GAMB_gambAnonymous', selector = selection, data = GAMBdata(), rownametitle = c('Gamblers Anonymous'), phone = F, website = T)
+      mod_Accordion_server('GAMB_gambAnon', selector=selection, data=GAMBdata(), title = c('Gam-Anon'), Visible = T)
+      mod_info_server('GAMB_gambAnon', selector = selection, data = GAMBdata(), rownametitle = c('Gam-Anon'), phone = F, website = T)
+      mod_Accordion_server('GAMB_TxtLocator', selector=selection, data=GAMBdata(), title = c('Gambling Treatment Locator'), Visible = T)
+      mod_info_server('GAMB_TxtLocator', selector = selection, data = GAMBdata(), rownametitle = c('OASAS Problem Gambling Treatment Locator'), phone = F, website = T)
 
-        mod_Accordion_server('LEGAL_SLS', selector=selection, data=Legaldata(), title = c('Student Legal Services'), Visible = T)
-        mod_info_server('LEGAL_SLS', selector = selection, data = Legaldata(), rownametitle = c('Student Legal Services'), phone = T, website = T)
-        mod_Accordion_server('LEGAL_LegalAID', selector=selection, data=Legaldata(), title = c('Legal Aid Society NE New York'), Visible = F)
-        mod_info_server('LEGAL_LegalAID', selector = selection, data = Legaldata(), rownametitle = c('Legal Aid Society Northeastern New York'), phone = T, website = T)
 
 
-      } else {
+    }
 
-        mod_Accordion_server('LEGAL_SLS', selector=selection, data=Legaldata(), title = c('Student Legal Services'), Visible = T)
-        mod_info_server('LEGAL_SLS', selector = selection, data = Legaldata(), rownametitle = c('Student Legal Services'), phone = T, website = T)
-        mod_Accordion_server('LEGAL_LegalAID', selector=selection, data=Legaldata(), title = c('Legal Aid Society NE New York'), Visible = T)
-        mod_info_server('LEGAL_LegalAID', selector = selection, data = Legaldata(), rownametitle = c('Legal Aid Society Northeastern New York'), phone = T, website = T)
 
 
-      }
-    })
-  })
 
 
 
 
-  # Hotlines Accordion ------------------------------------------------------
-  observeEvent(input$PMHselector,{
-    req(input$PMHselector == "Hotlines")
-    selection<-input$PMHselector
-    HLdata<-reactive({
-      data[data$Type == 'Hotline',]
-    }) %>% bindCache(data[data$Type == 'Hotline',])
-
-    mod_Accordion_server('HL_FindAHelpline', selector=selection, data=HLdata(), title = c('Find a Helpline'), Visible = T)
-    mod_info_server('HL_FindAHelpline', selector = selection, data = HLdata(), rownametitle = c('Find a Helpline'), phone = F, website = T)
-    mod_Accordion_server('HL_NYSsupport', selector=selection, data=HLdata(), title = c('New York State Support Line'), Visible = T)
-    mod_info_server('HL_NYSsupport', selector = selection, data = HLdata(), rownametitle = c('New York State Support Line'), phone = T, website = T)
-    mod_Accordion_server('HL_NYSsexassaultHL', selector=selection, data=HLdata(), title = c('24-Hour Sexual Assault Hotline'), Visible = T)
-    mod_info_server('HL_NYSsexassaultHL', selector = selection, data = HLdata(), rownametitle = c('24-Hour Sexual Assault Hotline'), phone = T, website = T)
-    mod_Accordion_server('HL_RAINN', selector=selection, data=HLdata(), title = c('RAINN Sexual Violence'), Visible = T)
-    mod_info_server('HL_RAINN', selector = selection, data = HLdata(), rownametitle = c('RAINN Sexual Violence'), phone = T, website = T)
-    mod_Accordion_server('HL_SmokersQuit', selector=selection, data=HLdata(), title = c("New York State Smoker's Quitline"), Visible = T)
-    mod_info_server('HL_SmokersQuit', selector = selection, data = HLdata(), rownametitle = c("New York State Smoker's Quitline"), phone = T, website = T)
-    mod_Accordion_server('HL_NYSgamb', selector=selection, data=HLdata(), title = c("New York State Gambler's Hotline"), Visible = T)
-    mod_info_server('HL_NYSgamb', selector = selection, data = HLdata(), rownametitle = c("New York State Gambler's Hotline"), phone = T, website = T)
-    mod_Accordion_server('HL_NtnlGAMB', selector=selection, data=HLdata(), title = c('National Gambler Support Line'), Visible = T)
-    mod_info_server('HL_NtnlGAMB', selector = selection, data = HLdata(), rownametitle = c('National Gambler Support Line'), phone = T, website = T)
+    # Academic Resources Accordion --------------------------------------------
+    if(input$PMHselector == "Academic Resources"){
+      selection<-input$PMHselector
+      Acadata<-reactive({
+        data[data$Type == 'Aca',]
+      }) %>% bindCache(data[data$Type == 'Aca',])
+
+
+      mod_Accordion_server('ACA_lib', selector=selection, data=Acadata(), title = c('University Libraries'), Visible = T)
+      mod_info_server('ACA_lib', selector = selection, data = Acadata(), rownametitle = c('University Libraries'), phone = T, website = T)
+      mod_Accordion_server('ACA_DAISS', selector=selection, data=Acadata(), title = c('Disability Access and Inclusion Student Services'), Visible = T)
+      mod_info_server('ACA_DAISS', selector = selection, data = Acadata(), rownametitle = c('Disability Access and Inclusion Student Services'), phone = T, website = T)
+      mod_Accordion_server('ACA_Writing', selector=selection, data=Acadata(), title = c('Writing Center'), Visible = T)
+      mod_info_server('ACA_Writing', selector = selection, data = Acadata(), rownametitle = c('Writing Center'), phone = T, website = T)
+      mod_Accordion_server('ACA_Tutoring', selector=selection, data=Acadata(), title = c('Tutoring'), Visible = T)
+      mod_info_server('ACA_Tutoring', selector = selection, data = Acadata(), rownametitle = c('Tutoring'), phone = T, website = T)
+      mod_Accordion_server('ACA_Excel', selector=selection, data=Acadata(), title = c('Project Excel'), Visible = T)
+      mod_info_server('ACA_Excel', selector = selection, data = Acadata(), rownametitle = c('Project Excel'), phone = T, website = T)
+      mod_Accordion_server('ACA_CSTEP', selector=selection, data=Acadata(), title = c('CSTEP'), Visible = T)
+      mod_info_server('ACA_CSTEP', selector = selection, data = Acadata(), rownametitle = c('Collegiate Science and Technology Entry Program (CSTEP)'), phone = T, website = T)
+      mod_Accordion_server('ACA_SummerResearch', selector=selection, data=Acadata(), title = c('Summer Research Program'), Visible = T)
+      mod_info_server('ACA_SummerResearch', selector = selection, data = Acadata(), rownametitle = c('University at Albany Summer Research Program'), phone = T, website = T)
+      mod_Accordion_server('ACA_DOS', selector=selection, data=Acadata(), title = c('Dean of Students'), Visible = T)
+      mod_info_server('ACA_DOS', selector = selection, data = Acadata(), rownametitle = c('Dean of Students'), phone = T, website = T)
+
+    }
+
+
+
+    # Food Housing Financial Accordion ----------------------------------------
+
+    if(input$PMHselector == "Food, Housing, & Financial"){
+      selection<-input$PMHselector
+      FHFdata<-reactive({
+        data[data$Type == 'FHF',]
+      }) %>% bindCache(data[data$Type == 'FHF',])
+
+      mod_Accordion_server('FAO', selector=selection, data=FHFdata(), title = c('Financial Aid Office'), Visible = T)
+      mod_info_server('FAO', selector = selection, data = FHFdata(), rownametitle = c('Financial Aid Office'), phone = T, website = T)
+      mod_Accordion_server('PurplePantry', selector=selection, data=FHFdata(), title = c('Purple Pantry'), Visible = T)
+      mod_info_server('PurplePantry', selector = selection, data = FHFdata(), rownametitle = c('Purple Pantry'), phone = T, website = T)
+      mod_Accordion_server('PurpleThreads', selector=selection, data=FHFdata(), title = c('Purple Threads'), Visible = T)
+      mod_info_server('PurpleThreads', selector = selection, data = FHFdata(), rownametitle = c('Purple Threads'), phone = T, website = T)
+      mod_Accordion_server('UAemergencyFund', selector=selection, data=FHFdata(), title = c('UAlbany Student Emergency Fund'), Visible = T)
+      mod_info_server('UAemergencyFund', selector = selection, data = FHFdata(), rownametitle = c('UAlbany Student Emergency Fund'), phone = T, website = T)
+
+
+
+
+
+    }
+
+
+
+
+
+    # Legal Resources Accordion -----------------------------------------------
+
+
+    if(input$PMHselector == "Legal Resources"){
+      selection<-input$PMHselector
+      Legaldata<-reactive({
+        data[data$Type == 'Legal',]
+      }) %>% bindCache(data[data$Type == 'Legal',])
+      observeEvent(input$OffCampus,{
+
+        if(input$OffCampus == F) {
+
+          mod_Accordion_server('LEGAL_SLS', selector=selection, data=Legaldata(), title = c('Student Legal Services'), Visible = T)
+          mod_info_server('LEGAL_SLS', selector = selection, data = Legaldata(), rownametitle = c('Student Legal Services'), phone = T, website = T)
+          mod_Accordion_server('LEGAL_LegalAID', selector=selection, data=Legaldata(), title = c('Legal Aid Society NE New York'), Visible = F)
+          mod_info_server('LEGAL_LegalAID', selector = selection, data = Legaldata(), rownametitle = c('Legal Aid Society Northeastern New York'), phone = T, website = T)
+
+
+        } else {
+
+          mod_Accordion_server('LEGAL_SLS', selector=selection, data=Legaldata(), title = c('Student Legal Services'), Visible = T)
+          mod_info_server('LEGAL_SLS', selector = selection, data = Legaldata(), rownametitle = c('Student Legal Services'), phone = T, website = T)
+          mod_Accordion_server('LEGAL_LegalAID', selector=selection, data=Legaldata(), title = c('Legal Aid Society NE New York'), Visible = T)
+          mod_info_server('LEGAL_LegalAID', selector = selection, data = Legaldata(), rownametitle = c('Legal Aid Society Northeastern New York'), phone = T, website = T)
+
+
+        }
+      })
+    }
+
+
+
+
+    # Hotlines Accordion ------------------------------------------------------
+
+    if(input$PMHselector == "Hotlines"){
+      selection<-input$PMHselector
+      HLdata<-reactive({
+        data[data$Type == 'Hotline',]
+      }) %>% bindCache(data[data$Type == 'Hotline',])
+
+      mod_Accordion_server('HL_FindAHelpline', selector=selection, data=HLdata(), title = c('Find a Helpline'), Visible = T)
+      mod_info_server('HL_FindAHelpline', selector = selection, data = HLdata(), rownametitle = c('Find a Helpline'), phone = F, website = T)
+      mod_Accordion_server('HL_NYSsupport', selector=selection, data=HLdata(), title = c('New York State Support Line'), Visible = T)
+      mod_info_server('HL_NYSsupport', selector = selection, data = HLdata(), rownametitle = c('New York State Support Line'), phone = T, website = T)
+      mod_Accordion_server('HL_NYSsexassaultHL', selector=selection, data=HLdata(), title = c('24-Hour Sexual Assault Hotline'), Visible = T)
+      mod_info_server('HL_NYSsexassaultHL', selector = selection, data = HLdata(), rownametitle = c('24-Hour Sexual Assault Hotline'), phone = T, website = T)
+      mod_Accordion_server('HL_RAINN', selector=selection, data=HLdata(), title = c('RAINN Sexual Violence'), Visible = T)
+      mod_info_server('HL_RAINN', selector = selection, data = HLdata(), rownametitle = c('RAINN Sexual Violence'), phone = T, website = T)
+      mod_Accordion_server('HL_SmokersQuit', selector=selection, data=HLdata(), title = c("New York State Smoker's Quitline"), Visible = T)
+      mod_info_server('HL_SmokersQuit', selector = selection, data = HLdata(), rownametitle = c("New York State Smoker's Quitline"), phone = T, website = T)
+      mod_Accordion_server('HL_NYSgamb', selector=selection, data=HLdata(), title = c("New York State Gambler's Hotline"), Visible = T)
+      mod_info_server('HL_NYSgamb', selector = selection, data = HLdata(), rownametitle = c("New York State Gambler's Hotline"), phone = T, website = T)
+      mod_Accordion_server('HL_NtnlGAMB', selector=selection, data=HLdata(), title = c('National Gambler Support Line'), Visible = T)
+      mod_info_server('HL_NtnlGAMB', selector = selection, data = HLdata(), rownametitle = c('National Gambler Support Line'), phone = T, website = T)
+
+
+
+
+    }
+
 
 
 
@@ -861,4 +885,7 @@ tagList(
   })
 
 
+
+
+
 }
diff --git a/loadtest script.R b/loadtest script.R
index 27f5632..c6bfa93 100644
--- a/loadtest script.R	
+++ b/loadtest script.R	
@@ -6,4 +6,4 @@ shinyloadtest::record_session('http://localhost:3838/')
 df <- shinyloadtest::load_runs("run1")
 shinyloadtest::shinyloadtest_report(df, "run1.html")
 
-profv
+profvis::profvis(print(Rolodex::run_app()))