閃亮的NavBar添加額外的信息

Question

因爲我的代碼是長我從here

我試圖從here加入以下代碼（最後tabPanel後）考慮的示例代碼。但沒有運氣。

tags$script(HTML("var header = $('.navbar > .container'); 
         header.append('<div Company name text here>')")) 

所有我想要的是一個純文本（信息）在NavBar的右側。

Answer 1

下面的代碼給你你想要的。主要問題是瀏覽html標籤。

library(shiny) 


server <- function(input, output, session) { 
    output$plot <- renderPlot({ 
    plot(cars, type=input$plotType) 
    }) 

    output$summary <- renderPrint({ 
    summary(cars) 
    }) 

    output$table <- DT::renderDataTable({ 
    DT::datatable(cars) 
    }) 
} 


ui <-shinyUI(navbarPage("Navbar!", 
      tabPanel("Plot", 
        sidebarLayout(
         sidebarPanel(
         radioButtons("plotType", "Plot type", 
            c("Scatter"="p", "Line"="l") 
         ) 
        ), 
         mainPanel(
         plotOutput("plot") 
        ) 
        ) 
      ), 
      tabPanel("Summary", 
        verbatimTextOutput("summary") 
      ), 


      tags$script(HTML("var header = $('.navbar > .container'); 
         header.append('<div style=\"float:right\"><h3>Company name text here</h3></div>'); 
         console.log(header)")) 
)) 

shinyApp(ui = ui, server = server) 

希望它有幫助！