В R Shiny есть способ создать кнопку с надписью «Добавить поле», которая при нажатии добавит еще одно поле ввода текста? Я хотел бы взять этот код:R Shiny: Как создать кнопку «Добавить поле»
shinyUI(fluidPage(
titlePanel("Resume Text Analysis"),
sidebarLayout(position = "right",
mainPanel(h2("Qualified Applicants"), dataTableOutput("table")),
sidebarPanel(h2("Specifications"),
textInput("filepath", label = h4("Paste the file path for the folder of '.txt' files you would like included in the analysis.")),
helpText("Choose up to 10 words that a qualified applicant should have in their resume. These can be skills, programming languages, certifications, etc."),
textInput("word1", label = h3("Term 1"),
value = ""),
textInput("word2", label = h3("Term 2"),
value = ""),
textInput("word3", label = h3("Term 3"),
value = ""),
textInput("word4", label = h3("Term 4"),
value = ""),
textInput("word5", label = h3("Term 5"),
value = ""),
textInput("word6", label = h3("Term 6"),
value = ""),
textInput("word7", label = h3("Term 7"),
value = ""),
textInput("word8", label = h3("Term 8"),
value = ""),
textInput("word9", label = h3("Term 9"),
value = ""),
textInput("word10", label = h3("Term 10"),
value = ""),
helpText("A qualified applicant will have a resume with at least ___ of the terms above."),
numericInput("morethan",
label = h3("Number of terms required:"),
min = 1, max = 9, value = 1),
submitButton("Analyze!")
)
)))
и уменьшить его:
shinyUI(fluidPage(
titlePanel("Resume Text Analysis"),
sidebarLayout(position = "right",
mainPanel(h2("Qualified Applicants"), dataTableOutput("table")),
sidebarPanel(h2("Specifications"),
textInput("filepath", label = h4("Paste the file path for the folder of '.txt' files you would like included in the analysis.")),
helpText("Choose up to 10 words that a qualified applicant should have in their resume. These can be skills, programming languages, certifications, etc."),
textInput("word1", label = h3("Term 1"),
value = ""),
helpText("A qualified applicant will have a resume with at least ___ of the terms above."),
numericInput("morethan",
label = h3("Number of terms required:"),
min = 1, max = 9, value = 1),
submitButton("Analyze!")
)
)))
с возможностью добавить столько полей, сколько пользователь хотел бы, насколько условия.
Кроме того, как мы будем перекодировать сервер так, чтобы при добавлении нового поля в ui он также автоматически включался в код? (. Ех добавляет новый вход $ wordx в список):
library(tm)
shinyServer(
function(input, output) {
observe({
if(is.null(input$filepath) || nchar(input$filepath) == 0) return(NULL)
if(!dir.exists(input$filepath)) return(NULL)
output$table <- renderDataTable({
as.data.frame(qualified)
})
cname <- file.path(input$filepath)
dir(cname)
length(dir(cname))
docs <- Corpus(DirSource(cname))
toSpace <- content_transformer(function(x, pattern) gsub(pattern, " ", x))
docs <- tm_map(docs, toSpace, "/|@|\\|")
docs <- tm_map(docs, content_transformer(tolower))
docs <- tm_map(docs, removePunctuation)
docs <- tm_map(docs, removeWords, stopwords ("english"))
docs <- tm_map(docs, removeNumbers)
dtm <- DocumentTermMatrix(docs)
d <- c(input$word1, input$word2, input$word3, input$word4, input$word5, input$word6, input$word7, input$word8, input$word9, input$word10)
list<-DocumentTermMatrix(docs,list(dictionary = d))
relist=as.data.frame(as.matrix(list))
res<- do.call(cbind,lapply(names(relist),function(n){ ifelse(relist[n] > 0, 1,0)}))
totals <- rowSums(res, na.rm=TRUE)
docname=dir(cname)
wordtotals=cbind(docname, totals)
num = input$morethan
df <- data.frame("document"=docname, "total"=totals)
output$table <- renderDataTable({
df[df$total >= as.numeric(num), ]
})
})
}
)
использования «renderUI» и на сервере использовать вход, который соответствует именам добавленных элементов. – jenesaisquoi