tabla - r sweave manual

R brillante: edita el formato de una salida de tabla

Question

Estoy generando una tabla usando shiny (con renderTable y tableOutput), ¿hay alguna manera de editar el formato de la tabla y de los valores dentro de la tabla?

Específicamente quiero

• Use la coma como superador 1000 (es decir, cambie 1234567 a 1,234,567)
• Ponga un signo de £ antes de cada valor en una columna
• Haga la última fila en negrita
• Eliminar nombres de fila

Entonces, si tomas la reactividad brillante, por ejemplo, como ejemplo

runExample(''03_reactivity'')

Esto produce una tabla ''vista'', el código del servidor.R es

 output$view <- renderTable({
head(datasetInput(), n = input$obs)
})

El código ui.R es

tableOutput("view")

En este ejemplo, me gustaría dar salida

area peri shape perm
£4,990 2,791.90 0.09 6.30
£7,002 3,892.60 0.15 6.30
£7,558 3,930.66 0.18 6.30
£7,352 3,869.32 0.12 6.30
£7,943 3,948.54 0.12 17.10
£7,979 4,010.15 0.17 17.10
£9,333 4,345.75 0.19 17.10
£8,209 4,344.75 0.16 17.10
£8,393 3,682.04 0.20 119.00
£6,425 3,098.65 0.16 119.00 

(Con el encabezado restante en negrita y la fila inferior también en negrita, resulta que stackoverflow es igualmente difícil de obtener en el formato que quiero;))

Answer 1

Hola, he agregado comentarios en mi respuesta, espero que esto ayude. Consulte Datatables aquí para obtener más información sobre cómo personalizar sus tablas.

rm(list = ls())
library(shiny)
library(scales)
# Sample Data
area <- seq(from=10,to=100, by=10)
peri <- seq(from=2710.1,to=2800.1, by=10)
shape <- seq(from=0.1,to=1, by=0.1)
perm <- seq(from=1,to=100, by=10)
my_data <- as.data.frame(cbind(area,peri,shape,perm))
ui = fluidPage(
sidebarLayout(
sidebarPanel(),
mainPanel(
tableOutput("view"),
#4 Make the final row bold using tags$style
tags$style(type="text/css", "#view tr:last-child {font-weight:bold;}")
),
)
)
server = function(input, output) {
output$view <- renderTable({
test <- my_data
#1 Comma Seperator as 1000: you can use the library(scales) and the comma function
test$peri<-comma(test$peri)
#2 Out the "£" sign before every value in column 1 (or any column): you can use paste0
test$area <- paste0("£",test$area)
test
#3 Remove row names : use inlcude.rownames=FALSE
},include.rownames=FALSE)
}
runApp(list(ui = ui, server = server))