Merge pull request #2 from samuelbharti/dev

Dev

Dockerfile

@@ -0,0 +1,16 @@
+# Base R Shiny image
+FROM rocker/shiny
+
+# Install R dependencies
+RUN R -e 'install.packages()'
+
+RUN mkdir home/my_app
+
+# Copy the Shiny app code
+COPY *.R /home/my_app
+
+# Expose the application port
+EXPOSE 3838
+
+# Run the R Shiny app
+CMD R -e 'shiny::runApp(`/home/my_app`,port = 3838, host = `0.0.0.0`)'

R/load_components.R

@@ -0,0 +1,5 @@
+# Load modules
+sapply(list.files('modules', full.names = TRUE), function(x) source(x))
+# Load user interface
+sapply(list.files('userInterface', full.names = TRUE), function(x) source(x))
+

README.md

@@ -1 +1,25 @@
-# RShiny_template
+# Project Title
+
+Add project description
+
+# Requirements
+
+Add requirements to run this app.
+
+# How to run this Shiny App
+
+Add instructions and configurations needed to run this app.
+
+# Deployment
+
+Add current deployment URLs.
+
+# Docker Image
+
+Add URL/tag for docker image pull.
+
+# Contribution
+
+------------------------------------------------------------------------
+
+Template developed by \@[samuelbharti](https://github.com/SamuelBharti). Use R package available at [samuelbharti/peacock](https://github.com/samuelbharti/peacock) for local development.

dev/dev.R

@@ -0,0 +1,3 @@
+# Use this script to test code blocks for app dev. 
+# Make sure to add this "dev" directory 
+# in your gitignore after template initialization.

global.R

@@ -0,0 +1,7 @@
+# Load libraries/ Source Files
+library(shiny)
+
+# Load data/connections
+
+# Preprocess small data
+

modules/test_mod.R

@@ -0,0 +1 @@
+# Use shinymod to generate module template

server.R

@@ -0,0 +1,4 @@
+# Shiny Server
+function(input, output, session) {
+
+}

ui.R

@@ -0,0 +1,5 @@
+navbarPage(
+     'My app',
+     tabPanel('Home', home_page),
+     tabPanel('Other', other_page),
+)

userInterface/home_ui.R

@@ -0,0 +1,9 @@
+home_page <- fluidPage(
+# Page title
+titlePanel('Home Page'),
+hr(),
+fluidRow(
+   column(6,h2('Column size 3')),
+   column(6,h2('Column size 3'))
+ )
+)

userInterface/other_ui.R

@@ -0,0 +1,9 @@
+other_page <- fluidPage(
+# Page title
+titlePanel('Other Page'),
+hr(),
+fluidRow(
+   column(6,h2('Column size 3')),
+   column(6,h2('Column size 3'))
+ )
+)