-- | same as 'RlangQQ.r', but displays plots at the end too
rDisp = QuasiQuoter { quoteExp = \s -> [| do
  result <- $(quoteExp r s)
  p <- rDisplayAll
  printDisplay p
  return result
  |] }
rDisp = QuasiQuoter { quoteExp = \s -> [| do
  result <- $(quoteExp r s)
  p <- rDisplayAll
  printDisplay p
  return result
  |] }
rDisp = QuasiQuoter { quoteExp = \s -> [| do
  result <- $(quoteExp r s)
  p <- rDisplayAll
  printDisplay p
  return result
  |] }