Added IPV and 3 other resources

EwokOzwok · Feb 27, 2024 · 4c5140d · 4c5140d
1 parent e409304
commit 4c5140d
Show file tree

Hide file tree

Showing 7 changed files with 74 additions and 26 deletions.
diff --git a/.Rhistory b/.Rhistory
@@ -1,26 +1,3 @@
-devtools::install_github("EwokOzwok/Rolodex")
-## code to prepare `data` dataset goes here
-data<-readxl::read_excel("data-raw/Rolodex.xlsx")
-usethis::use_data(data, overwrite = TRUE)
-## code to prepare `data` dataset goes here
-data<-readxl::read_excel("data-raw/Rolodex.xlsx")
-usethis::use_data(data, overwrite = TRUE)
-library(Rolodex)
-run_app()
-devtools::install_github("EwokOzwok/Rolodex")
-library(Rolodex)
-run_app()
-## code to prepare `data` dataset goes here
-data<-readxl::read_excel("data-raw/Rolodex.xlsx")
-usethis::use_data(data, overwrite = TRUE)
-run_app()
-library(Rolodex)
-remove.packages("Rolodex")
-## Fill the DESCRIPTION ----
-## Add meta data about your application
-##
-## /!\ Note: if you want to change the name of your app during development,
-## either re-run this function, call golem::set_golem_name(), or don't forget
 ## to change the name in the app_sys() function in app_config.R /!\
 ##
 golem::fill_desc(
@@ -510,3 +487,26 @@ remove.packages("Rolodex")
 devtools::install_github("EwokOzwok/Rolodex")
 devtools::install_github("EwokOzwok/Rolodex")
 devtools::install_github("EwokOzwok/Rolodex", force=T)
+setwd("C:/Users/intra/Desktop/Rolodex/data-raw")
+## code to prepare `data` dataset goes here
+data<-readxl::read_excel("data-raw/Rolodex.xlsx")
+setwd("C:/Users/intra/Desktop/Rolodex/data-raw")
+## code to prepare `data` dataset goes here
+data<-readxl::read_excel("data-raw/Rolodex.xlsx")
+## code to prepare `data` dataset goes here
+data<-readxl::read_excel("data-raw/Rolodex.xlsx")
+setwd("C:/Users/intra/Desktop/Rolodex")
+## code to prepare `data` dataset goes here
+data<-readxl::read_excel("data-raw/Rolodex.xlsx")
+usethis::use_data(data, overwrite = TRUE)
+library(Rolodex)
+run_app()
+library(Rolodex)
+run_app()
+## code to prepare `data` dataset goes here
+data<-readxl::read_excel("data-raw/Rolodex.xlsx")
+usethis::use_data(data, overwrite = TRUE)
+library(Rolodex)
+run_app()
+remove.packages("Rolodex")
+devtools::install_github("EwokOzwok/Rolodex")
diff --git a/Module Code Generator.xlsx b/Module Code Generator.xlsx
diff --git a/R/app_server.R b/R/app_server.R
@@ -696,6 +696,32 @@ Dr. Martin’s research expertise is in substance use and other health-risk beha
 
 
 
+
+
+
+
+ # IPV Accordion -----------------------------------------------------------
+ if(input$PMHselector == "Interpartner Violence"){
+ selection<-input$PMHselector
+ IPVdata<-reactive({
+ data[data$Type == 'IPV',]
+ }) %>% bindCache(data[data$Type == 'IPV',])
+
+
+ mod_Accordion_server('IPV_Equinox', selector=selection, data=IPVdata(), title = c('Equinox'), Visible = T)
+ mod_info_server('IPV_Equinox', selector = selection, data = IPVdata(), rownametitle = c('Equinox'), phone = T, website = T)
+
+ mod_Accordion_server('IPV_Office of Health Promotion', selector=selection, data=IPVdata(), title = c('UAlbany Office of Health Promotion'), Visible = T)
+ mod_info_server('IPV_Office of Health Promotion', selector = selection, data = IPVdata(), rownametitle = c('UAlbany Office of Health Promotion'), phone = T, website = T)
+
+ mod_Accordion_server('IPV_Crime Victim and Sexual Violence Center', selector=selection, data=IPVdata(), title = c('Crime Victim and Sexual Violence Center'), Visible = T)
+ mod_info_server('IPV_Crime Victim and Sexual Violence Center', selector = selection, data = IPVdata(), rownametitle = c('Crime Victim and Sexual Violence Center'), phone = T, website = T)
+
+
+
+
+ }
+
  # AOD Accordion -----------------------------------------------------------
 
 
@@ -839,6 +865,8 @@ Dr. Martin’s research expertise is in substance use and other health-risk beha
  mod_info_server('ACA_DOS', selector = selection, data = Acadata(), rownametitle = c('Dean of Students'), phone = T, website = T)
  mod_Accordion_server('ACA_CareerServices', selector=selection, data=Acadata(), title = c('UAlbany Career Services'), Visible = T)
  mod_info_server('ACA_CareerServices', selector = selection, data = Acadata(), rownametitle = c('UAlbany Career Services'), phone = T, website = T)
+ mod_Accordion_server('Aca_International Student and Scholar Services', selector=selection, data=Acadata(), title = c('International Student and Scholar Services'), Visible = T)
+ mod_info_server('Aca_International Student and Scholar Services', selector = selection, data = Acadata(), rownametitle = c('International Student and Scholar Services'), phone = T, website = T)
 
 
  }
@@ -861,7 +889,10 @@ Dr. Martin’s research expertise is in substance use and other health-risk beha
  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)
-
+ mod_Accordion_server('FHF_The Food Pantries Food Connect Map', selector=selection, data=FHFdata(), title = c('The Food Pantries Food Connect Map'), Visible = T)
+ mod_info_server('FHF_The Food Pantries Food Connect Map', selector = selection, data = FHFdata(), rownametitle = c('The Food Pantries Food Connect Map'), phone = F, website = T)
+ mod_Accordion_server('FHF_Capital Roots', selector=selection, data=FHFdata(), title = c('Capital Roots'), Visible = T)
+ mod_info_server('FHF_Capital Roots', selector = selection, data = FHFdata(), rownametitle = c('Capital Roots'), phone = T, website = T)
 
 
 

diff --git a/R/app_ui.R b/R/app_ui.R
@@ -89,6 +89,7 @@ app_ui <- function(request) {
  "MH Resources (Hispanic Communities)",
  "LGBTQ+ Resources",
  "Sexual Health",
+ "Interpartner Violence",
  "Sexual Violence Related",
  "Alcohol and Other Drugs",
  "Problem Gambling",
@@ -240,6 +241,19 @@ app_ui <- function(request) {
  )),
 
 
+
+
+# IPV ---------------------------------------------------------------------
+
+
+conditionalPanel("input.PMHselector == 'Interpartner Violence'",
+ f7Accordion(h4("Interpartner Violence"), multiCollapse = F,
+ mod_Accordion_ui('IPV_Equinox'),
+ mod_Accordion_ui('IPV_Office of Health Promotion'),
+ mod_Accordion_ui('IPV_Crime Victim and Sexual Violence Center')
+ )),
+
+
 # AOD ---------------------------------------------------------------------
 
 
@@ -280,6 +294,7 @@ app_ui <- function(request) {
 
  conditionalPanel("input.PMHselector == 'Academic Resources'",
  f7Accordion(h4("Academic Resources"), multiCollapse = F,
+ mod_Accordion_ui('ACA_DOS'),
  mod_Accordion_ui('ACA_lib'),
  mod_Accordion_ui('ACA_CareerServices'),
  mod_Accordion_ui('ACA_DAISS'),
@@ -288,7 +303,7 @@ app_ui <- function(request) {
  mod_Accordion_ui('ACA_Excel'),
  mod_Accordion_ui('ACA_CSTEP'),
  mod_Accordion_ui('ACA_SummerResearch'),
- mod_Accordion_ui('ACA_DOS')
+ mod_Accordion_ui('Aca_International Student and Scholar Services')
  )),
 
 # Food, Housing, Financial ------------------------------------------------
@@ -298,6 +313,8 @@ app_ui <- function(request) {
  f7Accordion(h4("Food, Housing, & Financial"), multiCollapse = F,
  mod_Accordion_ui('FAO'),
  mod_Accordion_ui('PurplePantry'),
+ mod_Accordion_ui('FHF_The Food Pantries Food Connect Map'),
+ mod_Accordion_ui('FHF_Capital Roots'),
  mod_Accordion_ui('PurpleThreads'),
  mod_Accordion_ui('UAemergencyFund')
  )),

diff --git a/data-raw/Rolodex.xlsx b/data-raw/Rolodex.xlsx
diff --git a/data/data.rda b/data/data.rda
diff --git a/rsconnect/shinyapps.io/ualbanyprojectaccess/Rolodex.dcf b/rsconnect/shinyapps.io/ualbanyprojectaccess/Rolodex.dcf
@@ -5,7 +5,7 @@ account: ualbanyprojectaccess
 server: shinyapps.io
 hostUrl: https://api.shinyapps.io/v1
 appId: 9545804
-bundleId: 8246510
+bundleId: 8286116
 url: https://ualbanyprojectaccess.shinyapps.io/Rolodex/
 asMultiple: FALSE
 asStatic: FALSE