Saya memiliki tabel data yang bekerja dengan mengkilap menggunakan contoh pemformatan di sini Kode tampaknya telah berhenti berfungsi, dan alih-alih tabel yang diformat dengan angka positif hijau, negatif ...

1
DaveM 5 April 2021, 22:03

1 menjawab

Jawaban Terbaik

Mungkin karena paket tidak disebutkan untuk dataTableOutput. Ubah ke DT::dataTableOutput dan DT::renderDataTable

library(shiny)
library(formattable)
library(dplyr)


# Define UI
ui <- fluidPage(
  
  # Application title
  titlePanel("example"),
  mainPanel(
    DT::dataTableOutput("Table")
  )
)


# Define server
server <- function(input, output) {
  
  
  # Create formattable function for tables
  sign_formatter <- formatter("span",
                              style = x ~ style(
                                color = ifelse(x > 0, "green",
                                               ifelse(x < 0, "red", "black")),
                                font.weight = "bold"
                              ))
  
  
  
  # Identify numeric columns of table
  numeric_cols <- colnames(mtcars[sapply(mtcars, is.numeric)])
  
  
  
  # Render the table
  output$Table <- DT::renderDataTable({
    table_to_return <- 
     as.datatable(
      formattable(
        mtcars,
        list(
          area(, numeric_cols) ~ sign_formatter
        )
      )  # formattable close
    )  # datatable close
  })     # Render close
}


# Run the application 
shinyApp(ui = ui, server = server)

-keluaran

enter image description here

1
akrun 5 April 2021, 19:08