Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
CSIRO-INRA
landsepi
Commits
5a0e5117
Commit
5a0e5117
authored
Jun 28, 2021
by
Jean-Francois Rey
☕
Browse files
shiny : change tab order
parent
8a1fb271
Changes
2
Hide whitespace changes
Inline
Side-by-side
inst/shiny-landsepi/server.R
View file @
5a0e5117
...
...
@@ -179,8 +179,10 @@ server <- function(input, output, session) {
if
(
advanced_mode
())
{
printVerbose
(
"enable mode edition"
,
level
=
3
)
removeCssClass
(
"Mode"
,
"btn-default"
)
updateTabsetPanel
(
session
,
inputId
=
"inputtabpanel"
,
selected
=
"Cultivars and Genes"
)
shinyjs
::
disable
(
id
=
"demo"
)
shinyjs
::
enable
(
id
=
"rotationPeriod"
)
shinyjs
::
disable
(
id
=
"rotationPeriod"
)
shiny
::
updateNumericInput
(
session
,
"rotationPeriod"
,
value
=
0
)
shinyjs
::
enable
(
id
=
"patho_infection_rate"
)
shinyjs
::
enable
(
id
=
"patho_propagule_prod_rate"
)
shinyjs
::
enable
(
id
=
"patho_latent_period_exp"
)
...
...
@@ -197,6 +199,7 @@ server <- function(input, output, session) {
printVerbose
(
"disable mode edition"
,
level
=
3
)
addCssClass
(
"Mode"
,
"btn-default"
)
shinyjs
::
disable
(
id
=
"rotationPeriod"
)
shiny
::
updateNumericInput
(
session
,
"rotationPeriod"
,
value
=
0
)
shinyjs
::
enable
(
id
=
"demo"
)
shinyjs
::
disable
(
id
=
"patho_infection_rate"
)
shinyjs
::
disable
(
id
=
"patho_propagule_prod_rate"
)
...
...
@@ -1153,7 +1156,7 @@ server <- function(input, output, session) {
})
observeEvent
(
input
[[
"inputtabpanel"
]],
{
if
(
input
[[
"inputtabpanel"
]]
==
"Cultivars and
g
enes"
)
{
if
(
input
[[
"inputtabpanel"
]]
==
"Cultivars and
G
enes"
)
{
removeCssClass
(
"inputside"
,
"col-sm-6"
)
removeCssClass
(
"inputside"
,
"col-sm-0"
)
removeCssClass
(
"outputside"
,
"col-sm-12"
)
...
...
inst/shiny-landsepi/ui.R
View file @
5a0e5117
...
...
@@ -104,12 +104,12 @@ landscapeTab <- {
cultivarTab
<-
{
shiny
::
tabPanel
(
"Cultivars and Genes"
,
h3
(
"Genes"
),
editableDTUI
(
id
=
"genes"
),
h3
(
"Cultivars"
),
editableDTUI
(
id
=
"cultivars"
),
h3
(
"Cultivars and Genes"
),
editableDTUI
(
id
=
"cultivarsgenes"
),
h3
(
"Genes"
),
editableDTUI
(
id
=
"genes"
),
)
}
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment