display reactive data on Label

...Good day everyone im building an app in shiny and would like to know some way to display my output data on an element similar to a label. The following attachment shows how it currently looks, I need to display text after each label in the picture without affecting its design with elements that have borders or such.

and my code:

library(shiny)
library(shinythemes)
library(shinydashboard)

dbHeader <- dashboardHeader()
dbHeader$children[[2]] <-  tags$img(src='https://img.photobucket.com/albums/v211/Valholy/header.jpg',height='43',width='1024')


ui=dashboardPage(
  dbHeader,
  #dashboardHeader(title = tags$a(tags$img(src='https://img.photobucket.com/albums/v211/Valholy/header.jpg'))),
  dashboardSidebar(
    textInput("Tienda","Tienda"),
    textInput("depto","depto"),
    textInput("Articulo","Articulo"),
    actionButton("mybutton","Consultar Tienda")
  ),
  dashboardBody(
    fluidRow(   
      column(3,wellPanel(style = "background-color: #3366ff;",
                         h3("Nº Item:",style = "color:#ffffff;"),
                         p("Desc:", style = "color:#ffffff;"),
                         br(),
                         p("Proveedor:", style = "color:#ffffff;"),
                         p("Nº Proveedor:", style = "color:#ffffff;"),
                         br(),
                         p("Depto.:", style = "color:#ffffff;"),
                         p("Categoría:", style = "color:#ffffff;"),
                         p("Effective Date:", style = "color:#ffffff;"),
                         br(),
                         
                         br(),
                         p("Process Channel Type:", style = "color:#ffffff;"),
                         p("CEDIS:", style = "color:#ffffff;"),
                         fluidRow(column(5,p("Vndr Pack:", style = "color:#ffffff;"),
                                         p("Item Type:", style = "color:#ffffff;"),
                                         p("Order Book:", style = "color:#ffffff;"),
                                         p("Carry Option:", style = "color:#ffffff;")),
                                  
                                  column(5,p("Whse Pack:", style = "color:#ffffff;"),
                                         p("Status Code:", style = "color:#ffffff;"),
                                         p("CWO:", style = "color:#ffffff;"),
                                         p("Carried Status:", style = "color:#ffffff;"))
                                  
                         )
                         
      )),
      column(3,wellPanel(style = "background-color: #3399ff;",
                         p("Prom.Vta Wkly:", style = "color:#ffffff;"),
                         p("Prom.Vta Wkly:", style = "color:#ffffff;"),
                         hr(),
                         p("Prom.Fcst.Wkly:", style = "color:#ffffff;"),
                         hr(),
                         p("Prom.Ships.Wkly:", style = "color:#ffffff;"),
                         br()
      )
      
      ),
      column(3,wellPanel(style = "background-color: #0066ff;",
                         p("On Hand:", style = "color:#ffffff;"),
                         p("In transit:", style = "color:#ffffff;"),
                         p("In Warehouse:", style = "color:#ffffff;"),
                         p("On Order:", style = "color:#ffffff;"),
                         p("Total:", style = "color:#ffffff;"),
                         p("Stock Outs:", style = "color:#ffffff;"),
                         p("Ajustes IP:", style = "color:#ffffff;")
      )))))

server=function(input,output,session){

  
}
shinyApp(ui=ui,server=server)

thanks a lot

found my solution it would be this way:

h3(textOutput("Item"),style = "color:#ffffff;")

 output$Item <- reactive({
    if(is.null(values$mydata)){
      valor='-'
    }else{
      valor=values$mydata[1,9]
    }
  paste0(valor,sep="")
  })

This topic was automatically closed 7 days after the last reply. New replies are no longer allowed.