johrpan/geposanui
1
0
Fork 0
mirror of https://github.com/johrpan/geposanui.git synced 2025-10-26 11:17:24 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix minor issues

Browse source
This commit is contained in:
Elias Projahn 2021-08-26 12:51:43 +02:00
parent 363dee2cbd
commit 1c88458ce7
2 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
input.R
View file

@ -7,8 +7,6 @@ library(rlog)
#' - `genes` will be a table with metadata on human genes. #' - `genes` will be a table with metadata on human genes.
#' - `species` will contain metadata on each species. #' - `species` will contain metadata on each species.
#' - `distances` will contain each species' genes' distances to the telomere. #' - `distances` will contain each species' genes' distances to the telomere.
#'
#' @seealso [load_data_cached()]
load_input <- function(path) { load_input <- function(path) {
genes <- fread(paste(path, "genes.tsv", sep = "/")) genes <- fread(paste(path, "genes.tsv", sep = "/"))
original_species <- fread(paste(path, "species.csv", sep = "/")) original_species <- fread(paste(path, "species.csv", sep = "/"))

1
server.R
View file

@ -24,6 +24,7 @@ server <- function(input, output) {
output$genes <- renderDT({ output$genes <- renderDT({
datatable( datatable(
filtered()[, .(.I, name, chromosome, cluster_length, cluster_mean)], filtered()[, .(.I, name, chromosome, cluster_length, cluster_mean)],
rownames = FALSE,
colnames = c( colnames = c(
"Rank", "Rank",
"Gene", "Gene",