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