R 如何修改和操作有光泽的反应对象/数据帧
我有一个非常简单的csv文件R 如何修改和操作有光泽的反应对象/数据帧,r,shiny,R,Shiny,我有一个非常简单的csv文件 > head(data) X Y 1 1/1/1900 1 2 1/2/1900 2 3 1/3/1900 4 4 1/4/1900 8 5 16 我有一个shinny应用程序,在用户上传文件后打印该文件 这是密码 library(shinydashboard) ui <- dashboardPage( dashboardHeader(title = "Basic dashboard"), da
> head(data)
X Y
1 1/1/1900 1
2 1/2/1900 2
3 1/3/1900 4
4 1/4/1900 8
5 16
我有一个shinny应用程序,在用户上传文件后打印该文件
这是密码
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(title = "Basic dashboard"),
dashboardSidebar(
fileInput("file1", "Choose CSV File",
multiple = TRUE,
accept = c("text/csv",
"text/comma-separated-values,text/plain",
".csv")),
sidebarMenu(
menuItem("Dashboard", tabName = "dashboard", icon = icon("dashboard")),
menuItem("Widgets", tabName = "widgets", icon = icon("th"))
)
),
dashboardBody(
tabItems(
# First tab content
tabItem(tabName = "dashboard",
fluidRow(
box(plotOutput("plot1", height = 250))
)
),
# Second tab content
tabItem(tabName = "widgets",
h2("Widgets tab content")
)
)
)
)
server <- function(input, output) {
options(shiny.maxRequestSize=100*1024^2)
data <- reactive({
inFile <- input$file1
if(!is.null(inFile)){
read.csv(inFile$datapath, header = TRUE, stringsAsFactors = FALSE)
}
})
output$plot1 <- renderPlot({
req(data())
plot(data()$X, data()$Y)
})
}
shinyApp(ui, server)
库(ShinydaShashboard)
ui您可以将被动对象分配给变量
data <- reactive({
inFile <- input$file1
if(!is.null(inFile)) {
read.csv(inFile$datapath, header = TRUE, stringsAsFactors = FALSE)
}
})
dat <- data()
dat$X <- as.Date(dat$X)
dat <- dat[-5,]
dat$Y <- dat$Y * 10
output$plot1 <- renderPlot({
plot(dat$X, dat$Y)
})
数据您可以将其指定给另一个对象,修改并打印它。例如:dat感谢一百万就像一个符咒,如果你想把它作为一个答案,我会接受它,再次感谢:)