Simplying dependencies of Shiny app

Co-authored-by: Gowtham Rao <rao@ohdsi.org>
Co-authored-by: Admin_mschuemi <Admin_mschuemi@its.jnj.com>

CohortExplorer.Rproj

@@ -13,6 +13,5 @@ RnwWeave: Sweave
 LaTeX: pdfLaTeX
 
 BuildType: Package
-PackageUseDevtools: Yes
 PackageInstallArgs: --no-multiarch --with-keep.source
 PackageRoxygenize: rd,collate,namespace

inst/shiny/R/private.R

@@ -30,3 +30,21 @@ readData <- function(databaseId,
     return(NULL)
   }
 }
+
+
+snakeCaseToCamelCase <- function(string) {
+  string <- tolower(string)
+  for (letter in letters) {
+    string <- gsub(paste("_", letter, sep = ""), toupper(letter), string)
+  }
+  string <- gsub("_([0-9])", "\\1", string)
+  return(string)
+}
+
+camelCaseToTitleCase <- function(string) {
+  string <- gsub("([A-Z])", " \\1", string)
+  string <- gsub("([a-z])([0-9])", "\\1 \\2", string)
+  substr(string, 1, 1) <- toupper(substr(string, 1, 1))
+  return(string)
+}
+