various attempts to get things working

drug-target/global.R

@@ -19,7 +19,7 @@ library(hash)
 # than previous approaches
 
 # system.time({
-source("/srv/shiny-server/git/LSHTM_analysis/scripts/Header_TT.R")
+#source("/srv/shiny-server/git/LSHTM_analysis/scripts/Header_TT.R")
 
 load_target_globals=function(target){
   cat(paste0("Reloading Target: ", target))
@@ -266,3 +266,53 @@ lapply(c(
   invisible(load_msa_global(x)) # turn off to speed up start time at the expense of "LogoP ED"
 }
 )
+
+consurf_palette1 = c("0" = "yellow2"
+                     , "1" = "cyan1"
+                     , "2" = "steelblue2"
+                     , "3" = "cadetblue2"
+                     , "4" = "paleturquoise2"
+                     , "5" = "thistle3"
+                     , "6" = "thistle2"
+                     , "7" = "plum2"
+                     , "8" = "maroon"
+                     , "9" = "violetred2")
+
+consurf_palette2 =  c("0" = "yellow2"
+                      , "1" = "forestgreen"
+                      , "2" = "seagreen3"
+                      , "3" = "palegreen1"
+                      , "4" = "darkseagreen2"
+                      , "5" = "thistle3"
+                      , "6" = "lightpink1"
+                      , "7" = "orchid3"
+                      , "8" = "orchid4"
+                      , "9" = "darkorchid4")
+
+# decreasing levels mess legend
+# consurf_colours_LEVEL = c(
+#    "0" = rgb(1.00,1.00,0.59)
+#   , "9" = rgb(0.63,0.16,0.37)
+#   , "8" = rgb(0.94,0.49,0.67)
+#   , "7" = rgb(0.98,0.78,0.86)
+#   , "6" = rgb(0.98,0.92,0.96)
+#   , "5" = rgb(1.00,1.00,1.00)
+#   , "4" = rgb(0.84,0.94,0.94)
+#   , "3" = rgb(0.65,0.86,0.90)
+#   , "2" = rgb(0.29,0.69,0.75)
+#   , "1" = rgb(0.04,0.49,0.51)
+#   )
+
+consurf_colours = c(
+  "0" = rgb(1.00,1.00,0.59)
+  , "1" = rgb(0.04,0.49,0.51)
+  , "2" = rgb(0.29,0.69,0.75)
+  , "3" = rgb(0.65,0.86,0.90)
+  , "4" = rgb(0.84,0.94,0.94)
+  , "5" = rgb(1.00,1.00,1.00)
+  , "6" = rgb(0.98,0.92,0.96)
+  , "7" = rgb(0.98,0.78,0.86)
+  , "8" = rgb(0.94,0.49,0.67)
+  , "9" = rgb(0.63,0.16,0.37)
+)
+

drug-target/server.R

@@ -1,3 +1,8 @@
+library(shiny)
+library(shinycssloaders)
+library(DT)
+library(NGLVieweR)
+library(hash)
 
 server <- function(input, output) {
   observeEvent({
@@ -73,4 +78,4 @@ server <- function(input, output) {
     # filedata example for combined: 6genes_logo_skf_BT_embb_actual
     #                                6genes_logo_skf_BT_embb_combined
   })
-}
+}

drug-target/ui.R

@@ -1,3 +1,10 @@
+library(shiny)
+library(shinydashboard)
+library(shinycssloaders)
+library(DT)
+library(NGLVieweR)
+library(hash)
+
 #### Shiny UI #####
 
 #dashboardHeader(title = paste0(gene, "/", drug)),