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 (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)
|
||||||
# }
|
}
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue