R 通过闪亮应用程序中的actionbuttons浏览不同的选项卡和面板
我有一个闪亮的应用程序,边栏中有5个R 通过闪亮应用程序中的actionbuttons浏览不同的选项卡和面板,r,shiny,action-button,R,Shiny,Action Button,我有一个闪亮的应用程序,边栏中有5个actionButton()。我希望每次用户按下按钮时都会显示相应的tabsetPanel()。重要的是,默认的tabsetPanel()应该是的“Home”一个。这就是我使用隔离()的原因 #ui.r 图书馆(闪亮) 图书馆(shinythemes) 图书馆(绘本) ui是否有任何理由使用两个不同的操作按钮而不是单选按钮?如果没有,我建议使用后者,这样可以更容易地动态呈现tabsetPanels library(shiny) library(shinythe
actionButton()
。我希望每次用户按下按钮时都会显示相应的tabsetPanel()
。重要的是,默认的tabsetPanel()应该是的“Home”
一个。这就是我使用隔离()的原因
#ui.r
图书馆(闪亮)
图书馆(shinythemes)
图书馆(绘本)
ui是否有任何理由使用两个不同的操作按钮而不是单选按钮?如果没有,我建议使用后者,这样可以更容易地动态呈现tabsetPanels
library(shiny)
library(shinythemes)
library(plotly)
library(DT)
ui <- fluidPage(
theme=shinytheme("slate") ,
# App title ----
titlePanel("Tabsets"),
# Sidebar layout with input and output definitions ----
sidebarLayout(
# Sidebar panel for inputs ----
sidebarPanel(
radioButtons(inputId="hose", label = "Choices",choices = c("Home"="ho","Section"="se"), selected = "ho")
),
# Main panel for displaying outputs ----
mainPanel(
uiOutput("tabs")
)
)
)
#server.r
server = function(input, output) {
observe({
output$tabs <- renderUI(
if (input$hose=="ho") {
tabsetPanel(
id="tabC",
type = "tabs",
tabPanel("Global"),
tabPanel("Two Bars only here",
plotlyOutput('bars'),
plotlyOutput('bars2')
)
)
} else {
tabsetPanel(
id="tabB",
type = "tabs",
tabPanel("Constituents Table Iris only here",
output$table <- DT::renderDataTable({
datatable(
iris)
})),
tabPanel("Bare only here",
plotlyOutput("bar3")
)
)
}
)
})
output$bars<-renderPlotly({
p <- plot_ly(
x = c("giraffes", "orangutans", "monkeys"),
y = c(20, 14, 23),
name = "SF Zoo",
type = "bar"
)
})
output$bars2<-renderPlotly({
p <- plot_ly(
x = c("gir", "ora", "mon"),
y = c(20, 14, 23),
name = "SF Zoo",
type = "bar"
)
})
output$bar3<-renderPlotly({
p <- plot_ly(
x = c("gir", "ora", "mon"),
y = c(20, 14, 23),
name = "SF Zoo",
type = "bar"
)
})
}
# Run the application
shinyApp(ui = ui, server = server)
不,我要动作按钮。我以前有过这样的问题。我把你的编辑答案调整为5个按钮,但它有一个奇怪的行为
library(shiny)
library(shinythemes)
library(plotly)
library(DT)
ui <- fluidPage(
theme=shinytheme("slate") ,
# App title ----
titlePanel("Tabsets"),
# Sidebar layout with input and output definitions ----
sidebarLayout(
# Sidebar panel for inputs ----
sidebarPanel(
radioButtons(inputId="hose", label = "Choices",choices = c("Home"="ho","Section"="se"), selected = "ho")
),
# Main panel for displaying outputs ----
mainPanel(
uiOutput("tabs")
)
)
)
#server.r
server = function(input, output) {
observe({
output$tabs <- renderUI(
if (input$hose=="ho") {
tabsetPanel(
id="tabC",
type = "tabs",
tabPanel("Global"),
tabPanel("Two Bars only here",
plotlyOutput('bars'),
plotlyOutput('bars2')
)
)
} else {
tabsetPanel(
id="tabB",
type = "tabs",
tabPanel("Constituents Table Iris only here",
output$table <- DT::renderDataTable({
datatable(
iris)
})),
tabPanel("Bare only here",
plotlyOutput("bar3")
)
)
}
)
})
output$bars<-renderPlotly({
p <- plot_ly(
x = c("giraffes", "orangutans", "monkeys"),
y = c(20, 14, 23),
name = "SF Zoo",
type = "bar"
)
})
output$bars2<-renderPlotly({
p <- plot_ly(
x = c("gir", "ora", "mon"),
y = c(20, 14, 23),
name = "SF Zoo",
type = "bar"
)
})
output$bar3<-renderPlotly({
p <- plot_ly(
x = c("gir", "ora", "mon"),
y = c(20, 14, 23),
name = "SF Zoo",
type = "bar"
)
})
}
# Run the application
shinyApp(ui = ui, server = server)
library(shiny)
library(shinythemes)
library(plotly)
library(DT)
library(shinyjs)
ui <- fluidPage(
theme=shinytheme("slate") ,
shinyjs::useShinyjs(), # get shinyjs
# App title ----
titlePanel("Tabsets"),
# Sidebar layout with input and output definitions ----
sidebarLayout(
# Sidebar panel for inputs ----
sidebarPanel(
actionButton("ho", "Home"),
actionButton("se", "Section")
# radioButtons(inputId="hose", label = "Choices",choices = c("Home"="ho","Section"="se"), selected = "ho")
),
# Main panel for displaying outputs ----
mainPanel(
uiOutput("tabs")
)
)
)
#server.r
server = function(input, output) {
observe({
if(input$ho==input$se) {
shinyjs::disable("ho")
shinyjs::enable("se")
} else {
shinyjs::disable("se")
shinyjs::enable("ho")
}
})
observe({
print(input$ho)
print(input$se)
output$tabs <- renderUI(
if (input$ho==input$se) {
tabsetPanel(
id="tabC",
type = "tabs",
tabPanel("Global"),
tabPanel("Two Bars only here",
plotlyOutput('bars'),
plotlyOutput('bars2')
)
)
} else {
tabsetPanel(
id="tabB",
type = "tabs",
tabPanel("Constituents Table Iris only here",
output$table <- DT::renderDataTable({
datatable(
iris)
})),
tabPanel("Bare only here",
plotlyOutput("bar3")
)
)
}
)
})
output$bars<-renderPlotly({
p <- plot_ly(
x = c("giraffes", "orangutans", "monkeys"),
y = c(20, 14, 23),
name = "SF Zoo",
type = "bar"
)
})
output$bars2<-renderPlotly({
p <- plot_ly(
x = c("gir", "ora", "mon"),
y = c(20, 14, 23),
name = "SF Zoo",
type = "bar"
)
})
output$bar3<-renderPlotly({
p <- plot_ly(
x = c("gir", "ora", "mon"),
y = c(20, 14, 23),
name = "SF Zoo",
type = "bar"
)
})
}
# Run the application
shinyApp(ui = ui, server = server)
library(shiny)
library(shinythemes)
library(plotly)
library(DT)
library(shinyjs)
ui <- fluidPage(
shinyjs::useShinyjs(), # get shinyjs
sidebarLayout(
sidebarPanel(
actionButton("ho", "Home"),
actionButton("sea", "Section A"),
actionButton("seb", "Section B")
),
# Main panel for displaying outputs ----
mainPanel(
uiOutput("tabs")
)
)
)
#server.r
server = function(input, output) {
active.button <- reactiveValues(list=c(0,0,0))
check <- eventReactive(c(input$ho,input$sea,input$seb),{
active.button$listold <- active.button$list
active.button$list <- c(input$ho,input$sea,input$seb)
check <- active.button$list - active.button$listold
})
observe({
print(check())
output$tabs <- renderUI(
if (check()[[1]]==1) {
tabsetPanel(
id="tabHome",
tabPanel("Home")
)
} else if (check()[[2]]==1) {
tabsetPanel(
id="tabA",
tabPanel("Section A")
)
} else if (check()[[3]]==1) {
tabsetPanel(
id="tabB",
tabPanel("Section B")
)
} else {
tabsetPanel(
id="tabHome",
tabPanel("Home")
)
}
)
}
)
}
# Run the application
shinyApp(ui = ui, server = server)