无法在 Shiny 应用程序中从 Flexdashboard 库呈现仪表

Question

我正在尝试创建一个闪亮的应用程序 a) 提示用户上传包含数字数据的文件， b) 读取文件并将数据点分配给不同的变量， c) 从捕获的变量中计算新变量 d) 使用计算的变量显示“仪表”

代码成功执行，但仪表图未正确呈现。也没有错误或警告消息。相反，我收到以下消息：

“asJSON(keep_vec_names=TRUE) 的输入是一个命名向量。在未来的 jsonlite 版本中，将不支持此选项，命名向量将被转换为数组而不是对象。如果你想要 JSON对象输出，请改用命名列表。参见 ?toJSON。"

我得到的不是仪表输出，而是中间那个微小的规格，如附图所示。

整个代码相当长，因此只提供相关的sn-ps代码。

如果您能帮助解决这个问题，我们将不胜感激。

library(shiny)
library(flexdashboard)

ui <- fluidPage(

             tabPanel("Sensitivity Analysis",
                      sidebarLayout(
                        sidebarPanel(
                          uiOutput("Sensitivity_Analysis")
                        ),
                        mainPanel(
                          gaugeOutput("sensitivity", width = "600px", height = "600px")
                        )
                      )
             ),


server <- function (input, output)
{

  output$input_financials=renderUI({
    fluidRow(fileInput("file1", "Choose CSV File",multiple = FALSE,accept = c("text/csv","text/comma-separated-values,text/plain",".csv")),
             actionButton("process","Process"))})


data_input=reactiveValues()

  observeEvent(input$process,{
    file_input <- input$file1
    if (is.null(file_input)) {
      return(NULL)}

  ## File is read and all the inputs are assigned to variables
  ....


  ## Output for Gauge begins
  output$sensitivity <- flexdashboard::renderGauge({


    gauge_limit <-  data_input$wc_value

    data_input$cash_rel_dpo <- ## Formula for cash_del_dpo
    data_input$cash_rel_dro <- ## Formula for cash_del_dro
    data_input$cash_rel_dio <- ## Formula for cash_del_dio
    data_input$wc_predicted_value <- (data_input$wc_predicted_value - data_input$cash_rel_dpo - data_input$cash_rel_dro - data_input$cash_rel_dio)
    gauge(data_input$wc_predicted_value, min = 0, max = gauge_limit, 
          gaugeSectors(success = c(0, 10000), 
                       warning = c(10001, 50000),
                       danger = c(50001, 1000000000))
    )
  })

shinyApp(ui = ui, server = server)

执行代码时生成的输出截图

Answer 1

billboarder 包中有类似的仪表，试试这个例子：

library(shiny)
library(billboarder)

ui <- fluidPage(
  tabPanel(
    title = "Sensitivity Analysis",
    sidebarLayout(
      sidebarPanel(
        fileInput("file1", "Choose CSV File",
                  multiple = FALSE,
                  accept = c("text/csv","text/comma-separated-values,text/plain",".csv")),
        actionButton(inputId = "process", label = "Process (click here to refresh the gauge)")
      ),
      mainPanel(
        billboarderOutput("sensitivity", width = "400px", height = "400px")
      )
    )
  )
)


server <- function (input, output) {

  data_input <- reactiveValues(x = 0)

  observeEvent(input$process, {
    data_input$x <- sample.int(1e5, size = 1)
  }, ignoreInit = TRUE)


  ## Output for Gauge begins
  output$sensitivity <- renderBillboarder({
    billboarder() %>% 
      bb_gaugechart(
        value = data_input$x, 
        name = "Predicted value",
        steps = c(1e4, 5e4, 1e5),
        steps_color = rev(c("#FF0000","#F6C600", "#60B044"))
      ) %>% 
      bb_gauge(
        min = 0, max = 1e5,
        units = "",
        label = list(
          format = htmlwidgets::JS("function(value, ratio) {return d3.format(',')(value);}") # format value with thousand separator
        ),
        width = 80
      )
  })
}

shinyApp(ui = ui, server = server)