payload <- list(
Table = list(
Columns = list(Column = c("CID", "AID", "Activity Outcome")),
Row = list(
list(Cell = c("2244", "367", "Active")),
list(Cell = c("2244", "368", "Inactive"))
)
)
)
pc_assay_activity_long(x = payload)
Run the code above in your browser using DataLab