Nothing
title: "D4TAlink.light - Quick start" author: "Grégoire Thomas" date: "October 17, 2022" output: rmarkdown::html_vignette vignette: | %\VignetteIndexEntry{D4TAlink.light - Quick start} %\VignetteEngine{knitr::knitr} %\VignetteEncoding{UTF-8}
if (!require("D4TAlink.light", quietly = TRUE)) install.packages("D4TAlink.light")
library(D4TAlink.light)
setTaskAuthor("Doe Johns")
setTaskSponsor("myClient")
setTaskRoot("~/myDataRepository", dirCreate = TRUE)
package
refers here to a work package)task1 <- initTask(project = "DiseaseABC",
package = "myStudy",
taskname = "2022-09-01_myFirstAnalysis")
task2 <- initTask(project = "DiseaseABC",
package = "myStudy",
taskname = "2022-09-05_mySecondAnalysis")
print(listTasks())
mytask <- loadTask(project = "DiseaseABC",
package = "myStudy",
taskname = "2022-09-05_mySecondAnalysis")
d <- list(letters = data.frame(a = LETTERS, b = letters, c = 1:length(letters)),
other = data.frame(a = 1:3, b = 11:13))
saveBinary(d, mytask, "myTables")
e <- readBinary(mytask, "myTables")
excelfilename <- saveReportXls(d, mytask, "tables")
pdffilename <- pdfReport(mytask, "myPlot", dim = c(150, 150)) # 150mm x 150mm
plot(pi)
dev.off()
csvfile <- reportFn(mytask, "someData", "csv")
p <- data.frame(a = LETTERS, b = letters, c = 1:length(letters))
write.table(p, csvfile)
print(csvfile)
rmdfile <- initTaskRmd(mytask)
print(rmdfile)
# May require having run 'tinytex::install_tinytex()'
docfile <- renderTaskRmd(mytask)
if (require("Biobase", quietly = TRUE)) Biobase::openPDF(docfile)
print(listTaskFiles(mytask))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.