Блестящий: не могу добавить цвет, значок или субтитры к моему значению - PullRequest
Новая
       27

Блестящий: не могу добавить цвет, значок или субтитры к моему значению

0 голосов
/ 04 марта 2020

Я построил свою первую панель мониторинга, используя shiny, и я хотел добавить несколько полей значений, но когда я это сделал, поле значений появилось без цвета, подзаголовка или значка. enter image description here

Я не могу понять, в чем ошибка. Пожалуйста, помогите и спасибо заранее.

Вот код, который я написал: 

library(shiny)
library(shinydashboard)
library(flexdashboard)
library(readxl)
Base_Ferias <- read_excel("C:/Users/tomas/Desktop/R/Apps/Seguimiento_ferias/Base_Avance_Ferias.xlsx")
Base_Ferias$T_respuesta <- as.numeric(Base_Ferias$T_respuesta)



ui <-dashboardPage(skin = "red",
                   dashboardHeader(title = "My Dashboard", titleWidth = 450),
                   dashboardSidebar(selectInput("actividad", "Select", 
                                                choices = Base_Ferias$Actividad)),
                   dashboardBody(
                     box(flexdashboard::gaugeOutput("chart"),width=200,
                                  title="Percentage"),
                     box(valueBoxOutput("value1"), height = "100px", width = 3)

                     )
                   )



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

  output$chart <- flexdashboard::renderGauge({
    x <- Base_Ferias[Base_Ferias$Actividad==input$actividad,]
    y <- x$T_respuesta
    gauge(y, min = 0, max = 100, symbol = '%')
    })

  output$value1 <- renderValueBox({
    valueBox(
      paste0(25,"%"), "subtitle",icon("stats",lib='glyphicon'),
             color = "purple")
  })
})

shinyApp(ui = ui, server = server)

1 Ответ

0 голосов
/ 04 марта 2020

Присоединение flexdashboard функции последних масок с тем же именем от shinydashboard. Вместо этого используйте valueBox из shinydashboard: 

library(shiny)
library(shinydashboard)
#> 
#> Attaching package: 'shinydashboard'
#> The following object is masked from 'package:graphics':
#> 
#>     box

ui <-dashboardPage(skin = "red",
                   dashboardHeader(title = "My Dashboard", titleWidth = 450),
                   dashboardSidebar(selectInput("actividad", "Select", 
                                                choices = c("one", "two"))),
                   dashboardBody(
                     box(flexdashboard::gaugeOutput("chart"),width=200,
                         title="Percentage"),
                     box(valueBoxOutput(outputId = "value1"))

                   )
)



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

  output$chart <- flexdashboard::renderGauge({
    x <- 1
    y <- 10
    flexdashboard::gauge(y, min = 0, max = 100, symbol = '%')
  })

  output$value1 <- renderValueBox({
    valueBox(
      paste0(25,"%"), "subtitle",icon("stats",lib='glyphicon'),
      color = "purple")
    })
})

shinyApp(ui = ui, server = server)
#> 
#> Listening on http://127.0.0.1:5809

Создано в 2020-03-04 пакетом Представить (v0 .3.0)

...