Question

server.ui

Client.List

我有一个相应的ui.r文件，它应该显示brush_info。但每当我尝试在图表中突出显示某个点时，我会收到一些错误，指出对象数据集不存在？这是为什么？它显然存在于一个循环中。为什么R会让数据集成为可用的数据帧成为障碍？

shinyServer(

function(input, output) {

plot <- eventReactive(input$button, {

if (input$gtype == "Time to Change") {

    dataset = subset(TDU, LBTEST == input$study, drop=FALSE)
    ggplot(dataset, aes_string(x= 'VISITNUM', y = 'LBBLCHGR' , col='factor(ARMAN)')) + 
      geom_line(data = dataset, aes_string(x='VISITNUM',y = 'LBBLCHGR' ,group='SUBJID')) +


    }

    else {

    dataset = subset(TDU, LBTEST == input$study, drop=FALSE)
    ggplot(dataset, aes_string(x = 'ARMCD', y = 'LBBLCHGR', col='factor(VISITNUM)')) + geom_line()

    }

output$plot <- renderPlot({
  plot() 

})

output$brush_info <- renderPrint({
  brushedPoints(dataset, input$plot_brush)
})

})

})

简单来说，我如何访问数据框或循环中嵌入的任何对象？

编辑：

这是我提出的解决方案。

shinyUI(fluidPage(titlePanel('Biomarker Comparison'),

fluidRow(column(12, plotOutput('plot', brush = brushOpts(id = "plot_brush"),  dblclick = "plot_dblclick"))),

fixedRow(column(3,selectInput('type', label='Select a Study',choices= c('', 'ADLB_TDU', 'ADLB_TDR', 'ADBM_TDR'))), column(3, uiOutput('selectUI'))),

fluidRow(column(3, radioButtons('gtype', label='Graph Type', choices = list('Dosage to Change', 'Time to Change'))) , column(3, uiOutput('UImeasure')), column(6, h4("Brushed points"),verbatimTextOutput("brush_info"))), 

actionButton('button', 'Draw Graph')

))

因此，我将数据帧放入反应函数，然后我将数据帧名称替换为生成它的函数。我不敢相信我之前没有尝过这个。

Shiny - Brushed数据集功能不起作用

0 个答案: