R/create_DB.R

In kismet303/lopo3000: LoPo 3000 Experimental package using RShiny for interactive LoPo

#function to create GO button for each row
shinyInput <- function(FUN, len, id, ...) {
  inputs <- character(len)
  for (i in seq_len(len)) {
    inputs[i] <- as.character(FUN(paste0(id, i), ...))
  }
  inputs
}


#Get LOPO and studies info
# lopo_path= "/lopo_xls/YO39609_IMC_LoPO (v0.1).xls"
# M_titles <- readxl::read_excel(lopo_path, sheet="List of Planned Outputs (SMT)",range = "B1:B3")
# M_title <-toupper(M_titles[2,1])
# dff <-readxl::read_excel(lopo_path, sheet="List of Planned Outputs (SMT)",skip = 6)
# dff$Study <- toupper(M_titles[2,1])
# dff$id <- 1:nrow(dff)
# 
# len_dff<-dim(dff)[1]

#modify lopo for Shiny features
#dff$Titles <-   paste0("<a href='https://shiny.roche.com/3.5.3/users/remusatp/Tecentriq_Dashboard/'>",dff$Titles,"</a>")
#dff$Run = shinyInput(actionButton, len_dff, 'button_', label = "Run", onclick = 'Shiny.onInputChange(\"select_button\",  this.id)' )
# dff$Select = "Select"
# dff$Action = "Action"
# 
# dff0<-dff
# dff<-dff0[c(dim(dff)[2], 1:(dim(dff)[2]-1))]
# 
# dff<-dff[1:25,]
# 
# dff[is.na(dff)] <- ''
# 
# library(DBI)


####Lopo as a SQL database  ####
# con <- dbConnect(RSQLite::SQLite(), "YO39609")
# dbCreateTable(con, "YO39609", dff)
# dbAppendTable(con, "YO39609", dff)
# dbReadTable(con, "YO39609")
# dbDisconnect(con)
################################