EVOLUTION-MANAGER
Edit File: material_file_input.html
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><title>R: Create a shinymaterial file input</title> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <link rel="stylesheet" type="text/css" href="R.css" /> </head><body> <table width="100%" summary="page for material_file_input {shinymaterial}"><tr><td>material_file_input {shinymaterial}</td><td style="text-align: right;">R Documentation</td></tr></table> <h2>Create a shinymaterial file input</h2> <h3>Description</h3> <p>Build a shinymaterial file input. </p> <h3>Usage</h3> <pre> material_file_input(input_id, label = "File", color = NULL) </pre> <h3>Arguments</h3> <table summary="R argblock"> <tr valign="top"><td><code>input_id</code></td> <td> <p>String. The input identifier used to access the value.</p> </td></tr> <tr valign="top"><td><code>label</code></td> <td> <p>String. The file input button text.</p> </td></tr> <tr valign="top"><td><code>color</code></td> <td> <p>String. The color of the file input. Leave empty for the default color. Visit <a href="https://materializecss.com/color.html">https://materializecss.com/color.html</a> for a list of available colors. <em>This input requires using color hex codes, rather than the word form. E.g., "#ef5350", rather than "red lighten-1".</em></p> </td></tr> </table> <h3>Examples</h3> <pre> if (interactive()) { ui <- material_page( material_row( material_column( width = 12, material_file_input( input_id = "file_1", label = "file" ) ) ), material_row( material_column( width = 12, tableOutput("contents") ) ) ) server <- function(input, output) { output$contents <- renderTable({ # input$file_1 will be NULL initially. After the user selects # and uploads a file, it will be a data frame with 'name', # 'size', 'type', and 'datapath' columns. The 'datapath' # column will contain the local filenames where the data can # be found. in_file <- input$file_1 if (is.null(in_file)) return(NULL) read.csv(in_file$datapath) }) } shinyApp(ui, server) } </pre> <hr /><div style="text-align: center;">[Package <em>shinymaterial</em> version 1.2.0 <a href="00Index.html">Index</a>]</div> </body></html>