Call.DB<-function(server, ip, usr, pw, Resultschema){
connectionDetails <- DatabaseConnector::createConnectionDetails(dbms=server,
server=ip,
schema=Resultschema,
user=usr,
password=pw)
connection <<- DatabaseConnector::connect(connectionDetails)
connectionDetails <<- connectionDetails
#return(connection)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.