## Not run: ------------------------------------
#
# balance_sheet %>% calculate(
#
# current_ratio = AssetsCurrent / LiabilitiesCurrent,
#
# quick_ratio =
# ( CashAndCashEquivalentsAtCarryingValue +
# AvailableForSaleSecuritiesCurrent +
# AccountsReceivableNetCurrent
# ) / LiabilitiesCurrent
# )
## ---------------------------------------------
Run the code above in your browser using DataLab