Можно ли использовать несколько условий при использовании панели условий в блестящем приложении? Я хочу скрыть определенный компонент пользовательского интерфейса для нескольких вкладок. Ниже приведено то, что я пытаюсь, но, кажется, не применяется, когда у меня несколько условий:
library(shiny)
library(shinyWidgets)
library(shinydashboard)
library(DT)
sidebar <- dashboardSidebar(
sidebarMenu(id = "tab",
menuItem("1", tabName = "1"),
menuItem("2", tabName = "2"),
menuItem("3", tabName = "3")
)
)
body <- ## Body content
dashboardBody(box(width = 12,fluidRow(
fluidRow( column(
width = 3, textInput("text1", label = h5("Min"), value = "1")),
column(
width = 3, textInput("text2", label = h5("Max"), value = "2")),
conditionalPanel(
condition = "input.tab !== '2' || input.tab !== '3'" , column(
width = 3, textInput("text3", label = h5("Max"), value = "3"))),
column(
width = 3, textInput("text4", label = h5("Max"), value = "4")))
)))
ui <- dashboardPage(dashboardHeader(title = "Scorecard"),
sidebar,
body)
# Define the server code
server <- function(input, output,session) {
output$op <-renderDataTable({
df_format()
})
}
shinyApp(ui = ui, server = server)