小编Owl*_*ieW的帖子

我正在尝试添加一个框作为 Shiny 应用程序的一部分，以在应用程序顶部包含一些文本（说明）和一个图像（徽标）。这是我到目前为止的代码。

frow5 <- fluidRow(
  box(
    title = "Instructions"
    ,status = "primary"
    ,solidHeader = FALSE 
    ,collapsible = FALSE 
    ,textOutput("instructions")
    , height = 320
    , width = 12
    , align='ccc'


  )

)

output$instructions <- renderText("Some text")

目前我已经指定了一个 textOuput 参数，但我需要一个图像作为同一个框的一部分，右对齐。有什么建议？

我正在尝试设置绘图的高度，但似乎无法在绘图函数中获取高度参数来实际执行任何操作。有没有人有什么建议？

  output$probability_chart <- renderPlot({
    xvals <- 1:17 
    req(input$countrySelectProbabilities)
    idx <- which(input$countrySelectProbabilities==FVI_DATA_ALL_COUNTRIES)

    max_comp_prob <- max(Composite_Probabilities_1_DF[idx, 2:18], na.rm=TRUE)
    max_bank_prob <- max(Banking_Probabilities_1_DF[idx, 2:18], na.rm=TRUE)
    max_curr_prob <- max(Currency_Probabilities_1_DF[idx, 2:18], na.rm=TRUE)
    max_sove_prob <- max(Sovereign_Probabilities_1_DF[idx, 2:18], na.rm=TRUE)
    max_sudd_prob <- max(Sudden_Stop_Probabilities_1_DF[idx, 2:18], na.rm=TRUE)

    overall_max_prob <- max(max_comp_prob, max_bank_prob, max_curr_prob, max_sove_prob, max_sudd_prob, na.rm=TRUE)


    plot(x = xvals, y=Composite_Probabilities_1_DF[idx, 2:18], type = "l"
         , xlab = "", ylab = "", col="grey20", ylim = c(-10, overall_max_prob), lwd=3, las=2)
    mtext("Financial Vulnerability Indicator", side=3, adj=0, line=1.2, cex=2, font=2)
    mtext("Probability", side=3, adj=0, line=0.1, cex=1, font=0.5) …

我试图只为表中的所有数据显示两位小数，然后将所有内容集中对齐。第一列是国家，但其余是数字。这是代码

output$Composite <- renderDataTable(FVI_DATA_COMPOSITE, options = list(pageLength = 15,lengthChange=FALSE))

任何想法如何做到这一点？

编辑：这不起作用。

output$Composite <- renderDataTable(FVI_DATA_COMPOSITE, 
  options = list(pageLength = 10,lengthChange=FALSE), round(FVI_DATA_COMPOSITE[3:9], digits=2)

我正在尝试根据第 2 列中的数据对表格的每一行进行颜色编码。请参见下图。

基本上给你一个例子，代码需要根据第二列工作，所以如果它说撒哈拉以南非洲，例如，将整行设为某种颜色，拉丁美洲和加勒比地区相同，但颜色不同。Region 列的右侧还有一些其他列。我想我可能需要在下面的 dataTable 函数中使用一些 if 语句，但任何帮助将不胜感激。

  output$Composite <- renderDataTable(datatable(FVI_DATA_COMPOSITE, 
                                                options = list(
                                                columnDefs = list(list(className = 'dt-center', targets = 3:9)))) 
                                                %>% formatRound(c(3:9), 2))

编辑：当前不起作用的新代码块。

 output$Composite <- renderDataTable(datatable(FVI_DATA_COMPOSITE, 
                                                options = list(
                                                columnDefs = list(list(className = 'dt-center', targets = 3:9)), pageLength = 50, lengthChange = FALSE))  
                                                %>% formatRound(c(3:9), 2))
                                                %>% formatStyle(0, target = "row", 
                                                backgroundColor = styleEqual(which(FVI_DATA_COMPOSITE$Region == "Sub-Saharan Africa")[1], "red"))