mmparker

# Calculate age at a given reference date
# Create an interval between the date of birth and the enrollment date; 
# intervals are specific to the two dates. Periods give the actual length
# of time between those dates, so convert to period and extract the year.

calc_age <- function(birthDate, refDate = Sys.Date(), unit = "year") {
    
    require(lubridate)
    

wch

data_sets <- c("mtcars", "morley", "rock")

shinyServer(function(input, output) {

  # Drop-down selection box for which data set
  output$choose_dataset <- renderUI({
    selectInput("dataset", "Data set", as.list(data_sets))
  })

  # Check boxes

pssguy

 # libraries used. install as necessary

  library(shiny)
  library(RJSONIO) # acquiring and parsing data
  library(ggplot2) # graphs
  library(plyr)  # manipulating data
  library(lubridate) #dates
  library(stringr)

trim.leading <- function (x)  sub("^\\s+", "", x)

Moligaloo

tell application "Mail"

	set theSubject to "Subject" -- the subject
	set theContent to "Content" -- the content
	set theAddress to "[email protected]" -- the receiver 
	set theSignatureName to "signature_name"-- the signature name
	set theAttachmentFile to "Macintosh HD:Users:moligaloo:Downloads:attachment.pdf" -- the attachment path

	set msg to make new outgoing message with properties {subject: theSubject, content: theContent, visible:true}