闪亮：文本输入在R中不响应
我写了一些代码，让情节变得光鲜亮丽。我在使用plot（c（12,11））时得到了这些图，正如您在代码中所看到的，但是当我使用plot（c（input$vec））或plot（input$vec）时，我没有改变这些图闪亮：文本输入在R中不响应,r,shiny,R,Shiny,我写了一些代码，让情节变得光鲜亮丽。我在使用plot（c（12,11））时得到了这些图，正如您在代码中所看到的，但是当我使用plot（c（input$vec））或plot（input$vec）时，我没有改变这些图 库（闪亮） 图书馆（GG2） 图书馆（dplyr） 图书馆（purrr） ui问题在于input$vec是一个字符串。要在函数中使用输入，首先必须将字符串拆分为单个数字并转换为数字，例如，使用vec问题在于input$vec是一个字符串。要在函数中使用输入，首先必须将字符串拆分为单个
库（闪亮）
图书馆（GG2）
图书馆（dplyr）
图书馆（purrr）
ui问题在于input$vec
是一个字符串。要在函数中使用输入，首先必须将字符串拆分为单个数字并转换为数字，例如，使用vec问题在于input$vec
是一个字符串。要在函数中使用输入，首先必须将字符串拆分为单个数字并转换为数字，例如使用vec
library(shiny)
library(ggplot2)
library(dplyr)
library(purrr)
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
textInput('vec', 'Enter a vector (comma delimited)', "0,1")
),
mainPanel(
plotOutput(outputId = "distPlot"),
)
)
)
server <- function(input, output) {
output$distPlot <- renderPlot({
qo <- function(x,m) {
p<-x^3+m^3
return(p)
}
plot <- function(m) {
ggplot(tibble(x = c(-10, 20)), aes(x)) +
map(m,
~stat_function(fun = qo, aes(color = paste0("heat ", .)), args=list(m = .)))
}
vec <- as.numeric(trimws(unlist(strsplit(input$vec, split = ","))))
plot(vec)
})
}
shinyApp(ui,server)