aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorjranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>2013-10-04 19:00:24 +0000
committerjranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>2013-10-04 19:00:24 +0000
commitb23da7f1932b7e7c36bb75138a485d6284854291 (patch)
tree2ba828cad7069b169a0456a96e0b1af5f65a416c
parent6b4d004e9fcd90c14f7f7bd596b64e224c4b6e73 (diff)
Switching datasets is much quicker now, but somehow I introduced a bug that
makes the Javascript engine throw an error.. And updating the study selector box in the dataset editor does not work at the moment. git-svn-id: svn+ssh://svn.r-forge.r-project.org/svnroot/kinfit/pkg/mkin@103 edb9625f-4e0d-4859-8d74-9fd3b1da38cb
-rw-r--r--inst/GUI/simple.R80
1 files changed, 33 insertions, 47 deletions
diff --git a/inst/GUI/simple.R b/inst/GUI/simple.R
index 5dd18af..6e554c2 100644
--- a/inst/GUI/simple.R
+++ b/inst/GUI/simple.R
@@ -107,10 +107,11 @@ observed.gdf <- gdf(observed.df, name = "Names of observed variables",
# Expandable group for studies {{{1
stg <- gexpandgroup("Studies", cont = g)
-studies.gdf <- gdf(studies.df, name = "Studies in the project",
+studies.gdf <- gdf(studies.df, name = "Studies in the project",
width = 500, height = 200, cont = stg)
studies.gdf$set_column_width(1, 40)
studies.gdf$set_column_width(2, 200)
+#addHandlerChanged(studies.gdf, update_study_selector)
# Expandable group for datasets {{{1
dsg <- gexpandgroup("Dataset selector", cont = g, horizontal = FALSE)
@@ -187,34 +188,40 @@ glabel("Title: ", cont = ds.e.1)
ds.title.ge <- gedit(ds[[ds.cur]]$title, cont = ds.e.1)
glabel(" from ", cont = ds.e.1)
ds.study.gc <- gcombobox(paste("Study", studies.gdf[,1]), cont = ds.e.1)
+ds.e.2 <- ggroup(cont = ds.e.head, horizontal = TRUE)
-ds.e.save <- gbutton("Save changes", cont = ds.e.1,
+ds.e.save <- gbutton("Save changes", cont = ds.e.2,
handler = save_dataset_changes_handler)
-ds.e.delete <- gbutton("Delete dataset", cont = ds.e.1,
+ds.e.delete <- gbutton("Delete dataset", cont = ds.e.2,
handler = delete_dataset_handler)
-ds.e.new <- gbutton("New dataset", cont = ds.e.1,
+ds.e.new <- gbutton("New dataset", cont = ds.e.2,
handler = new_dataset_handler)
ds.e.forms <- ggroup(cont= ds.editor, horizontal = TRUE)
-ds.e.2a <- gvbox(cont = ds.e.forms)
-ds.e.2a.gfl <- gformlayout(cont = ds.e.2a)
+ds.e.3a <- gvbox(cont = ds.e.forms)
+ds.e.3a.gfl <- gformlayout(cont = ds.e.3a)
ds.e.st <- gedit(paste(ds[[ds.cur]]$sampling_times, collapse = ", "),
width = 50,
label = "Sampling times",
- cont = ds.e.2a.gfl)
+ cont = ds.e.3a.gfl)
ds.e.stu <- gedit(ds[[ds.cur]]$time_unit,
width = 20,
- label = "Unit", cont = ds.e.2a.gfl)
+ label = "Unit", cont = ds.e.3a.gfl)
+ds.e.rep <- gedit(ds[[ds.cur]]$replicates,
+ width = 20,
+ label = "Replicates", cont = ds.e.3a.gfl)
-ds.e.2b <- gvbox(cont = ds.e.forms)
-ds.e.2b.gfl <- gformlayout(cont = ds.e.2b)
+ds.e.3b <- gvbox(cont = ds.e.forms)
+ds.e.3b.gfl <- gformlayout(cont = ds.e.3b)
ds.e.obs <- gedit(paste(ds[[ds.cur]]$observed, collapse = ", "),
width = 50,
- label = "Observed", cont = ds.e.2b.gfl)
-ds.e.2.obu <- gedit(ds[[ds.cur]]$unit,
+ label = "Observed", cont = ds.e.3b.gfl)
+ds.e.obu <- gedit(ds[[ds.cur]]$unit,
width = 20, label = "Unit",
- cont = ds.e.2b.gfl)
+ cont = ds.e.3b.gfl)
+gbutton("Generate empty grid for kinetic data", cont = ds.e.3b,
+ handler = empty_grid_handler)
ds.e.data <- ggroup(cont = ds.editor, horizontal = FALSE)
ds.e.gdf <- gdf(ds[[ds.cur]]$data, name = "Kinetic data",
@@ -223,45 +230,24 @@ ds.e.gdf$set_column_width(2, 70)
ds.e.gdf$set_column_width(3, 70)
ds.e.gdf$set_column_width(4, 50)
-update_ds_editor <- function() {
+#update_study_selector <- function(h, ...) {
+# delete(ds.e.1, ds.study.gc)
+# ds.study.gc <<- gcombobox(paste("Study", studies.gdf[,1]), cont = ds.e.1)
+# svalue(ds.study.gc, index = TRUE) <- ds[[ds.cur]]$study_nr
+#}
+update_ds_editor <- function() {
svalue(ds.editor) <- paste("Dataset", ds.cur)
- # Renew the first line
- delete(ds.e.head, ds.e.1)
- ds.e.1 <<- ggroup(cont = ds.e.head, horizontal = TRUE)
- glabel("Title: ", cont = ds.e.1)
- ds.title.ge <<- gedit(ds[[ds.cur]]$title, cont = ds.e.1)
- glabel(" from ", cont = ds.e.1)
+ svalue(ds.title.ge) <- ds[[ds.cur]]$title
+ delete(ds.e.1, ds.study.gc)
ds.study.gc <<- gcombobox(paste("Study", studies.gdf[,1]), cont = ds.e.1)
-
- ds.e.save <- gbutton("Save changes", cont = ds.e.1,
- handler = save_dataset_changes_handler)
- ds.e.delete <- gbutton("Delete dataset", cont = ds.e.1,
- handler = delete_dataset_handler)
- ds.e.new <- gbutton("New dataset", cont = ds.e.1,
- handler = new_dataset_handler)
-
svalue(ds.study.gc, index = TRUE) <- ds[[ds.cur]]$study_nr
- # Renew the details
- delete(ds.e.head, ds.e.2)
- ds.e.2 <<- glayout(cont = ds.e.head)
- ds.e.2[1, 1] <- glabel("Sampling times: ", cont = ds.e.2)
- ds.e.2[1, 2] <- gedit(paste(ds[[ds.cur]]$sampling_times, collapse = ", "),
- cont = ds.e.2)
- ds.e.2[1, 3] <- glabel("Unit: ", cont = ds.e.2)
- ds.e.2[1, 4] <- gedit(ds[[ds.cur]]$time_unit, width = 8, cont = ds.e.2)
- ds.e.2[2, 1] <- glabel("Observed variables: ", cont = ds.e.2)
- ds.e.2[2, 2] <- gedit(paste(ds[[ds.cur]]$observed, collapse = ", "),
- cont = ds.e.2)
- ds.e.2[2, 3] <- glabel("Unit: ", cont = ds.e.2)
- ds.e.2[2, 4] <- gedit(ds[[ds.cur]]$unit, width = 8, cont = ds.e.2)
- ds.e.2[3, 1] <- glabel("Replicates: ", cont = ds.e.2)
- ds.e.2[3, 2] <- gedit(ds[[ds.cur]]$replicates, width = 2, cont = ds.e.2)
- ds.e.2[3, 3:4] <- gbutton("Generate empty grid for kinetic data",
- cont = ds.e.2,
- handler = empty_grid_handler)
- visible(ds.e.2) <- TRUE
+ svalue(ds.e.st) <- paste(ds[[ds.cur]]$sampling_times, collapse = ", ")
+ svalue(ds.e.stu) <- ds[[ds.cur]]$time_unit
+ svalue(ds.e.obs) <- paste(ds[[ds.cur]]$observed, collapse = ", ")
+ svalue(ds.e.obu) <- ds[[ds.cur]]$unit
+ svalue(ds.e.rep) <- ds[[ds.cur]]$replicates
ds.e.gdf[,] <- ds[[ds.cur]]$data
}

Contact - Imprint