Valuebox не отображается - блестящая панель - PullRequest
Новая
       13

Valuebox не отображается - блестящая панель

0 голосов
/ 11 мая 2018

Я хочу отобразить поле значения в моей блестящей панели инструментов с помощью пакета flexdashboard.Пожалуйста, проверьте мой код, поле значения не отображается.Пожалуйста, помогите мне в этом вопросе.

Код пользовательского интерфейса 

library(shiny)
library(shinydashboard)
library(flexdashboard)

ui <- dashboardPage(skin = "black",
                    dashboardHeader(title = "test"),

                    dashboardSidebar(
                      sidebarMenu()),

                    dashboardBody(
                                fluidRow(
                                  valueBoxOutput("vbox1", width = 2),
                                  valueBoxOutput("vbox2", width = 2),
                                  valueBoxOutput("vbox3", width = 2),
                                  valueBoxOutput("vbox4", width = 2),
                                  valueBoxOutput("vbox5", width = 2),
                                  valueBoxOutput("vbox6", width = 2))))

Код сервера 

server <- function(input, output) {

  #valuebox
  output$vbox1 <- renderValueBox({
    d <- 10
    valueBox( d, caption = "Coss")
  })

  output$vbox2 <- renderValueBox({ 
    d <- 42
    valueBox( d,"Ccy")
  })

  output$vbox3 <- renderValueBox({ 
    d <- 75
    valueBox( d,"Cty")})

  output$vbox4 <- renderValueBox({ 
    d <- 21
    valueBox( d,"Dup")})

  output$vbox5 <- renderValueBox({ 
    d <- 34
    valueBox( d,"Inte")})

  output$vbox6 <- renderValueBox({ 
    d <- 56
    valueBox( d,"Acd")})

  }

shinyApp(ui, server)

enter image description here

Я получаю только текст, но не поле значения.

Спасибо, Баладжи

Ответы [ 3 ]

0 голосов
/ 11 июля 2018

пакет flexdashboard маскирует значение valueBoxOutput (), которое является функцией пакета shinydashboard.Таким образом, чтобы исправить это, вы должны использовать shinydashboard::valueBoxOutput вместо valueBoxOutput

0 голосов
/ 24 июля 2018

a.lay почти правильно.Вам также нужно пространство имен для функций сервера ... 

shinydashboard::valueBoxOutput('valueBoxA')

 output$valueBoxA <- shinydashboard::renderValueBox({
    shinydashboard::valueBox(
      'Default',
      x
    )
  })
0 голосов
/ 11 мая 2018

Ваши аргументы неверны в valueBox на сервере.MWE ниже работает для меня: 

library(shiny)
library(shinydashboard)
library(flexdashboard)

ui <- dashboardPage(skin = "black",
                    dashboardHeader(title = "test"),

                    dashboardSidebar(
                      sidebarMenu()),

                    dashboardBody(
                      fluidRow(
                        valueBoxOutput("vbox1", width = 2),
                        valueBoxOutput("vbox2", width = 2))))

server <- function(input, output) {

  #valuebox
  output$vbox1 <- renderValueBox({
    d <- 10
    valueBox( "Coss", d)
  })

  output$vbox2 <- renderValueBox({ 
    d <- 42
    valueBox("Ccy", d)
  })

}

shinyApp(ui, server)
...