Блестящий сервер и блестящие приложения

server <- function (input , output  )
{
    output$bar_plot <- renderPlot( 
        {   
            input$click
            inFile <- input$file1
            if (is.null(inFile))
               return(NULL)
            mydata <- read.csv(inFile$datapath)
            resources <-  factor (mydata$Resource.Name)
            stan <-  tapply (mydata$Standard.Hours,resources, sum , na.rm=TRUE)
            bil <-  tapply (mydata$Billable.Hours,resources, sum , na.rm=TRUE)
            bu <- bil*100 / stan
            mp <- barplot (bu,col=colors(27),las=2,yaxt="n",ylim=c(0,200),main="Billable      Utilization India-DSI")
            bu<- round(bu,2)
            text(mp, bu,labels=bu, pos = 3)
        }
    )
}

Это мой код server.r. Я создал кнопку действия с входным идентификатором "click", чтобы сгенерировать штриховую диаграмму, но график создается сразу после загрузки файла, не нажимая кнопку действия. Какие изменения я должен внести в код? Я пробовал использовать eventReactive, но результат остался прежним


r shiny shiny-server
person Akash Verma    schedule 12.02.2016    source источник

Ответы (1)


arrow_upward
1
arrow_downward

Вы должны использовать

shiny server <- function (input, output)
{
  plot <- eventReactive (input $click,
    {
       [code to develop plot]
    }
  )

output$bar_plot <- renderPlot ({ plot () })
}
person Benjamin    schedule 12.02.2016