Question

我正在论文工作中开发一个闪亮的页面。我想知道从一个逗号分隔文件中，我如何在R闪亮中为多个y轴提供多个列作为输入。我正在尝试使用复选框组输入。如果还有其他方式，请告诉我。请帮助我，我已经陷入困境。提前谢谢。

Answer 1

我不确定你的问题。但是，如果我已正确理解，您希望用户选择数据集的不同列。

执行此操作的方法是在ui中使用uiOutput，在服务器中使用selectizeInput。

我建议您在闪亮的网站上阅读这些内容。

下面的代码不是我自己的，但是我忘记了我从哪里拿了它，因为它是我电脑上的文件，所以我为缺乏参考而道歉。这是一个示例，它允许用户选择数据表中的哪些列显示在数据表中。

我猜你在这种情况下会使用这种方法进行子集化，然后渲染你的图。

#DRAG AND DROP

library(shiny)  
library(DT)

dat <- mtcars

ui <- shinyUI(fluidPage(
  sidebarLayout(
    sidebarPanel(
      uiOutput("ui_view_vars")
),
mainPanel(
  tabPanel("View", DT::dataTableOutput("dataviewer"))
)
   )
 ))

 server <- shinyServer(function(input, output) {

   output$ui_view_vars <- renderUI({
vars <- colnames(dat)


selectizeInput("view_vars", "Select variables to show:", choices  = vars,
               selected = vars, multiple = TRUE,
               options = list(plugins = list('remove_button', 'drag_drop')))
   })

   output$dataviewer <- DT::renderDataTable({
if (is.null(input$view_vars)) return()
DT::datatable(dat[,input$view_vars])
   })
 })

 # Run the application  
 shinyApp(ui = ui, server = server)

多个列输入，用于绘制r gl

1 个答案: