シャイニー反応入力値 - 示されないグラフ、エラーなし

Question

は数週間前、私はRでの反応について尋ねてきました - 輝いている、と私はまだナットをクラックするために管理していません。私が、反応性に関する記事の数百を読んで、非常識な私を運転しているが、私はちょうどそれを動作させることができません！

この私がこれまでに得たものである：

ui.R：

column(width = 3, 
box(
    title = "Pick a metric", 
     status = "primary", 
     width = 12, 
     height = 200, 
     solidHeader = FALSE, 
     collapsible = FALSE, 
     selectInput("value", "Metric:", 
        c("Pages/Session" = "pageviewsPerSession", 
         "Avg. Session Duration" = "avgSessionDuration")) 
            ) ) 
    column(width = 9, 
           box(
           title = "Title", 
           status = "primary", 
           width = 12, 
           height = 950, 
           solidHeader = FALSE, 
           collapsible = FALSE, 
              plotlyOutput("Scatter1") 

はserver.R：

output$Scatter1 <- renderPlotly({ 

datasetInput <- reactive({ 
    switch(input$value, 
    "Pages/Session" = SourcesDetail$pageviewsPerSession, 
    "Avg. Session Duration" = SourcesDetail$avgSessionDuration) 
}) 

p <- plot_ly(SourcesDetail, x = datasetInput(), y = SourcesDetail$visits, text = paste("Source/Medium: ", SourcesDetail$sourceMedium), 
     mode = "markers", color = SourcesDetail$medium, opacity = SourcesDetail$sourceMedium, marker = list(size = 15)) 

}) 

エラーメッセージはありませんが、中に何のグラフは、単に存在しません私の出力。

任意の助けいただければ幸いです！

Answer 1

pに出力を割り当てますが、pは出力しません。 p <-を削除するか、renderPlotlyの最後に単一pを入れて、次のいずれか

のいずれか

output$Scatter1 <- renderPlotly({ 

    datasetInput <- reactive({ 
    switch(input$value, 
      "Pages/Session" = SourcesDetail$pageviewsPerSession, 
      "Avg. Session Duration" = SourcesDetail$avgSessionDuration) 
    }) 

    plot_ly(SourcesDetail, x = datasetInput(), y = SourcesDetail$visits, text = paste("Source/Medium: ", SourcesDetail$sourceMedium), 
       mode = "markers", color = SourcesDetail$medium, opacity = SourcesDetail$sourceMedium, marker = list(size = 15)) 

}) 

または

output$Scatter1 <- renderPlotly({ 

    datasetInput <- reactive({ 
    switch(input$value, 
      "Pages/Session" = SourcesDetail$pageviewsPerSession, 
      "Avg. Session Duration" = SourcesDetail$avgSessionDuration) 
    }) 

    p <- plot_ly(SourcesDetail, x = datasetInput(), y = SourcesDetail$visits, text = paste("Source/Medium: ", SourcesDetail$sourceMedium), 
       mode = "markers", color = SourcesDetail$medium, opacity = SourcesDetail$sourceMedium, marker = list(size = 15)) 
    p 
})