title: Existing file not being read/accessed/located by r
body: <p>I have a shiny app to plot a heatmap of the income and other aspects.</p>
  
  <pre><code>library(shiny)
  library(ggplot2)
  library(gplots)
  ui &lt;- fluidPage(
    titlePanel("Creating a database"),
    sidebarLayout(
      sidebarPanel(
        textInput("name", "Company Name"),
        numericInput("income", "Income", value = 1),
        numericInput("expenditure", "Expenditure", value = 1),
        dateInput("date", h3("Date input"),value = Sys.Date() ,min = "0000-01-01",
                  max = Sys.Date(), format = "dd/mm/yy"),
        actionButton("Action", "Submit"),#Submit Button
        actionButton("new", "New")),
  
      mainPanel(
        tabsetPanel(type = "tabs",
                    tabPanel("Table", tableOutput("table")),
                    tabPanel("Download",
                             textInput("filename", "Enter Filename for download"),   #filename
                             helpText(strong("Warning: Append if want to update existing data.")),
                             downloadButton('downloadData', 'Download'), #Button to save the file
                             downloadButton('Appenddata', 'Append')),#Button to update a file )
                    tabPanel("Plot", 
                             actionButton("filechoose", "Choose File"),
                             br(),
                             selectInput("toplot", "To Plot", choices =c("Income" = "inc1",
                                                                         "Expenditure" = "exp1",
                                                                         "Compare Income And 
                                                                         Expenditure" = "cmp1",
                                                                         "Gross Profit" = "gprofit1",
                                                                         "Net Profit" = "nprofit1",
                                                                         "Profit Lost" = "plost1",
                                                                         "Profit Percent" = "pp1",
                                                                         "Profit Trend" = "proftrend1"
                             )),
                             actionButton("plotit", "PLOT"),
                             plotOutput("Plot")),
                    tabPanel("Heatmap",
                             actionButton("combine","Combine"),
                             selectInput("ploth", "Plot Heatmap Of", choices =c("Income" = "inc1",
                                                                                "Expenditure" = "exp1",
                                                                                "Gross Profit" = "gprofit1",
                                                                                "Net Profit" = "nprofit1")),
                             actionButton("hplotit","Plot Heatmap"),
                             plotlyOutput("HeatPlot"),
                             plotlyOutput("Next")
                    )
        )
      )
  
    )
  )
  # Define server logic required to draw a histogram
  server &lt;- function(input, output){
    #Global variable to save the data
    Data &lt;- data.frame()
    Results &lt;- reactive(data.frame(input$name, input$income, input$expenditure,
                                   as.character(input$date),
                                   as.character(Sys.Date())))
  
    #To append the row and display in the table when the submit button is clicked
    observeEvent(input$Action,{
      Data &lt;&lt;- rbind(Data,Results()) #Append the row in the dataframe
      output$table &lt;- renderTable(Data) #Display the output in the table
    })
  
    observeEvent(input$new, {
      Data &lt;&lt;- NULL
      output$table &lt;- renderTable(Data)
    })
  
    observeEvent(input$filechoose, {
      Data &lt;&lt;- read.csv(file.choose()) #Choose file to plot
      output$table &lt;- renderTable(Data) #Display the choosen file details
    })
  
    output$downloadData &lt;- downloadHandler(
      filename = function() {
        paste(input$filename , ".csv", sep="")}, # Create the download file name
      content = function(file) {
        write.csv(Data, file,row.names = FALSE) # download data
      })
  
    output$Appenddata &lt;- downloadHandler(
      filename = function() {
        paste(input$filename, ".csv", sep="")}, 
      content = function(file) {
        write.table( Data, file=file.choose(),append = T, sep=',',
                     row.names = FALSE, col.names = FALSE) # Append data in existing
      })
  
    observeEvent(input$plotit, {
      inc &lt;- c(Data[ ,2]) 
      exp &lt;- c(Data[ ,3]) 
      date &lt;- c(Data[,4])
      gprofit &lt;- c(Data[ ,2]- Data[ ,3])
      nprofit &lt;- c(gprofit - (gprofit*0.06))
      z &lt;- as.numeric(nrow(Data))
      plost &lt;- gprofit - nprofit
      pp &lt;- (gprofit/inc) * 100
      proftrend &lt;- c(gprofit[2:z]-gprofit[1:(z-1)])
      slope = c(((proftrend[2:(z-1)]-proftrend[1:(z-2)])/1),0)
      y = input$toplot
      switch(EXPR = y ,
             inc = output$Plot &lt;- renderPlot(ggplot(data = Data, aes(x= Data[,4], y= inc))+
                                               geom_bar(stat = "identity",
                                                        fill = "blue")+xlab("Dates")+
                                               ylab("Income")+
                                               theme(axis.text.x = element_text(angle = 90))),
             exp = output$Plot &lt;- renderPlot(ggplot(data = Data, aes(x= Data[,4], y= exp))+
                                               geom_bar(stat = "identity",
                                                        fill = "red")+xlab("Dates")+
                                               ylab("Expenditure")+
                                               theme(axis.text.x = element_text(angle = 90))),
  
             cmp = output$Plot &lt;- renderPlot(ggplot(data = Data, aes(x= Data[,4]))+
                                               geom_line(aes(y= inc,group = 1, colour = "Income"))
                                             + geom_line(aes(y= exp,group =1, colour = "Expenditure"))+
                                               xlab("Dates")+ ylab("Income (in lakhs)")+
                                               scale_color_manual("",
                                                                  breaks = c("Income","Expenditure"),
                                                                  values = c(
                                                                    "Income"="green", "Expenditure"= "red"
                                                                  ))+
                                               theme(axis.text.x = element_text(angle = 90))),
  
             gprofit = output$Plot &lt;- renderPlot(ggplot(data = Data, aes(x= Data[,4], y= gprofit))+
                                                   geom_bar(stat = "identity",
                                                            fill = "blue")+xlab("Dates")+
                                                   ylab("Gross Profit (in lakhs)")+
                                                   theme(axis.text.x = element_text(angle = 90))),
  
             nprofit =  output$Plot &lt;- renderPlot(ggplot(data = Data, aes(x= Data[,4], y= nprofit))
                                                  +geom_bar(stat = "identity",
                                                            fill = "blue")+xlab("Dates")+
                                                    ylab("Net Profit (in lakhs)")+
                                                    theme(axis.text.x = element_text(angle = 90))),
  
             plost =  output$Plot &lt;- renderPlot(ggplot(data = Data, aes(x= Data[,4], y= plost))
                                                +geom_bar(stat = "identity",
                                                          fill = "blue")+xlab("Dates")+
                                                  ylab("Profit Lost (in lakhs)")+
                                                  theme(axis.text.x = element_text(angle = 90))),
  
             pp = output$Plot &lt;- renderPlot(ggplot(data = Data, aes(x= Data[,4], y= pp))+
                                              geom_bar(stat = "identity",
                                                       fill = "blue")+xlab("Dates")+
                                              ylab("Profit Percentage")+
                                              theme(axis.text.x = element_text(angle = 90))),
             proftrend = output$Plot &lt;- renderPlot(ggplot()+
                                                     geom_line(data = as.data.frame(date[2:z]),
                                                               aes(x= Data[c(2:z),4] , y= proftrend,
                                                                   group = 1, color = slope &gt; 0))+
                                                     xlab("Dates")+ ylab("Profit Trend")+
                                                     theme(axis.text.x = element_text(angle = 90))
             ))})
    observeEvent(input$combine, {
      Data &lt;&lt;- cbind(read.csv(file.choose()),read.csv(file.choose()),read.csv(file.choose()),read.csv(file.choose()))
      output$table &lt;- renderTable(Data)}) #Display the choosen file details
  
    observeEvent(input$hplotit, {
      inc1 &lt;- as.data.frame(cbind(Dummy1 = Data[,2],Dummy2 = Data[,7],Dummy3 = Data[,12], Dummy4 = Data[,17]))
      inc1 &lt;- as.matrix(inc1)
      exp1 &lt;- as.data.frame(cbind(Dummy1 = Data[,3],Dummy2 = Data[,8],Dummy3 = Data[,13], Dummy4 = Data[,18]))
      exp1 &lt;- as.matrix(exp1)
      gprofit1 &lt;- as.data.frame(cbind(Dummy1 = Data[,3] - Data[,2],
                                      Dummy2 = Data[,8] - Data[,7],
                                      Dummy3 = Data[,13] - Data[,12],
                                      Dummy4 = Data[,18] - Data[,17]))
      gprofit1 &lt;- as.matrix(gprofit1)
      nprofit1 &lt;- as.data.frame(cbind(Dummy1 = (Data[,3] - Data[,2]) - ((Data[,3] - Data[,2]) * 0.06),
                                      Dummy2 = (Data[,8] - Data[,7]) - ((Data[,8] - Data[,7]) * 0.10),
                                      Dummy3 = (Data[,13] - Data[,12]) - ((Data[,13] - Data[,12]) * 0.18),
                                      Dummy4 = (Data[,18] - Data[,17]) - ((Data[,18] - Data[,17]) * 0.22)))
      nprofit1 &lt;- as.matrix(nprofit1)
      date &lt;- as.character(Data[,4])
      h = input$ploth
      switch(EXPR = h ,
             inc1 = output$HeatPlot &lt;- renderPlotly( plot_ly(x = colnames(inc1), y = date, z = inc1, type = "heatmap", colorscale = "Earth")),
  
             exp1 = output$HeatPlot &lt;- renderPlotly( plot_ly(x = colnames(exp1), y = date, z = exp1, type = "heatmap", colors = colorRamp(c("red", "yellow")))),
  
             gprofit1 = output$HeatPlot &lt;- renderPlotly( plot_ly(x = colnames(gprofit1), y = date, z = gprofit1, type = "heatmap", colorscale="Greys")),
  
             nprofit1 = output$HeatPlot &lt;- renderPlotly( plot_ly(x = colnames(nprofit1), y = date, z = nprofit1, type = "heatmap")) 
      )
  
    })
  }
  
  # Run the application 
  shinyApp(ui = ui, server = server)
  </code></pre>
  
  <p>With the ui being like</p>
  
  <p><a href="https://i.stack.imgur.com/Fxii8.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/Fxii8.png" alt="enter image description here"></a></p>
  
  <p>Now when i open the app and try to plot the income the following error is shown</p>
  
  <pre><code>Error in getExportedValue: cannot open file '~/R/x86_64-pc-linux-gnu-library/3.4/viridisLite/data/Rdata.rdb': No such file or directory 
  </code></pre>
  
  <p>But when i try to plot the next item(expenditure) in the selectinput the heatmap appears witout any problem and it is pitch perfect of what is exactly needed.</p>
  
  <p><a href="https://i.stack.imgur.com/qu3HZ.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/qu3HZ.png" alt="enter image description here"></a></p>
  
  <p>Moreover when i check the file in the location it appears that the file is present</p>
  
  <blockquote>
    <p>/home/mrshekar/R/x86_64-pc-linux-gnu-library/3.4/viridisLite/data</p>
  </blockquote>
  
  <p>What is it that i am missing? Any particular package to extract that folder? Or is that file is supposed to be present somewhere else? Please help.</p>