# NOT RUN {
library(RDML)
rdml <- RDML$new(system.file("/extdata/test.rdml", package = "shinyMolBio"))
curves <- renderAmpCurves("curves1", ampCurves = rdml$GetFData(long.table = TRUE))
curves[[2]][[3]][[2]]
# }
Run the code above in your browser using DataLab