inst/app-olsrr/logic/logic_upload.R

# importing data
inFile1 <- reactive({
    if(is.null(input$file1)) {
        return(NULL)
    } else {
        input$file1
    }
})

data1 <- reactive({
    if(is.null(inFile1())) {
        return(NULL)
    } else {
        read.csv(inFile1()$datapath,
            header = input$header,
            sep = input$sep,
            quote = input$quote)
    }
})


# importing data
inFile2 <- reactive({
    if(is.null(input$file2)) {
        return(NULL)
    } else {
        input$file2
    }
})

data2 <- reactive({
    if(is.null(inFile2())) {
        return(NULL)
    } else {
        ext <- tools::file_ext(inFile2()$name)

        file.rename(inFile2()$datapath,
                    paste(inFile2()$datapath, ext, sep="."))

        readxl::read_excel(
          path = paste(inFile2()$datapath, ext, sep="."),
          sheet = input$sheet_n
        )
    }
})

# importing data
inFile3 <- reactive({
    if(is.null(input$file3)) {
        return(NULL)
    } else {
        input$file3
    }
})

data3 <- reactive({
    if(is.null(inFile3())) {
        return(NULL)
    } else {
        jsonlite::fromJSON(inFile3()$datapath)
    }
})


# importing data
inFile4 <- reactive({
    if(is.null(input$file4)) {
        return(NULL)
    } else {
        input$file4
    }
})

data4 <- reactive({
    if(is.null(inFile4())) {
        return(NULL)
    } else {
         haven::read_sas(inFile4()$datapath)
    }
})


inFile5 <- reactive({
    if(is.null(input$file5)) {
        return(NULL)
    } else {
        input$file5
    }
})

data5 <- reactive({
    if(is.null(inFile5())) {
        return(NULL)
    } else {
         haven::read_sav(inFile5()$datapath)
    }
})


inFile6 <- reactive({
    if(is.null(input$file6)) {
        return(NULL)
    } else {
        input$file6
    }
})

data6 <- reactive({
    if(is.null(inFile6())) {
        return(NULL)
    } else {
         haven::read_stata(inFile6()$datapath)
    }
})

inFile7 <- reactive({
    if(is.null(input$file7)) {
        return(NULL)
    } else {
        input$file7
    }
})

data7 <- reactive({
    if(is.null(inFile7())) {
        return(NULL)
    } else {
         readRDS(inFile7()$datapath)
    }
})


observe({
  updateSelectInput(
    session,
    inputId = 'sel_data',
    label = '',
    choices = c(input$file1$name, input$file2$name, input$file3$name,
      input$file4$name, input$file5$name, input$file6$name, input$file7$name),
    selected = ''
  )
})

ext_type <- reactive({
    ext <- tools::file_ext(input$sel_data)
})


# choosing sample data
sampdata <- reactiveValues(s = NULL)

observeEvent(input$german_data, {
  data("GermanCredit")
  sampdata$s <- GermanCredit
})

observeEvent(input$iris_data, {
  sampdata$s <- iris
})

observeEvent(input$mtcars_data, {
  sampdata$s <- descriptr::mtcarz
})

observeEvent(input$hsb_data, {
  sampdata$s <- inferr::hsb
})

observeEvent(input$mpg_data, {
  sampdata$s <- mpg
})

observeEvent(input$diamonds_data, {
  sampdata$s <- diamonds
})

uploadata <- reactiveValues(t = NULL)

observeEvent(input$submit_seldata, {

  if (ext_type() == 'csv') {
    uploadata$t <- data1()
  } else if (ext_type() == 'xls') {
    uploadata$t <- data2()
  } else if (ext_type() == 'xlsx') {
    uploadata$t <- data2()
  } else if (ext_type() == 'json') {
    uploadata$t <- data3()
  } else if (ext_type() == 'sas7bdat') {
    uploadata$t <- data4()
  } else if (ext_type() == 'sav') {
    uploadata$t <- uploadata$t <- data5()
  } else if (ext_type() == 'dta') {
    uploadata$t <- data6()
  } else {
    uploadata$t <- data7()
  }

})

observeEvent(input$use_sample_data, {
  uploadata$t <- sampdata$s
})


observeEvent(input$use_sample_data, {
  updateNavbarPage(session, 'mainpage', selected = 'tab_trans')
  updateNavlistPanel(session, 'navlist_trans', 'tab_transform')
})

observeEvent(input$submit_seldata, {
  updateNavbarPage(session, 'mainpage', selected = 'tab_trans')
  updateNavlistPanel(session, 'navlist_trans', 'tab_transform')
})

observeEvent(input$csv2datasrc, {
  updateNavbarPage(session, 'mainpage', selected = 'tab_upload')
  updateNavlistPanel(session, 'navlist_up', 'tab_datasources')
})

observeEvent(input$csv2datatrans, {
  updateNavbarPage(session, 'mainpage', selected = 'tab_trans')
  updateNavlistPanel(session, 'navlist_trans', 'tab_seldata')
})

observeEvent(input$excel2datasrc, {
  updateNavbarPage(session, 'mainpage', selected = 'tab_upload')
  updateNavlistPanel(session, 'navlist_up', 'tab_datasources')
})

observeEvent(input$excel2datatrans, {
  updateNavbarPage(session, 'mainpage', selected = 'tab_trans')
  updateNavlistPanel(session, 'navlist_trans', 'tab_seldata')
})

observeEvent(input$json2datasrc, {
  updateNavbarPage(session, 'mainpage', selected = 'tab_upload')
  updateNavlistPanel(session, 'navlist_up', 'tab_datasources')
})

observeEvent(input$json2datatrans, {
  updateNavbarPage(session, 'mainpage', selected = 'tab_trans')
  updateNavlistPanel(session, 'navlist_trans', 'tab_seldata')
})

observeEvent(input$stata2datasrc, {
  updateNavbarPage(session, 'mainpage', selected = 'tab_upload')
  updateNavlistPanel(session, 'navlist_up', 'tab_datasources')
})

observeEvent(input$stata2datatrans, {
  updateNavbarPage(session, 'mainpage', selected = 'tab_trans')
  updateNavlistPanel(session, 'navlist_trans', 'tab_seldata')
})

observeEvent(input$spss2datasrc, {
  updateNavbarPage(session, 'mainpage', selected = 'tab_upload')
  updateNavlistPanel(session, 'navlist_up', 'tab_datasources')
})

observeEvent(input$spss2datatrans, {
  updateNavbarPage(session, 'mainpage', selected = 'tab_trans')
  updateNavlistPanel(session, 'navlist_trans', 'tab_seldata')
})

observeEvent(input$sas2datasrc, {
  updateNavbarPage(session, 'mainpage', selected = 'tab_upload')
  updateNavlistPanel(session, 'navlist_up', 'tab_datasources')
})

observeEvent(input$sas2datatrans, {
  updateNavbarPage(session, 'mainpage', selected = 'tab_trans')
  updateNavlistPanel(session, 'navlist_trans', 'tab_seldata')
})

observeEvent(input$rds2datasrc, {
  updateNavbarPage(session, 'mainpage', selected = 'tab_upload')
  updateNavlistPanel(session, 'navlist_up', 'tab_datasources')
})

observeEvent(input$rds2datatrans, {
  updateNavbarPage(session, 'mainpage', selected = 'tab_trans')
  updateNavlistPanel(session, 'navlist_trans', 'tab_seldata')
})

observeEvent(input$welcomebutton, {
  updateNavbarPage(session, 'mainpage', selected = 'tab_upload')
})

Try the xplorerr package in your browser

Any scripts or data that you put into this service are public.

xplorerr documentation built on Feb. 28, 2019, 5:05 p.m.