Can't use shiny inputs inside withTags call
Nobody has claimed this yet.
Assessment
- Difficulty
- 3/5
- Estimated time
- 1-2 days
- Newbie friendliness
- 38/100
Research direction
Start with the reproducible shinyApp example and inspect htmltools::withTags, especially how div, h3, and p are evaluated. Confirm the fix by rerunning the example and verifying that withTagsOut1 renders the same text as withoutWithTagsOut without assigning input$testinput to tmp.
Written by the indexing model from the issue text.
Description
Using shiny inputs inside a withTags call results in:
Error in $: object of type 'closure' is not subsettable
Writing the input to a temporary variable avoids the issue.
Please check the following example:
library(shiny)
library(htmltools)
ui <- fluidPage(
p("withTags test"),
numericInput(
inputId = "testinput",
label = "testinput",
value = 1,
min = 1,
max = 10
),
hr(),
uiOutput("withoutWithTagsOut"),
hr(),
uiOutput("withTagsOut1"),
hr(),
uiOutput("withTagsOut2"),
)
server <- function(input, output, session) {
# Using tags$ each time
output$withoutWithTagsOut <- renderUI({
tags$div(class = "myclass",
tags$h3("header"),
tags$p(paste0("text", input$testinput))
)
})
# Equivalent to above, but using withTags
output$withTagsOut1 <- renderUI({
withTags(
div(class = "myclass",
h3("header"),
p(paste0("text", input$testinput)) # Error in $: object of type 'closure' is not subsettable
)
)
})
output$withTagsOut2 <- renderUI({
tmp <- input$testinput
withTags(
div(class = "myclass",
h3("header"),
p(paste0("text", tmp)) # works
)
)
})
}
shinyApp(ui, server)
Coming from here.
- Dominant language
- R
- Stars
- 225
- Forks
- 73
- PR merge metrics
- No merged PRs in 30d
Contributor guide
First steps
- Read the whole issue, then the project's contributing guide.
- Comment on the issue to say you are picking it up — it saves two people doing the same work.
- Fork the repository and make your change on a branch.
- Open a pull request that references the issue number.
More from rstudio/htmltools
-
Difficulty 2/5 1-3 hours Newbie friendliness 72/100
-
Difficulty 4/5 3-5 days Newbie friendliness 38/100
-
Consider removing empty `.shiny-html-output` containers from document flow in fillable containers Open
Difficulty 3/5 1-2 days Newbie friendliness 45/100
-
Difficulty 2/5 1-3 hours Newbie friendliness 48/100
-
Difficulty 5/5 Over a week Newbie friendliness 35/100
All issues in rstudio/htmltools
Similar issues
-
Difficulty 2/5 1-3 hours Newbie friendliness 82/100
r-lib/pkgdepends#485 · 3 comments ·
-
Difficulty 1/5 Under an hour Newbie friendliness 92/100
-
beginners blocker
Difficulty 2/5 1-3 hours Newbie friendliness 78/100
-
enviPathR OpenBuild Error Build OK Build Warning policies-accepted pre-review precheck-passed
Difficulty 1/5 Under an hour Newbie friendliness 84/100
Bioconductor/BiocContributions#207 · 6 comments ·
-
Difficulty 2/5 1-3 hours Newbie friendliness 74/100
datacarpentry/semester-biology#1255 ·