Further considerations for callModule processing

オープン
  • 何か問題がありますか？
#17 コメント 0 件 リアクション 0 件 担当者 0 名 GitHub で見る

まだ誰も着手していません。

評価

難易度
5/5
見積もり時間
1週間以上
初心者へのやさしさ
20/100
issue の種類
機能追加
明瞭さ
説明が足りない
活発さ
停滞
技術スタック
r
領域
tooling

調査の方向性

app-examples/nested-modules-static-code-generation/app.R から始め、生成されたコードに反映されている callModule と callStaticModule の処理を調査します。実装ファイルやテストは指定されていないため、まず意図された生成構造と処理動作を明確にし、合意した設計とそれに対応する動作を完了の定義とします。

索引モデルが issue の本文から書いたものです。

説明

enhancement help wanted

A long follow-up to #1 and #2 to discuss handling of callModule calls.

Using the nested shiny modules example app, the code it generates looks like this at the moment (below).

It's not particularly pretty, even by automatically generated code standards. It requires wrapping the output list and return result of the callModule call in an additional class structure and then using special accessor functions to extract the various components.

library(scriptgloss)
library(shiny)
library(dplyr)
library(ggplot2)
my_data <- ggplot2::mpg
scatterPlot <- function(data, cols) ggplot(data, aes_string(x = cols[1], y = cols[2])) + geom_point(aes(color = selected_)) + scale_color_manual(values = c("black", "#66D65C"), guide = FALSE)
linkedScatter <- function(input, output, session, data, left, right) {
    uniquesTable <- function(input, output, session, data, col) {
        filteredData <- function() {
            data() %>% dplyr::filter(selected_) %>% .[[col()]]
        }
        output$table <- function() {
            table(filteredData())
        }
        uniques <- function() {
            unique(filteredData())
        }
        .return <- uniques
        return(structure(output, return = .return, submodules = structure(list(), .Names = character(0)), class = c("scriptgloss_module", "list")))
    }
    uniques_table <- uniquesTable(input = structure(list(), .Names = character(0)), output = list(), session = NULL, data = dataWithSelection, col = function() right()[[1]])
    u <- callStaticModule(uniques_table)
    dataWithSelection <- function() {
        brushedPoints(data(), input$brush, allRows = TRUE)
    }
    output$plot1 <- function() {
        scatterPlot(dataWithSelection(), left())
    }
    output$plot2 <- function() {
        scatterPlot(dataWithSelection(), right())
    }
    output$uniques <- function() {
        paste("Unique Values:", paste(as.character(u()), collapse = ", "))
    }
    .return <- dataWithSelection
    return(structure(output, return = .return, submodules = list(uniques_table = uniques_table), class = c("scriptgloss_module", "list")))
}
scatters <- linkedScatter(input = structure(list(), .Names = character(0)), output = list(), session = NULL, data = function() my_data, left = function() c("cty", "hwy"), right = function() c("drv", "hwy"))
df <- callStaticModule(scatters)
sprintf("%d observation(s) selected", nrow(dplyr::filter(df(), selected_)))
主要言語
R
スター
10
フォーク
2
30日以内にマージされた PR はありません

環境構築

このプロジェクトには開発コンテナ、Dockerfile、コントリビューションガイドがありません。まず README を読み、一般的な手順ははじめてのコントリビューションガイドを参照してください。

はじめの一歩

  1. issue を最後まで読み、次にプロジェクトのコントリビューションガイドを読みます。
  2. 着手することを issue にコメントします — 二人が同じ作業をするのを防げます。
  3. リポジトリをフォークし、ブランチを切って変更します。
  4. issue 番号を参照したプルリクエストを送ります。

dgkf/scriptgloss のほかの issue

dgkf/scriptgloss の issue をすべて見る

似ている issue

R の issue をもっと見る

新しい issue をメールで受け取る

初心者向けの GitHub issue を短くまとめたダイジェスト。