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

Primer paso migracion a columna única para ID.Animal.

Browse Source
This commit is contained in:
marcelcosta
2023-12-04 12:14:25 +01:00
parent 9f0cda73eb
commit 80362a28db
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
invivos/app.R
+4
View File
@@ -379,6 +379,7 @@ server <- function(input, output) {
table[i,"Volume"]<-sum(sapply(1:length(long), function(x) (long[x]*wide[x]*wide[x])*(pi/6))) table[i,"Volume"]<-sum(sapply(1:length(long), function(x) (long[x]*wide[x]*wide[x])*(pi/6)))
} }
table$Volume<-as.numeric(table$Volume) table$Volume<-as.numeric(table$Volume)
table$Animal<-paste0(table$Cage, table$Animal)
## Autocompletado de grupo ## Autocompletado de grupo
table_group<-merge( table_group<-merge(
@@ -435,6 +436,8 @@ server <- function(input, output) {
observeEvent(analysis$taula, {}) observeEvent(analysis$taula, {})
table<-analysis$taula table<-analysis$taula
table$Animal<-paste0(table$Cage, table$Animal)
print(table)
animals<-unique(table$Animal) animals<-unique(table$Animal)
sides<-unique(table$Side) sides<-unique(table$Side)
groups<-table %>% select(Animal, Group) %>% unique() %>% pull(Group) groups<-table %>% select(Animal, Group) %>% unique() %>% pull(Group)
@@ -512,6 +515,7 @@ server <- function(input, output) {
observeEvent(analysis$taula, {}) observeEvent(analysis$taula, {})
table<-analysis$taula table<-analysis$taula
table$Animal<-paste0(table$Cage, table$Animal)
animals<-unique(table$Animal) animals<-unique(table$Animal)
sides<-unique(table$Side) sides<-unique(table$Side)
groups<-table %>% select(Animal, Group) %>% unique() %>% pull(Group) groups<-table %>% select(Animal, Group) %>% unique() %>% pull(Group)