#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)
################################
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.