marcelcosta/invivos
1
0
Fork 0
Code Issues 3 Pull Requests Projects Releases Wiki Activity

Corregir ntumors as.numeric.

Browse Source
This commit is contained in:
marcelcosta
2023-01-25 17:04:00 +01:00
parent 7ca800a3e8
commit f9aef54fa0
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
invivos/app.R
+4 -3
View File
@@ -290,7 +290,7 @@ server <- function(input, output) {
content = function(file){ content = function(file){
ncages<-input$ncages ncages<-input$ncages
nrat_cage<-5 nrat_cage<-5
id_tumors<-c("L","R") id_tumors<-c("L","R")[input$ntumors]
# timepoint<-c(7,10,13,16,19,22,25) # timepoint<-c(7,10,13,16,19,22,25)
if (!is.null(input$file_sizes)){ if (!is.null(input$file_sizes)){
@@ -320,11 +320,12 @@ server <- function(input, output) {
# dtemplate["ID animal"]<-gsub("[LR]","",dtemplate$`ID animal`) # dtemplate["ID animal"]<-gsub("[LR]","",dtemplate$`ID animal`)
# dtemplate[,5:ncol(dtemplate)]<-"" # dtemplate[,5:ncol(dtemplate)]<-""
}else{ }else{
template<-data.frame( template<-data.frame(
Cage=rep(LETTERS[1:ncages], each=nrat_cage*input$ntumors), Cage=rep(LETTERS[1:ncages], each=nrat_cage*as.numeric(input$ntumors)),
Date="", Date="",
DayPostInoc="", DayPostInoc="",
Animal=rep(1:(nrat_cage*ncages), each=input$ntumors), Animal=rep(1:(nrat_cage*ncages), each=as.numeric(input$ntumors)),
Group="", Group="",
Side=rep(id_tumors, nrat_cage*ncages), Side=rep(id_tumors, nrat_cage*ncages),
Weight="", Weight="",