2016-10-05 7 views
0

私は共通の日付セレクタを共有したいが、グラフを別々のモジュールに入れたいと思ういくつかのグラフがある光沢のあるダッシュボードページを持っています。私はShinyモジュール内でどのようにリアクティブパラメータを使用しますか?

あたりの反応を使用して、オブジェクトに沿って渡す必要があり、私は私がcallModuleを使用するときにすることを理解

モジュールは、モジュールの一部ではない入力にアクセスする必要がある場合は、含むアプリは渡す必要があります反応式(すなわち反応性(...))に包まれた入力値:

callModule(myModule, "myModule1", reactive(input$checkbox1))

しかし、私は反対側に何をすべきか理解していません。 UIの

:サーバーで

graphRoFCUI("RoFCNameSpace"), 
dateRangeInput("dateRange", "Select Date Range:" 
          , start = max("2016-6-27", Sys.Date()-366) 
          , end = Sys.Date() 
          , min = "2016-6-27" 
          , max = Sys.Date() 
      ) 

私module.Rで

callModule(graphRoFC, id = "RoFCNameSpace", conn, reactive(input$dateRange))

graphRoFCUI <- function(id) { 
    ns <- NS(id) 
    plotlyOutput(outputId = ns("RoFCOverTime")) 
} 

... 
graphRoFC <- function(input, output, session, conn, dateRange) { 
    limitDateRangePercentRoFCDF <- reactive({ 
    PercentRoFCDF.dateLimited <- subset(PercentRoFCDF, TicketLocalCreatedDate > dateRange[1] & TicketLocalCreatedDate < dateRange[2]) 
    return(PercentRoFCDF.dateLimited) 
    }) 

... 
} 

私は何を得ることである:

Warning: Error in $: object of type 'closure' is not subsettable 
Stack trace (innermost first): 
    80: as.Date 
    79: ggplotly [sdesc.R#43] 
    78: func 
    77: origRenderFunc 
    76: output$RoFCNameSpace-RoFCOverTime 
    1: runApp 

答えて

2

完全に再現可能なコードを見ずに言うのは難しいです。しかし、エラーがある場合はいつでもobject of type 'closure' is not subsettableは、あなたが()を使用できなかった反応性のあるオブジェクトを意味します。

PercentRoFCDF.dateLimited <- subset(PercentRoFCDF, TicketLocalCreatedDate > dateRange[1] & TicketLocalCreatedDate < dateRange[2])

それをやった PercentRoFCDF.dateLimited <- subset(PercentRoFCDF, TicketLocalCreatedDate > dateRange()[1] & TicketLocalCreatedDate < dateRange()[2])

+0

へ:私の推測では、この行を変更する必要があるということです!どうもありがとうございます! – coopermj

関連する問題