2015-04-01 17 views
1

我写了一个R宏,它将数据集转换为更易读的格式。它是完整的,并已在多个数据集上进行过测试,因此我现在决定编写一个GUI来使用Shiny实现此代码。以闪亮的方式显示来自源函数的表输出

我的UI代码似乎正在工作。

shinyUI(fluidPage(
    titlePanel("DATASET CONVERSION"), 

    sidebarLayout(
     fileInput("filein", label = h2("Select a file to convert.")), 
     submitButton("Submit") 
       ), 
    mainPanel(
     tableOutput("Dataset") 
    ) 
) 
) 

然而服务器似乎没有被产生在主面板中的任何输出

source("Full Code.R") 
shinyServer(function(input, output) { 

    input$filein 

    output$Dataset <- renderTable({ 
    OUTPUT 
    }) 
}) 

我的源代码(全Code.R)已经过测试,是完全可操作。它需要一个名为INPUT的输入数据集,然后在代码后面,将转换后的数据集分配到名为OUTPUT的全局环境。由于保密原因,我无法透露数据集,但这是任意数据集可以显示的任意问题。

如果有人能发现我一直在犯的任何错误,请告诉我。

回答

2

随着你闪亮的应用程序正在运行,有光泽的需求来更新服务器的一部分,这就是为什么你会把你的输入$ FILEIN在反应功能,您可以使用它为你的输出:

shinyServer(功能(输入,输出){

outputdf <- reactive({ input$filein 
})  
output$Dataset <- renderTable({ 
    outputdf() 
}) 

}

对反应性信息:

http://shiny.rstudio.com/tutorial/lesson6/