Блог

Главная - Вопросы по программированию - Как вставить баннер вместе с текстом в приложение shiny

Как вставить баннер вместе с текстом в приложение shiny

#r #shiny

Вопрос:

Как мне вставить баннер вместе с текстом, который у меня есть в приложении? Я видел приложение, которое это сделало, я вставлю изображение ниже. Ссылка для доступа к этому приложению is:https://shiny.rstudio.com/gallery/lego-mosaic.html

Обратите внимание, что на нем есть текст и синий баннер. Я хотел бы сделать что — то подобное этому. Вы не могли бы мне помочь?

Большое спасибо!

Исполняемый код ниже:

 library(shiny)

ui <- shiny::navbarPage(
  title="Test", collapsible = TRUE,
  
  tabPanel("",
           
           br(),
           hr(),
           
           h2(HTML("Project <b>Description</b>"), 
              style="text-align:center; color: blue;"),
           hr(),
           div(
             style = "width: 75%; margin: auto;",
             h2(HTML("Lorem Ipsum is simply dummy text of the printing and typesetting industry. 
                                      Lorem Ipsum has been the industry's standard dummy text ever since the 1500s, 
                                      when an unknown printer took a galley of type and scrambled it to make a type 
                                      specimen book. It has survived not only five centuries, but also the leap into electronic 
                                      typesetting, remaining essentially unchanged. It was popularised in the 1960s with the release of 
                                      Letraset sheets containing Lorem Ipsum passages, and more recently with desktop publishing software 
                                      like Aldus PageMaker including versions of Lorem Ipsum"),
                style="text-align:center"),
             h2(HTML("Lorem Ipsum is simply dummy text of the printing and typesetting industry. 
                                      Lorem Ipsum has been the industry's standard dummy text ever since the 1500s, 
                                      when an unknown printer took a galley of type and scrambled it to make a type 
                                      specimen book. It has survived not only five centuries, but also the leap into electronic 
                                      typesetting, remaining essentially unchanged. It was popularised in the 1960s with the release of 
                                      Letraset sheets containing Lorem Ipsum passages, and more recently with desktop publishing software 
                                      like Aldus PageMaker including versions of Lorem Ipsum"),
                style="text-align:center"))
  )
)




server <- function(input, output,session) {
  
}

shinyApp(ui = ui, server = server)

введите описание изображения здесь

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

1. Это делается с помощью пакета shinyDashboard .

2. Спасибо! Но нет никакого способа сделать какую-то полосу/полосу?

Ответ №1:

Не совсем понятно, чего вы хотите. Как насчет этого:

 library(shiny)

ui <- fluidPage(
  div(
    style = 
      "height: 80px; background-color: blue; width: 100%; position: absolute; right:0;",
    div(
      style = "height: 100%; background-color: cyan; position: relative; width: fit-content;",
      tags$p(
        "Here some text vertically centered", 
        style = 
          "position: relative; top: 50%; -ms-transform: translateY(-50%); transform: translateY(-50%); padding-right: 10px; padding-left: 10px;"
      )
      
    )
  )
)

server <- function(input, output, session){}

shinyApp(ui, server)

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

1. Это именно так, но я хотел бы сделать эту полоску в голубом цвете для той части, в которой есть мой текст.

Метки: