isolating observeevent()s
This commit is contained in:
parent
aafb7bf86e
commit
9060c8a88e
1 changed files with 768 additions and 768 deletions
|
@ -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)
|
||||
# }
|
||||
}
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue