add quote

slphyx · May 14, 2019 · cc903be · cc903be
1 parent 7248961
commit cc903be
Show file tree

Hide file tree

Showing 3 changed files with 600 additions and 0 deletions.
diff --git a/R/TEMPLATE.R b/R/TEMPLATE.R
@@ -61,8 +61,13 @@ shinyUI(
     # Sidebar with sliders
     sidebarPanel(
       CONTROLS
+
+      #add the quote
+      , br(), hr(),
+      tags$p("QUOTE")
     ),
 
+
     # Show a plot of the generated distribution
     mainPanel(
       plotOutput("graphs")

diff --git a/R/genfiles.R b/R/genfiles.R
@@ -21,10 +21,15 @@ GenShinyFiles <- function(txt,path){
 
   newpars <- newpars %>% AddParVar(parvar='parms') %>% is.par.alone
 
+  #random quote
+  rq <- RQ()
 
   # add CONTROLS
   ui_txt <- ui %>% gsub(pattern = 'CONTROLS', replacement = ctrltxt)
 
+  # add quote
+  ui_txt <- ui_txt %>% gsub(pattern = 'QUOTE', replacement = rq)
+
   # add ode function
   sv_txt <- sv %>% gsub(pattern = 'ODEFUNC', replacement = starttxt)
 
@@ -58,3 +63,12 @@ GenShinyFiles <- function(txt,path){
 }
 
 
+##random quote
+RQ <- function(){
+  raw <- paste0(system.file(package='Kung'),"/quotes/ada.dat") %>% readLines
+  rn<-sample.int(length(raw),1)
+  return(raw[rn])
+}
+
+
+