Učitavanje tablice podataka

Odabirom opcije Choose Data File te klikom na gumb Browse… biramo mapu i datoteku u kojoj se nalaze podaci. Klikom na gumb Import data učitava se i prokazuje tablica podataka.

VAŽNO!

Podaci za statističko-grafičku analizu trebaju biti pripremljeni na sljedeći način:

• prvi stupac tablice s podacima sadrži jedinstvene oznake entiteta , odnosno entiteti ne smiju imati istu oznaku

• ostali stupci tablice s podacima sadrže podatke entiteta u varijablama

• oznake (kodovi) modaliteta kvalitativnih varijabli ne smiju biti brojevi

Datoteke s podacima mogu biti kreirane u:

• Comma Separated Values (.csv) ,

• Microsoft Excel Worksheet (.xlsx),

• LibreOffice Open Document Spreadsheet (.ods) i

• SPSS Statistics Data Document (.sav) formatu.

library(shiny)
library(bs4Dash)
library(DT)
library(datamods)

ui <- bs4DashPage(
  help = NULL,
  dark = TRUE,
  # Header
  header = dashboardHeader(
    title = bs4DashBrand(
      title = "R - STAT",
    )
  ),
  sidebar = bs4DashSidebar(
    disable = FALSE,
    width = "320px",
    skin = "dark",
    elevation = 4,
    collapsed = F,
    minified = F,
    bs4SidebarMenu(
      bs4SidebarMenuItem("Choose Data File", tabName = "data", icon = icon("folder-open"))
      )
  ),
  body = bs4DashBody(
                     tabItems(
                       # Import Data
                       tabItem(tabName = "data",
                               fluidRow(
                                 box(title = "Choose Data File",
                                     width = 3,
                                     collapsible = F,
                                     icon = icon("folder-open"),
                                     import_file_ui(
                                       id = "myid",
                                       preview_data = T,
                                       file_extensions = c(".csv", ".xls", ".xlsx", ".sav", ".ods"),
                                     )
                                 ),
                                 box(title = "View Data",
                                     width = 9,
                                     collapsible = F,
                                     maximizable = T,
                                     icon = icon("table-cells"),
                                     dataTableOutput("data")
                                 )
                            )
                    )
             )
      )
)
server <- function(input, output) {
  
  id <- import_file_server(
    id = "myid",
    btn_show_data = TRUE,
    show_data_in = "modal",
  )
  observeEvent(input$do, {
    dbWriteTable(conn = db, id$data(), name = id$name(), row.names = FALSE, overwrite = TRUE)
  })
  output$data <- renderDataTable({
    my_data <- id$data()
    n <- nrow(my_data)
    my_data %>% 
      DT::datatable (rownames = TRUE,
                     style = "bootstrap5",
                     class = "compact",
                     extensions = c("Buttons"),
                     options = list(pageLength = n, 
                                    dom = 'Bt', 
                                    buttons = 'copy'
                                    )
                    )
  })
}
shinyApp(ui, server)