通过将CheckboxInput与Shiny App和R一起使用来删除数据

Question

我对这个话题很陌生。 我想将闪亮的应用程序与R一起使用以分析我的数据。 这是我的ui：R

ui<-(fluidPage(  
titlePanel("My project"), 
sidebarLayout(
sidebarPanel(
textInput("caption", "Caption:", "Data Summary"),

selectInput("dataset", "Choose a dataset:", 
              choices = c("exp1","exp2", "exp3")),


checkboxInput(inputId = "notgr",
                label = strong("Delete superflous data"),
                value = FALSE),

      ),
mainPanel(
  h3(textOutput("caption", container = span)),
       plotOutput("strip"),
               ))))

这是服务器

    library(shiny)
    library(datasets)

server<-(function(input, output,clientData, session) {
 df<-read.table("/some data.txt",header=T)
 df_new<-tag[tag$factor2>0.3,] #should only use data with factor  > 0.3 for plotting

 datasetInput <- reactive({
    switch(input$dataset,
           "exp1" = df,
           "exp1" = df2,
           "exp1" = df3)
       })


  output$strip<-renderPlot({
    stripchart(data=datasetInput(),factor2~tag,vertical=TRUE,method="jitter",pch=19,col="red")
    if (input$notgr) {
       df<-renderTable({df_new})
    } 

      })

 shinyApp(ui=ui,server=server)

我的想法是：如果激活了（inputId）“ notgr”，则会创建一个新的data.frame，其中factor2的值> 0.3

显然，我拥有的版本（带有if）不起作用。 没有错误，但绘制了所有数据。 我使用时也一样

if (input$notgr) {
           df<-df[df$factor2>0.3,]
}

要么

 if (input$notgr) {
               datasetInput()<-datasetInput()[datasetInput()$factor2>0.3,]
}

非常感谢你的帮助

Answer 1

您可以执行以下操作：

library(shiny)
library(datasets)

ui <- shinyUI( fluidPage( 
    titlePanel("My project"),
    sidebarLayout(
      sidebarPanel(
        textInput("caption", "Caption:", "Data Summary"),
        selectInput("dataset", "Choose a dataset:", 
                    choices = c("exp1","exp2", "exp3")),
        checkboxInput(inputId = "notgr",
                      label = strong("Delete superflous data"),
                      value = FALSE)
      ),
      mainPanel(
        h3(textOutput("caption", container = span)),
        plotOutput("strip")
      )
    )
  ))

server <- shinyServer(function(input, output,clientData, session) {
  # Mockup data
  df  <- data.frame("tag"=runif(100, min=0,    max=0.4),"factor2"=runif(100, min=0, max=0.40))
  df2 <- data.frame("tag"=runif(100, min=0.2,  max=0.6),"factor2"=runif(100, min=0.2, max=0.6))
  df3 <- data.frame("tag"=runif(100, min=0.25, max=0.8),"factor2"=runif(100, min=0.25, max=0.8))

  datasetInput <- reactive({
    switch(input$dataset,
           "exp1" = df,
           "exp2" = df2,
           "exp3" = df3)
  })

  # Listen for events, if checkbox is checked or data set switched, run renderData
  observeEvent(input$notgr,{
    renderData()
  })
  observeEvent(input$dataset,{
    renderData()
  })

  # Function to draw data for client
  renderData <- function(){
    dat <- datasetInput()
    if (input$notgr) {
      dat <- dat[dat$factor2 > 0.3 ,]
    }
    output$strip<-renderPlot({
      stripchart(data=dat, factor2~tag, vertical=TRUE, method="jitter", pch=19, col="red")
    })
  }

})

shinyApp(ui=ui,server=server)