update to qenv

[nikolas-burkoff]

Part of insightsengineering/teal.code#34 see insightsengineering/teal.code#74

I also replaced dontrun with if (interactive()) as it was annoying me so much not being able to run the apps in RSrudio easily

[Polkas]

LGTM - approve

[nikolas-burkoff]

I don't like this, but if I don't do this I get an error from teal saying if filters = NULL then you cannot use data

[nikolas-burkoff]

@pawelru this is starting to look really nice - it shouldn't be too hard to remove the do.call etc.

library(teal.modules.general)
library(shiny)

data <- new_tdata(list(iris = iris))

var_brow <- tm_variable_browser()
dat_tab <- tm_data_table()

ui <- fluidPage(
  fluidRow(
    column(8, do.call(var_brow$ui, c(list(id = "id_1", data = data), var_brow$ui_args))),
    column(4, do.call(dat_tab$ui, c(list(id = "id_2", data = data), dat_tab$ui_args)))
  )
)

server <- function(input, output, session) {
  do.call(var_brow$server, c(list("id_1", data = data), var_brow$server_args))
  do.call(dat_tab$server, c(list("id_2", data = data), dat_tab$server_args))
}

shinyApp(ui, server)

Note the reporter buttons don't do anything and after insightsengineering/teal#678 they won't appear at all

[mhallal1]

LGTM