Minor updates.

.gitignore

@@ -65,3 +65,4 @@ R-Scripts/.DS_Store
 Slides/Albany R Meetup/Sweave.sty
 lindner.csv
 Slides/Albany R Meetup/Slides.tpbuild
+config.R

NAMESPACE

@@ -4,10 +4,14 @@ S3method(plot,MatchBalance)
 S3method(print,MatchBalance)
 S3method(summary,MatchBalance)
 export(MatchBalance)
+export(loess.plot)
+export(psa_shiny)
 import(MatchIt)
 import(Matching)
 import(PSAgraphics)
 import(ggplot2)
+import(granovaGG)
 import(party)
 import(reshape2)
+import(shiny)
 importFrom(cowplot,plot_grid)

R/psa-package.R

@@ -10,7 +10,9 @@
 #' @import Matching
 #' @import MatchIt
 #' @import PSAgraphics
+#' @import granovaGG
 #' @import party
+#' @import shiny
 #' @importFrom cowplot plot_grid
 NA
 

R/psa_shiny.R

@@ -0,0 +1,6 @@
+#' Run the psa shiny application.
+#' 
+#' @export
+psa_shiny <- function() {
+	shiny::runApp(paste0(find.package(package='psa'), '/shiny/psa'))
+}

inst/shiny/psa/about.md

@@ -1,7 +1,13 @@
 **Author:** Jason Bryer, Ph.D.  
 **Email:** [jason@bryer.org](mailto:jason@bryer.org)  
-**Webiste:** [github.com/jbryer/psa](www.github.com/jbryer/psa)
+**Website:** [github.com/jbryer/psa](www.github.com/jbryer/psa)
 
+This package was designed primarily for teaching purposes and is not provide an exhaustive treatment of conducting propensity score analysis. This shiny application is included in the `psa` R package and can be run locally using the following commands:
+
+```
+devtools::install_github('jbryer/psa')
+psa::psa_shiny()
+```
 
 ### R Packages
 

inst/shiny/psa/server.R

@@ -1,4 +1,4 @@
-shinyServer(function(input, output) {
+shinyServer(function(input, output, session) {
 	filedata <- reactive({
 		infile <- input$file
 		if(is.null(infile)) {
@@ -103,6 +103,7 @@ shinyServer(function(input, output) {
 	)
 
 	output$tabs <- renderUI({
+		selected.tab <- isolate(input$tabs)
 		df <- NULL
 
 		input$refresh
@@ -291,6 +292,7 @@ shinyServer(function(input, output) {
 
 		##### Build the tabs
 		mytabs <- list(
+			id = 'tabs',
 			tabPanel('Overview', br(), includeMarkdown('overview.md'),
 					 hr(),
 			{
@@ -314,6 +316,7 @@ shinyServer(function(input, output) {
 				if(!is.null(df) & !is.null(lr.out)) {
 					tabPanel('Balance',
 							 plotOutput('cv.bal.psa'),
+							 hr(),
 							 plotOutput('balancePlot')
 					)
 				} else { NULL }
@@ -352,6 +355,8 @@ shinyServer(function(input, output) {
 				} else { NULL }
 			}
 		)
+
+		updateTabsetPanel(session, 'tabs', selected.tab)
 		# Clean up the NULL tabs
 		mytabs <- mytabs[!sapply(mytabs, is.null)]
 		return(do.call(tabsetPanel, mytabs))