Apply a recursive function to a nested list while preserving the classes of sublists

Question

I have a nested list called inputs:

library(htmltools)
library(shiny)

inputs = tagList(
  selectInput(\'first\', \'FIRST\', letters), 
  checkb