Блог

Главная - Вопросы по программированию - Активировать одно и то же событие с помощью двух разных actionbuttons в блестящем приложении

Активировать одно и то же событие с помощью двух разных actionbuttons в блестящем приложении

#r #shiny

#r #блестящий

Вопрос:

У меня есть shiny приложение ниже. Когда приложение запускается в первый раз, оно отображает actionbutton Get Started в основной части и 3 actionbuttons в заголовке.

  1. Пользователь может нажать любую из этих 3 кнопок заголовка, которую он пожелает, прежде чем нажимать Get Started кнопку. Все в порядке, что он больше не может видеть Get Started кнопку

Если он нажмет Consent , он будет перемещен в Consent TabItem. Затем он может написать имя, нажать Run Project и увидеть график в Results TabItem.

Если он нажмет Run Project перед вводом имени, Consent он будет автоматически перемещен Consent , чтобы ввести имя.

Если он нажмет Results перед вводом имени, Consent он будет автоматически переведен в Согласие, чтобы ввести имя.

  1. Пользователь Get Started сначала нажимает кнопку и переходит на Consent вкладку, чтобы ввести имя, а затем Run Project перейти к результатам.

Я думаю, что мой код не работает из-за конфликта двух actionbuttons Run Project и Get Started .

 library(shiny)
library(shinydashboard)
library(shinydashboardPlus)
library(shinyjs)
mytitle <- paste0("")
dbHeader <- dashboardHeaderPlus(
  titleWidth = "0px",
  tags$li(a(
    div(style="display: inline;margin-top:-35px; padding: 0px 90px 0px 1250px ;font-size: 44px ;color:#001641;font-family:Chronicle Display Light; width: 500px;",HTML(mytitle)),
    
    
    div(style="display: inline;padding: 0px 0px 0px 0px;vertical-align:top; width: 150px;", actionButton("conse", "Consent",
                                                                                                         style=" background-color: #faf0e6; border-color: #faf0e6") ),
    div(style="display: inline;padding: 0px 0px 0px 0px;vertical-align:top; width: 150px;", actionButton("rp", "Run Project",
                                                                                                         style=" background-color: #faf0e6; border-color: #faf0e6") ),
    div(style="display: inline;padding: 0px 0px 0px 0px;vertical-align:top; width: 150px;", actionButton("res", "Results",
                                                                                                         style=" background-color: #faf0e6; border-color: #faf0e6") ),
    
  ),  class = "dropdown")
)
shinyApp(
  ui = dashboardPagePlus(
    header = dbHeader,
    sidebar = dashboardSidebar(width = "0px",
                               sidebarMenu(id = "sidebar", # id important for updateTabItems
                                           menuItem("Consent", tabName = "conse", icon = icon("line-chart")),
                                           menuItem("Results", tabName = "res", icon = icon("line-chart"))
                               )           
    ),
    body = dashboardBody(
      useShinyjs(),
      tags$script(HTML("$('body').addClass('fixed');")),
      
      tags$head(tags$style(".skin-blue .main-header .logo { padding: 0px;}")),
      
      actionButton("button", "Get started", style='padding:4px; font-size:140%'),
      
      tabItems(
        tabItem("conse", 
                conditionalPanel(condition = "input.conse >0 || input.button>0",
                                 textInput("nam", label = ("Name"), value = "")
                                 
                                 
                )
        ),
        tabItem("res", uiOutput('markdown')
                                 
        )
        
      )
      
    )
  ),
  
  server<-shinyServer(function(input, output,session) {
    hide(selector = "body > div > header > nav > a")
    
    observeEvent(input$button, {
      updateTabItems(session, "sidebar", selected = "conse")
      shinyjs::hide("button")
      
    })
    observeEvent(input$conse, {
      updateTabItems(session, "sidebar", selected = "conse")
      shinyjs::hide("button")
    })
    observeEvent(input$button, {
      if (input$nam=="") {
        updateTabItems(session, "sidebar",
                       selected = "conse")
      }
      else{
          updateTabItems(session, "sidebar",
                         selected = "res")
      }
      
    })
    observeEvent(input$rp, {
      if (input$nam=="") {
        updateTabItems(session, "sidebar",
                       selected = "conse")
      }
      else{
          updateTabItems(session, "sidebar",
                         selected = "res")
        
      }
      
    })
    output$markdown <- renderUI({input$rp
      
      if (input$nam==""){
        return(NULL)
      }
      else{
        isolate(plot(iris))
          
      }
    })
  }
  )
)

Ответ №1:

Возможно, этого будет достаточно.

 library(shiny)
library(shinydashboard)
library(shinydashboardPlus)
library(shinyjs)
library(stringi)

mytitle <- paste0("Test")
dbHeader <- dashboardHeaderPlus(
  titleWidth = "0px",
  tags$li(a(
    div(style="display: inline;margin-top:-35px; padding: 0px 90px 0px 1250px ;font-size: 44px ;color:#001641;font-family:Chronicle Display Light; width: 500px;",HTML(mytitle)),
    
    
    div(style="display: inline;padding: 0px 0px 0px 0px;vertical-align:top; width: 150px;", actionButton("conse", "Consent",
                                                                                                         style=" background-color: #faf0e6; border-color: #faf0e6") ),
    div(style="display: inline;padding: 0px 0px 0px 0px;vertical-align:top; width: 150px;", actionButton("rp", "Run Project",
                                                                                                         style=" background-color: #faf0e6; border-color: #faf0e6") ),
    div(style="display: inline;padding: 0px 0px 0px 0px;vertical-align:top; width: 150px;", actionButton("res", "Results",
                                                                                                         style=" background-color: #faf0e6; border-color: #faf0e6") ),
    
  ),  class = "dropdown")
)
shinyApp(
  ui = dashboardPagePlus(
    header = dbHeader,
    sidebar = dashboardSidebar(width = "0px",
                               sidebarMenu(id = "sidebar", # id important for updateTabItems
                                           menuItem("Consent", tabName = "conse", icon = icon("line-chart")),
                                           menuItem("Results", tabName = "res", icon = icon("line-chart"))
                               )           
    ),
    body = dashboardBody(
      useShinyjs(),
      tags$script(HTML("$('body').addClass('fixed');")),
      
      tags$head(tags$style(".skin-blue .main-header .logo { padding: 0px;}")),
      
      actionButton("button", "Get started", style='padding:4px; font-size:140%'),
      
      tabItems(
        tabItem("conse", 
                #conditionalPanel(condition = "input.conse >0 || input.button>0 ",
                                 textInput("nam", label = ("Name"), value = "")
                #)
        ),
        tabItem("res", plotOutput('markdown')
                
        )
        
      )
      
    )
  ),
  
  server<-shinyServer(function(input, output,session) {
    hide(selector = "body > div > header > nav > a")
    shinyjs::hide("nam")
    
    observeEvent(input$button, {
      shinyjs::show("nam")
      updateTabItems(session, "sidebar", selected = "conse")
      shinyjs::hide("button")
      
    })
    observeEvent(input$conse, {
      shinyjs::show("nam")
      updateTabItems(session, "sidebar", selected = "conse")
      shinyjs::hide("button")
      
    })
    
    observeEvent(input$rp, {
      shinyjs::hide("button")
      p <- stri_stats_latex(input$nam)[1]
      if (is.null(input$nam) | input$nam=="" | p<1) {
        shinyjs::show("nam")
        updateTabItems(session, "sidebar", selected = "conse")
      }else{
        updateTabItems(session, "sidebar", selected = "res")
      }
      
    })
    observeEvent(input$res, {
      shinyjs::hide("button")
      p <- stri_stats_latex(input$nam)[1]
      if (is.null(input$nam) | input$nam=="" | p<1) {
        shinyjs::show("nam")
        updateTabItems(session, "sidebar", selected = "conse")
      }else{
        updateTabItems(session, "sidebar", selected = "res")
      }
      
    })
    
    output$markdown <- renderPlot({ # input$rp
      p <- stri_stats_latex(input$nam)[1]
      if (is.null(input$nam) | input$nam=="" | p<1){
        return(NULL)
      }else{
        isolate(plot(iris))
      }
    })
  }
  )
)

Комментарии:

1. почти отлично, кроме того факта, что кнопка «Начать» должна исчезать, когда я нажимаю кнопки «Запустить проект» или «Результаты», как это происходит, когда я нажимаю «Согласие»