मुझे चमकदार डैशबोर्ड बॉक्स के ऊपरी दाएं कोने पर एक एक्शन बटन आइकन की आवश्यकता होगी। नीचे दिया गया कोड 'टाइटल 1' के बगल में 'रीफ्रेश' और 'प्लस' आइकन जोड़ता है। हालांकि, मुझे हेडर बार के दाहिने तरफ के अंत में आइकन रखने की आवश्यकता होगी (विंडोज़ एप्लिकेशन में कम से कम, पुनर्स्थापित और बंद करें बटन की स्थिति के समान)।

library(shiny)
library(shinydashboard)

body <- dashboardBody(
  fluidRow(
    box(
      title = p("Title 1", 
                actionButton("titleBtId", "", icon = icon("refresh"),
                             class = "btn-xs", title = "Update"),
                actionButton('titleBtid2', '', icon = icon('plus'),
                             class='btn-xs', title = 'update')
      ), 
      width = 4, solidHeader = TRUE, status = "warning",
      uiOutput("boxContentUI2")
    )
  )
)

ui <- dashboardPage(
  dashboardHeader(title = "Row layout"),
  dashboardSidebar(),
  body
)

server = function(input, output, session) { 
  
  output$boxContentUI2 <- renderUI({
    input$titleBtId
    pre(paste(sample(LETTERS,10), collapse = ", "))
  })  
}

shinyApp(ui = ui, server = server)
0
Gangadharan 26 नवम्बर 2021, 10:18

1 उत्तर

सबसे बढ़िया उत्तर

अपने एक्शन बटन में एब्सोल्यूट पोजिशनिंग के साथ स्टाइल डिक्लेरेशन जोड़ें।

library(shiny)
library(shinydashboard)

body <- dashboardBody(
  fluidRow(
    box(
      title = p("Title 1", 
                actionButton("titleBtId", "", icon = icon("refresh"),
                             class = "btn-xs", title = "Update", style = "position: absolute; right: 40px"),
                actionButton('titleBtid2', '', icon = icon('plus'),
                             class = 'btn-xs', title = 'update', style = "position: absolute; right: 10px")
      ), 
      width = 4, solidHeader = TRUE, status = "warning",
      uiOutput("boxContentUI2")
    )
  )
)

ui <- dashboardPage(
  dashboardHeader(title = "Row layout"),
  dashboardSidebar(),
  body
)

server = function(input, output, session) { 
  
  output$boxContentUI2 <- renderUI({
    input$titleBtId
    pre(paste(sample(LETTERS,10), collapse = ", "))
  })  
}

shinyApp(ui = ui, server = server)

enter image description here

0
Merijn van Tilborg 26 नवम्बर 2021, 11:35