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

Rename data to input

Browse source
This commit is contained in:
Elias Projahn 2021-08-25 12:03:11 +02:00
parent 129793e055
commit fd72b3426c
2 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
data.R → input.R
View file

@ -9,7 +9,7 @@ library(rlog)
#' - `distances` will contain each species' genes' distances to the telomere. #' - `distances` will contain each species' genes' distances to the telomere.
#' #'
#' @seealso [load_data_cached()] #' @seealso [load_data_cached()]
load_data <- 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 = "/"))

4
server.R
View file

@ -2,11 +2,11 @@ library(data.table)
library(DT) library(DT)
library(shiny) library(shiny)
source("data.R") source("input.R")
source("scatter_plot.R") source("scatter_plot.R")
source("util.R") source("util.R")
data <- run_cached("input", load_data, "input") data <- run_cached("input", load_input, "input")
server <- function(input, output) { server <- function(input, output) {
output$genes <- renderDT({ output$genes <- renderDT({