Htykuut

Good morning and Happy Friday!
My issue are:

a) The example to extract cell content using mtcars is not working in my App, because when you click the cell, it gives you the value to the left.
b) I cannot get it to display the name of the column of the cell you clicked.

I am rendering these into a "summary box". Please click on the row 1 of column drat and then on row 1 of column wt. You will see what I am talking about.

Just one thing: My real app is like a school schedule, where the 1st column is Time. I don't need to extract the time as the people will see the time but not click on it. People will click on the "subjects" under colnames M-F. That's why I thought about adding 1 to the input$ing_table_cells_selected[2], since 2 is the column component and DT starts indexing at 0.

App is on "English" Tab.

Thank you very much! I appreciate any help you can give, as I have spent hours researching but it is not quite working.

## libraries 

    library(shinydashboard)

    library(shiny)

    library(data.table)

    library(dplyr)

    library(DT)





ui=dashboardPage(



  dashboardHeader(title = "App"),



  dashboardSidebar(

    sidebarMenu(

      menuItem("Español", tabName = "espanol", icon = icon("laptop")),

      menuItem("English", tabName = "ingles", icon = icon("print"))

    )),





  dashboardBody(

    tabItems(



      tabItem(tabName = "ingles",

              h3("Data", style="color:DodgerBlue;text-align:center;font-family:Palatino Linotype;padding:0px;margin-top:0px;"),



              fluidRow(



                DT::dataTableOutput("ing_table"),

                box(title = "Summary of Activities", status = "primary", solidHeader = TRUE,collapsible = TRUE,

                    DT::dataTableOutput("summary")

                )







              )))))





## SERVER SIDE ##########



server <- function(input, output) {



  ## using mtcars set as a example

  output$ing_table= DT::renderDataTable(mtcars, options = list(searching = FALSE,bInfo=0,scrollX = TRUE, pageLength = 5), rownames=FALSE,selection = list(target = "cell"), server = FALSE)



  # code to extract the cell value and make it reactive to feed output$summary

  # I used "cell[2]" to access the column index and add 1, since in DT column index starts at 0 and I need the values starting col 1, not 0

  reserved_act= reactive({

    cell <- input$ing_table_cells_selected

    data=data.frame(Values=mtcars[cell],Column_Names=colnames(mtcars[cell[2]+1]))

    data

  })



  observeEvent(input$ing_table_cells_selected, {



    output$summary = renderDataTable(reserved_act(), options = list(searching = FALSE,bInfo=0,scrollX = TRUE, paging=FALSE), rownames=FALSE)



  })





}



shinyApp(ui, server)