Thanks to visit codestin.com
Credit goes to github.com

Skip to content
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 1 addition & 1 deletion README.md
Original file line number Diff line number Diff line change
Expand Up @@ -14,7 +14,7 @@ This repository was developed using Rstudio and has many dependencies.

# Installation

Clone or download this repository. Run `source(analysis/Installation_Rpackages.R)` to install dependencies.
Clone or download this repository. Run `source(analysis/Installation_Rpackages.r)` to install dependencies.

Now open the shiny apps in Rstudio and click the run button or type `shiny::runApp('analysis/shiny__Analyse_data')`. You will open the data analysis software to analyse predetermined datasets.

Expand Down
2 changes: 1 addition & 1 deletion Softwareheader.R → Softwareheader.r
Original file line number Diff line number Diff line change
Expand Up @@ -8,4 +8,4 @@ distributed under the MIT license,

Available on <a href =https://doi.org/10.5281/zenodo.1162721>zenodo</a>

</h5>')
</h5>')
Original file line number Diff line number Diff line change
Expand Up @@ -35,7 +35,6 @@ library (stringr)
library(gridExtra)
library(RGraphics)
source ("Rcode/functions.r")
source ("../Softwareheader.R")

source <- function (file, local = TRUE, echo = verbose, print.eval = echo,
exprs, spaced = use_file, verbose = getOption("verbose"),
Expand Down Expand Up @@ -285,7 +284,7 @@ ui <- fluidPage(theme = "bootstrapsolar.css",

# Application title
titlePanel(title=paste0("BSeq_analyser, ",version))
,source ("../Softwareheader.R")
,source ("../Softwareheader.r")
,
# Sidebar with a slider input for number of bins
sidebarLayout(
Expand Down Expand Up @@ -425,7 +424,7 @@ server <- function(input, output, session) {
values$message <- "analysis finished"
values$Outputshtml="reports/multidim_anal_variable.html"

source("master_shiny.R")
source("master_shiny.r")
file.copy("reports/multidim_anal_variable.html", paste0("shiny__Analyse_data/www/report.html"), overwrite=TRUE,
copy.mode = TRUE, copy.date = FALSE)
# browser()
Expand Down Expand Up @@ -500,8 +499,8 @@ dataoutput2 <- reactive({
if (!length(selct_TW)) selct_TW = c(1:9)
values$message <- "analyis started"
#source <- function (x,...){source (x, local=TRUE,...)}
source("Rcode/get_behav_gp.R")
source("Rcode/plot5_hoursummaries.R")
source("Rcode/get_behav_gp.r")
source("Rcode/plot5_hoursummaries.r")
values$Outputspdf=paste0(plot.path,"/14_Minutes_Behaviours_timedtolightoff.pdf")
values$plot = pl
})
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -280,7 +280,7 @@ ui <- fluidPage(

# Application title
titlePanel("Data uploader for Bseq_analyser: Prepare your home cage monitoring data for analysis."),
source ("../Softwareheader.R"),
source ("../Softwareheader.r"),
# Sidebar
".
This app may quit abruptly in some cases, for instance if it tries to read data that it does not have access to. Check the message in the R console if it happens. ",
Expand Down