2

我是闪亮的新手，我正在尝试使用闪亮和闪亮的板来制作应用程序。我闪亮，我创建了一个用于上传 CSV 文件的操作按钮，之后我根据这个文件制作 ggplot。

问题：

  1. 我想在我的应用程序而不是 R 控制台中显示 csv 文件。
  2. 在执行操作作为绘图输入后，我找不到如何获取最终的 csv 文件。

我的数据集示例：

      A        B     Class
    50.00    90.00     A
    50.01    91.00     A
    50.05    91.05     B
    51.50    91.09     C
    51.09    90.20     D

用户界面

ui <- dashboardSidebar(
sidebarMenu(menuItem("choose",tabName = "choose")),
  menuItem("Plot",tabName = "Plot")
  body <- dashboardBody(
tabItems(
  tabItem(tabName = "choose",
          fluidRow(
          actionButton("select", "select"),
 ) 
 tabItem(tabName = "plot",
          fluidRow(
            box(plotOutput("plot"))))
 )

服务器.R

select <- function(){
dataframe <- read.table(file.choose(),header = TRUE, sep = "," 
,stringsAsFactors=FALSE)
attach(dataframe)

dataframe1 <- subset(dataframe, select = c(A,B))
dataframe2 <- dataframe %>% mutate(variance1 = var(A)) %>% 
mutate(variance2 = var(B))
return(print(dataframe2))
}

server <- function(input,output){
 observeEvent(
 input$select,{
  select()
 }
 output$plot <- renderPlot({
  pd <- input$dataframe2
  pd1 <- ggplot(pd, aes(y = A, x = B, colour = Class)) +geom_point() + 
print(pd1)
})
 shinyApp(ui,server)
4

0 回答 0