反応入力ベクトルが奇妙に光沢のあるモジュールで引用符を使用しています

Question

前提条件： Shiny AppがUI出力を含むモジュールを使用しています。 UI出力自体には任意の入力が含まれます（例：textInput）。 （入力UIOutputのとの）すべてのIDがns()

観察を使用して生成されます。私inputベクターは、内部の引用で保存されます。それは問題ありませんが、私はjavascript（conditionalInput(condition='input.myModule-myInputtest=="someText"')）の入力を使用できません。 input$'mymodule'はinput$myModuleと呼ばれていますが、どうすればいいですか？それはバグですか、何か間違っていますか？

事前に感謝し、よろしく

最小例：自分の質問に答えるための

library(shiny) 

ui <- fixedPage(
    h2("Module example"), myModuleUI("myModule"), verbatimTextOutput("summary") 
) 
server <- function(input, output, session) { 
    callModule(myModule, "myModule", stringsAsFactors=F) 
    output$summary <- renderPrint({ reactiveValuesToList(input) }) 
} 
shinyApp(ui, server) 

myModuleUI <- function(id) { 
    ns <- NS(id) 
    uiOutput(ns("myInput")) 
} 
myModule <- function(input, output, session, stringsAsFactors) { 
    output$myInput <- renderUI({ textInput(ns("myInputtest"), "A Text Input") }) 
} 

Answer 1

申し訳ありませんが、私は、これは他の人が遭遇するものだと思います。

光沢のあるモジュールがない状況で使用できるドット表記の代わりに、input['myModule-myInputtest']を使用してjavascriptの入力を使用することができます（つまり、条件付き条件）。

Answer 2

あなたは次の操作を行う必要があります。

* myModuleUI内で使用タグリスト（）

*注

のmymodule

内NS（）を使用しないでください（

NS） callModule（）から渡された文字列をidに連結します。例えばNS（ "myInputtest"）は "MyModuleという-myInputtest" を与える

library(shiny) 

## Module UI ---- 
myModuleUI <- function(id) { 
    ns <- NS(id) 
    # taglist should be added here 
    tagList(
    uiOutput(ns("myInput")) 
) 
} 

## Module Server ---- 
myModule <- function(input, output, session, stringsAsFactors) { 
    output$myInput <- renderUI({ 
    textInput("myInputtest", 
       "A Text Input") 
    }) 
} 

## UI ---- 
ui <- fixedPage(
    h2("Module example"), 
    myModuleUI("myModule"), 
    verbatimTextOutput("summary") 
) 

## Server ---- 
server <- function(input, output, session) { 
    callModule(myModule, "myModule", stringsAsFactors=F) 
    output$summary <- renderPrint({reactiveValuesToList(input)}) 
} 

# Run the application --------------------------------------------------------- 
shinyApp(ui = ui, server = server) 

Answer 3

は、あなたは非常に興味深いエッジケースを発見しました。幸運にも、あなたがすでに発見したように、inputの子供たちにアクセスする別の方法があります（点の代わりに角かっこを使います）。 futreで、この時につまずくことが誰のために、ここでの条件付きパネルを含め、最小限の作業例です：

library(shiny) 

myModuleUI <- function(id) { 
    ns <- NS(id) 
    tagList(
    uiOutput(ns("myInput")), 
    conditionalPanel(
     condition = "input['myModule-myInputtest'] === 'hello'", 
     # condition = "console.log(input['myModule-myInputtest'])", # useful for debugging 
     sliderInput(ns("breakCount"), "Break Count", min=1, max=1000, value=10) 
    ) 
) 
} 
myModule <- function(input, output, session, stringsAsFactors) { 
    output$myInput <- renderUI({ 
    textInput(session$ns("myInputtest"), "A Text Input") 
    }) 
} 

ui <- fixedPage(
    h2("Module example"), 
    myModuleUI("myModule"), 
    verbatimTextOutput("summary") 
) 

server <- function(input, output, session) { 
    callModule(myModule, "myModule", stringsAsFactors=F) 
    output$summary <- renderPrint({ reactiveValuesToList(input) }) 
} 

shinyApp(ui, server)