isolating observeevent()s

This commit is contained in:
Tanushree Tunstall 2022-10-10 16:46:46 +01:00
parent aafb7bf86e
commit 9060c8a88e

View file

@ -305,13 +305,13 @@ consurf_colours = c(
) )
# if (true()){ # if (true()){
# if (interactive()){ if (interactive()){
# options(shiny.launch.browser = FALSE) # i am a big girl and can tie my own laces options(shiny.launch.browser = FALSE) # i am a big girl and can tie my own laces
# options(shiny.port = 8000) # don't change the port every time options(shiny.port = 8000) # don't change the port every time
# options(shiny.host = '0.0.0.0') # This means "listen to all addresses on all interfaces" options(shiny.host = '0.0.0.0') # This means "listen to all addresses on all interfaces"
# options(width=120) options(width=120)
# options(DT.options = list(scrollX = TRUE)) options(DT.options = list(scrollX = TRUE))
# #### UI #### #### UI ####
# ui <- dashboardPage(skin="purple", # ui <- dashboardPage(skin="purple",
# dashboardHeader(title = "Drug/Target Explorer"), # dashboardHeader(title = "Drug/Target Explorer"),
# #
@ -1072,4 +1072,4 @@ consurf_colours = c(
# #
# app <- shinyApp(ui, server) # app <- shinyApp(ui, server)
# runApp(app) # runApp(app)
# } }