val visualizationsWithSources = (for {
      v <- tableReference
      d <- dataSources if v.dataSourceId === d.id
      d2 <- dataSources if v.dsdDataSourceId === d2.id
    } yield (v, d, d2)).drop(skip).take(take)

    val recentQueries = (for {
      vq <- visualizationQueries
    } yield vq)
      .groupBy(_.visualizationId)
      .map {
        case (visualizationId, group) => (
            visualizationId,
            group.map(_.id).max
          )
      }

    val withQueryIds = for {
      vb <- visualizationsWithSources leftJoin recentQueries on (_._1.id === _._1)
    } yield (vb._1, vb._2._2)

    val withTokens = for {
      r <- withQueryIds leftJoin visualizationQueries on (_._2 === _.id)
    } yield (r._1._1._1, r._1._1._2, r._1._1._3, r._2.token.?)

    withTokens.list.map((VisualizationEagerBox.apply _).tupled)