RHandsontable - renderUI Mapping

I'm wanting to show an HoT table per slicing factor in shiny, from a dataset that has dynamic slices. Below is my best attempt to achieve this, but the output is a duplicated table. You can see how everything looks correct from the split data frames in the print out, but it appears RHandsontable has an issue where it's only pointing to the last HoT created in the map.

Any idea how to achieve showing the distinct dataframes?

ui <- fluidPage(


server <- function(input, output) {
  mtcars$slc <- sample(c('aaa','bbb'),nrow(mtcars),replace=TRUE)
  df <- mtcars
  getSlice <- function(df_tmp,slca){
    df_tmp <- df_tmp %>% filter(slc==slca)
  output$tables <- renderUI({
    slices <- unique(df$slc)
    input_dfs <- map(slices,~getSlice(df,.x))
    for(i in 1:length(slices)){
      print(input_dfs[[i]]) # proof that there are two distinct data 
                            #  frames going into renderRHandsontable()
      output[[slices[i]]] <- renderRHandsontable(rhandsontable(input_dfs[[i]]))
    out <- map(slices,function(x){
    print(out) # div ids are correctly distinct, but the tables that show are not!

shinyApp(ui = ui, server = server)

Output - all 'aaa' duplicates...


Using local() in the for loop achieves the desired result. See this answer for more detail...

This topic was automatically closed 7 days after the last reply. New replies are no longer allowed.

If you have a query related to it or one of the replies, start a new topic and refer back with a link.