The table below lists, for each package, which database testing servers it uses as part of its unit tests.
data <- readRDS("../extras/DatabaseTestServerUsage.rds") data <- data[order(data$package), ] dbmss <- colnames(data) dbmss <- dbmss[dbmss != "package"] lines <- c( "<div id=slanttable>", "<table>", " <thead>", " <tr>", " <th>Package</th>", sprintf(" <th><div><span>%s</span></div></th>", dbmss), " </tr>", " </thead>", " <tbody>", sapply(seq_len(nrow(data)), function(i) c(" <tr>", sprintf(" <td>%s</td>", data$package[i]), sprintf(" <td%s>%s</td>", ifelse(is.na(data[i, dbmss]), "", ifelse(data[i, dbmss], " style=\"background:#cdf5bf;\"", " style=\"background:#f5c3bf;\"")), ifelse(is.na(data[i, dbmss]), " ", ifelse(data[i, dbmss], "T", "X")) ), " </tr>")), " </tbody>", "</table>", "</div>" ) writeLines(lines)
This table was constructed simply by looking for the environmental variable names of the test server credentials in each package's test code, and may therefore not reflect actual testing. Whether a package connects to a database at all was determined by evaluating whether it imports DatabaseConnector.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.