ChrisBeeley

library(tidyverse)
#> Warning: package 'tidyverse' was built under R version 3.4.4
#> -- Attaching packages ----------------------------------------------------------------------------------------------- tidyverse 1.2.1 --
#> v ggplot2 3.0.0     v purrr   0.2.4
#> v tibble  1.4.2     v dplyr   0.7.6
#> v tidyr   0.8.1     v stringr 1.3.0
#> v readr   1.1.1     v forcats 0.3.0
#> Warning: package 'ggplot2' was built under R version 3.4.4
#> Warning: package 'tibble' was built under R version 3.4.4
#> Warning: package 'readr' was built under R version 3.4.4

ChrisBeeley

library(shiny)
library(lubridate)

server = function(input, output, session){
  
  # type = date rolling n months, quarters
  
  output$dateControls <- renderUI({
    

ChrisBeeley

####################################
##### minimal example - server.R ###
####################################

library(shiny) # load shiny at beginning at both scripts

shinyServer(function(input, output) { # server is defined within these parentheses
  
  output$textDisplay <- renderText({ # mark function as reactive and assign to
                                     # output$textDisplay for passing to ui.R

ChrisBeeley

library(shiny) # load Shiny at the top of both scripts

shinyServer(function(input, output) { # define application in here

  output$textDisplay <- renderText({ # mark function as reactive
    # and assign to output$textDisplay for passing to ui.R
    
    paste0("You said '", input$comment,           # from the text
           "'. There are ", nchar(input$comment), # input control as
           " characters in this.")                # defined in ui.R