R Shiny：モジュールに反応性の値を渡す問題

Question

これはかなり簡単ですが、期待通りに動作しません。私がしようとしているのは、メインサーバの機能からモジュールに反応要素を渡す際に「最初の光」を得ることだけです。このおもちゃの例のポイントは簡単です：ユーザはtextInput（）ボックスに何かを入力し、その値は2つのverbatimTextOutput（）ボックスに表示されます。ユーザーが入力した内容を表示するために両方のボックスを探していますが、モジュールボックスは表示されません。これは、モジュールがパラメータを適切に受信していないことを示しています。私は間違いを見ません。ありがとう！

library(shiny) 

ui <- function(request) { 
    fluidPage(
     column(12, textInput("par", "Parameter", value = "")), 
     column(12, parametersMDUI(0)), 
     column(12, verbatimTextOutput("view", placeholder = TRUE)) 
     ) 
} 

server <- function(input, output, session) { 
    param <- reactive({ input$par }) 
    callModule(parametersMDServer, 0, param) 
    output$view <- renderText({ param() }) 
} 


parametersMDUI <- function(id) { 
    ns <- NS(id) 

    tags$div(
     column(12, verbatimTextOutput("symbolName", placeholder = TRUE)), 
     id = ns('parametersMDui') 
    ) 
} 


parametersMDServer <- function(input, output, session, param) { 
    ns = session$ns 

    output$symbolName <- renderText({ param }) 
} 

shinyApp(ui = ui, server = server, enableBookmarking = "server") 

Answer 1

あなたのコードでtags$div(..., id = "my_output_id")を使用して、renderUIでのdivにアクセスしようとしたように思えますか？これは動作しません。 「標準」を使用してください。

# server side 
output$my_output_id <- renderUI({ ... }) 

# client side 
uiOutput("my_output_id") 

それ以外はparametersMDUIにns関数を使用するのを忘れてしまった。エラーが繰り返され、実際に自分自身を見つけ出すことができる必要があるので、私はあなたのコードの固定バージョンをもう投稿しません。