tanu/Dashboards
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

drug-target dash

Browse source
This commit is contained in:
Tanushree Tunstall 2022-09-26 15:50:37 +01:00
parent ff066b7d6a
commit 84662ec948
1 changed files with 317 additions and 318 deletions
Download patch file Download diff file Expand all files Collapse all files

5
drug-target/global.R
View file

@ -650,7 +650,6 @@ if (interactive()){
), ),
) )
) )
server <- function(input, output, session) { server <- function(input, output, session) {
#output$LogoPlotSnps = renderPlot(LogoPlotSnps(mutable_df3)) #output$LogoPlotSnps = renderPlot(LogoPlotSnps(mutable_df3))
@ -818,8 +817,8 @@ if (interactive()){
### NGLViewer #### ### NGLViewer ####
# Structure Viewer WebGL/NGLViewR window # Structure Viewer WebGL/NGLViewR window
output$structure <- renderNGLVieweR({ output$structure <- renderNGLVieweR({
ngl_gene=isolate(input$switch_target) #ngl_gene=isolate(input$switch_target)
# ngl_gene=input$switch_target ngl_gene=input$switch_target
ngl_drug=target_map[[ngl_gene]] ngl_drug=target_map[[ngl_gene]]
ngl_pdb_file=paste0(load_dir, "Data/", ngl_drug, '/output/depth/', ngl_gene, '_complex.pdb') ngl_pdb_file=paste0(load_dir, "Data/", ngl_drug, '/output/depth/', ngl_gene, '_complex.pdb')
print(ngl_pdb_file) print(ngl_pdb_file)