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 (interactive()){
# 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.host = '0.0.0.0') # This means "listen to all addresses on all interfaces"
# options(width=120)
# options(DT.options = list(scrollX = TRUE))
# #### UI ####
if (interactive()){
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.host = '0.0.0.0') # This means "listen to all addresses on all interfaces"
options(width=120)
options(DT.options = list(scrollX = TRUE))
#### UI ####
# ui <- dashboardPage(skin="purple",
# dashboardHeader(title = "Drug/Target Explorer"),
#
@ -1072,4 +1072,4 @@ consurf_colours = c(
#
# app <- shinyApp(ui, server)
# runApp(app)
# }
}