Added NYS Smokers Quitline

.Rhistory

@@ -1,15 +1,3 @@
-library(haven)
-library(psych)
-df<-read_sav("MassBaseline3.29.24.sav")
-colnames(df)
-# write.csv(df,"SBIRT_Col_names.csv", row.names = F)
-#df<-as.data.frame(as.matrix(df))
-# Gender Cleaning ---------------------------------------------------------
-# Gender_df<-as.data.frame(matrix(data=NA, nrow=nrow(df), ncol=8))
-# colnames(Gender_df)<-c("male", "female", "other specify", "m2f", "f2m", "nconform", "missing", "refused")
-#
-# Gender_df$male<-ifelse(df$B_Gender==1,1,NA)
-# Gender_df$female<-ifelse(df$B_Gender==2,2,NA)
 # Gender_df$`other specify`<-ifelse(df$B_Gender==7,4,NA)
 # Gender_df$m2f<-ifelse(df$B_Transgender==1,5,NA)
 # Gender_df$f2m<-ifelse(df$B_Transgender==1,6,NA)
@@ -510,3 +498,15 @@ df$SchoolOrTrainingProgram <- ifelse(is.na(df$B_College)==T, -9, df$B_College)
 table(df$SchoolOrTrainingProgram)
 df$S_Income
 df$M_HIncome
+library(Rolodex)
+run_app()
+library(Rolodex)
+run_app()
+library(Rolodex)
+run_app()
+library(Rolodex)
+run_app()
+library(Rolodex)
+run_app()
+remove.packages("Rolodex")
+devtools::install_github("EwokOzwok/Rolodex")

R/app_server.R

@@ -802,7 +802,8 @@ Dr. Martin’s research expertise is in substance use and other health-risk beha
  mod_info_server('AOD_Aameetings', selector = selection, data = AODdata(), rownametitle = c('AA Meetings'), phone = F, website = T)
  mod_Accordion_server('AOD_CampusDrugPrevINDEX', selector=selection, data=AODdata(), title = c('Drug Index (CampusDrugPrevention.gov)'), Visible = T)
  mod_info_server('AOD_CampusDrugPrevINDEX', selector = selection, data = AODdata(), rownametitle = c('Drug Index (CampusDrugPrevention.gov)'), phone = F, website = T)
-
+ mod_Accordion_server('AOD_NYSQuitline', selector=selection, data=AODdata(), title = c('NYS Smokers Quit Line'), Visible = T)
+ mod_info_server('AOD_NYSQuitline', selector = selection, data = AODdata(), rownametitle = c('NY Quits - Smokers Quit Line'), phone = T, website = T)
 
  }
  })
@@ -974,8 +975,8 @@ Dr. Martin’s research expertise is in substance use and other health-risk beha
  mod_info_server('HL_NtnlGAMB', selector = selection, data = HLdata(), rownametitle = c('National Gambler Support Line'), phone = T, website = T)
  mod_Accordion_server('HL_SuicideLifeline', selector=selection, data=HLdata(), title = c('(988) National Suicide & Crisis Lifeline'), Visible = T)
  mod_info_server('HL_SuicideLifeline', selector = selection, data = HLdata(), rownametitle = c('(988) National Suicide & Crisis Lifeline'), phone = T, website = T)
-
-
+ mod_Accordion_server('Hotline_NYSQuitline', selector=selection, data=HLdata(), title = c('NYS Smokers Quit Line'), Visible = T)
+ mod_info_server('Hotline_NYSQuitline', selector = selection, data = HLdata(), rownametitle = c('NY Quits - Smokers Quit Line'), phone = T, website = T)
 
 
  }

R/app_ui.R

@@ -260,6 +260,7 @@ conditionalPanel("input.PMHselector == 'Interpartner Violence'",
  conditionalPanel("input.PMHselector == 'Alcohol and Other Drugs'",
  f7Accordion(h4("Alcohol and Other Drugs"), multiCollapse = F,
  mod_Accordion_ui('AOD_OHP'),
+ mod_Accordion_ui('AOD_NYSQuitline'),
  mod_Accordion_ui('AOD_CampusDrugPrevINDEX'),
  mod_Accordion_ui('AOD_NUA'),
  mod_Accordion_ui('AOD_NUAspanish'),
@@ -336,6 +337,7 @@ conditionalPanel("input.PMHselector == 'Interpartner Violence'",
  f7Accordion(h4("Hotlines"), multiCollapse = F,
  mod_Accordion_ui('HL_FindAHelpline'),
  mod_Accordion_ui('HL_SuicideLifeline'),
+ mod_Accordion_ui('Hotline_NYSQuitline'),
  mod_Accordion_ui('HL_NYSsupport'),
  mod_Accordion_ui('HL_NYSsexassaultHL'),
  mod_Accordion_ui('HL_RAINN'),

rsconnect/shinyapps.io/ualbanyprojectaccess/Rolodex.dcf

@@ -5,7 +5,7 @@ account: ualbanyprojectaccess
 server: shinyapps.io
 hostUrl: https://api.shinyapps.io/v1
 appId: 9545804
-bundleId: 8376933
+bundleId: 8433854
 url: https://ualbanyprojectaccess.shinyapps.io/Rolodex/
 asMultiple: FALSE
 asStatic: FALSE