It is challenging to authenticate in a non-interactive setting. All chunks here are eval=FALSE, but a PDF will be made available with a completed run.
Here's a setup.
library(GoogleGenomics) apik = Sys.getenv("GOOGLE_API_KEY") authenticate(apiKey=apik) getBQ2 = function() { library(dplyr) library(bigrquery) my_billing = "cgc-05-0009" # replace billing info here with your own src_bigquery("cgc-05-0009", "yriMulti", billing = my_billing) }
suppressPackageStartupMessages({ library(MABT) }) bq = getBQ2() bq bano = RangedBT("cgc-05-0009", bq, "banovichSE_expressionData", "banovichSE_rowRanges") bano nrow(bano)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.