Question

对不起，我是新来的，试图解决现有的问题，但无法得到我的问题的答案。

我正在尝试使用闪亮的应用程序，我允许用户使用侧面板中的选择输入窗口小部件选择两个列名称，然后使用当前加载的我选择的数据集中的这两列显示条形图环境。问题是我的数据集将所有列都作为分类字符向量，因此首先我必须使用table命令创建一个两列表。所以我需要从输入中获取名称并在table命令中使用它，但它没有发生。

我正在附加我的数据集，即ui.r和server.r。

这是存档的链接。 https://drive.google.com/file/d/0B3cafW7J7xSfQ2xuc04xQlJjRGc/edit?usp=sharing

非常感谢任何帮助。

感谢..

Answer 1

我使用了pageWithSidebar用户界面，但您可以更改为流畅的用户界面。添加了直方图

UI.R

    library(shiny)
shinyUI(pageWithSidebar(
  headerPanel("Road Accident Analysis"),                

  sidebarPanel(
    selectInput(inputId="cname1",choices=names(smpl),label="Variable1"),

    selectInput(inputId="cname2",choices=names(smpl),label="Variable2")
  ),                              

  mainPanel(                                   
    plotOutput("myplot")
  )
))

server.r

  smpl <-read.csv("smpl.csv")
shinyServer(function(input, output) {
  output$myplot<-renderPlot({
   # my<-input$cname1
   # counts<-table(smpl$my)
    #View(counts)
    hist(smpl$X1st_Road_Number)

  })

})

如何在服务器中的闪亮应用程序中使用列名输入？

1 个答案: