Commit 0dc7cb49 authored by Cedric Midoux's avatar Cedric Midoux
Browse files

tables : rownames_to_column -> as_tibble

parent 8e7823c5
......@@ -4,7 +4,7 @@ output$otuTable <- renderUI({
title = "OTU table",
width = NULL,
status = "primary",
beautifulTable(tibble::rownames_to_column(as.data.frame(otu_table(physeq())), var = "OTU"))
beautifulTable(tibble::as_tibble(as.data.frame(otu_table(physeq())), rownames = "OTU"))
)
})
......@@ -14,7 +14,7 @@ output$taxTable <- renderUI({
title = "Taxonomy table",
width = NULL,
status = "primary",
beautifulTable(tibble::rownames_to_column(as.data.frame(tax_table(physeq())), var = "OTU"))
beautifulTable(tibble::as_tibble(as.data.frame(tax_table(physeq())), rownames = "OTU"))
)
})
......@@ -54,7 +54,7 @@ output$sampleTable <- renderUI({
title = "Sample data table",
width = NULL,
status = "primary",
beautifulTable(tibble::rownames_to_column(as.data.frame(sample_data(physeq())), var = "SAMPLE")),
beautifulTable(tibble::as_tibble(sample_data(physeq()), rownames = "SAMPLE")),
box(
title = "Class of sample data",
width = NULL,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment