library(pool) library(RPostgres) library(DBI) library(tidyverse) library(dbplyr)
pool <- pool::dbPool(RPostgres::Postgres(), host = "biosensor.c9k2hfiwt5mi.us-east-2.rds.amazonaws.com", dbname = "biosensor", port = 5432, user = "biosensor", password = readLines("~/password.txt"))
dbListTables(pool)
cells <- tbl(pool, "cells")
cells %>% count(image_number) %>% arrange(image_number)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.