{"app.R": "library(shiny)\nlibrary(plotly)\nlibrary(dplyr)\nlibrary(tidyr)\nlibrary(viridis)\n\n# Source helper files\nsource(\"data.R\")\nsource(\"ui.R\") \nsource(\"server.R\")\n\n# Create and run the Shiny app\nshinyApp(ui = ui, server = server)", "data.R": "# Generate spiral helix data\ngenerate_helix <- function(n=100, noise=0.1) {\n t <- seq(0, 4*pi, length.out=n)\n x <- cos(t) + rnorm(n, 0, noise)\n y <- sin(t) + rnorm(n, 0, noise)\n z <- t/2 + rnorm(n, 0, noise)\n data.frame(x=x, y=y, z=z)\n}\n\n# Generate surface data\ngenerate_surface <- function(n=30) {\n x <- seq(-5, 5, length.out=n)\n y <- seq(-5, 5, length.out=n)\n grid <- expand.grid(x=x, y=y)\n grid$z <- with(grid, sin(x)*cos(y))\n grid\n}\n\n# Generate 3D clusters\ngenerate_clusters <- function(n_per_cluster=50) {\n centers <- list(\n c(0, 0, 0),\n c(3, 3, 3),\n c(-2, 2, -2)\n )\n \n clusters <- lapply(seq_along(centers), function(i) {\n center <- centers[[i]]\n data.frame(\n x = rnorm(n_per_cluster, mean=center[1], sd=0.5),\n y = rnorm(n_per_cluster, mean=center[2], sd=0.5),\n z = rnorm(n_per_cluster, mean=center[3], sd=0.5),\n cluster = factor(i)\n )\n })\n \n do.call(rbind, clusters)\n}", "server.R": "library(shiny)\nlibrary(plotly)\nlibrary(magrittr)\nsource('data.R')\nserver <- function(input, output, session) {\n \n # Reactive data generators\n helix_data <- reactive({\n generate_helix(100, 0.1)\n })\n \n surface_data <- reactive({\n generate_surface(input$surfaceRes)\n })\n \n cluster_data <- reactive({\n generate_clusters(50)\n })\n \n # Main plot output\n output$plot3D <- renderPlotly({\n p <- switch(input$vizType,\n 'helix' = {\n data <- helix_data()\n plot_ly(data, x = ~x, y = ~y, z = ~z,\n type = 'scatter3d', mode = 'markers',\n marker = list(size = input$pointSize,\n opacity = input$opacity)) %>%\n layout(scene = get_scene_layout())\n },\n 'surface' = {\n data <- surface_data()\n plot_ly() %>%\n add_surface(\n x = unique(data$x),\n y = unique(data$y),\n z = matrix(data$z, nrow = input$surfaceRes),\n opacity = input$opacity,\n colorscale = get_colorscale(),\n contours = if(input$showContours) {\n list(\n z = list(show = TRUE, usecolormap = TRUE,\n project = list(z = TRUE))\n )\n } else {\n list()\n }\n ) %>%\n layout(scene = get_scene_layout())\n },\n 'clusters' = {\n data <- cluster_data()\n plot_ly(data, x = ~x, y = ~y, z = ~z,\n type = 'scatter3d', mode = 'markers',\n color = ~cluster,\n marker = list(size = input$pointSize,\n opacity = input$opacity)) %>%\n layout(scene = get_scene_layout())\n }\n )\n \n # Add common layout settings\n p %>% layout(\n scene = list(\n camera = list(\n eye = list(x = 1.5, y = 1.5, z = 1.5)\n )\n )\n )\n })\n \n # Helper function for scene layout\n get_scene_layout <- reactive({\n list(\n xaxis = list(showgrid = input$showGrid, visible = input$showAxes),\n yaxis = list(showgrid = input$showGrid, visible = input$showAxes),\n zaxis = list(showgrid = input$showGrid, visible = input$showAxes)\n )\n })\n \n # Helper function for color scales\n get_colorscale <- reactive({\n switch(input$colorScheme,\n 'Viridis' = 'Viridis',\n 'Magma' = 'Magma',\n 'Plasma' = 'Plasma')\n })\n \n}", "ui.R": "library(shiny)\nlibrary(plotly)\nui <- fluidPage(\n titlePanel('3D Data Visualizations'),\n \n sidebarLayout(\n sidebarPanel(\n selectInput('vizType', 'Visualization Type',\n choices = c('Spiral Helix' = 'helix',\n 'Surface Plot' = 'surface',\n '3D Clusters' = 'clusters')),\n \n # Common controls\n sliderInput('pointSize', 'Point Size', \n min = 1, max = 10, value = 3),\n sliderInput('opacity', 'Opacity',\n min = 0.1, max = 1, value = 0.8),\n \n # Surface plot specific controls\n conditionalPanel(\n condition = \"input.vizType == 'surface'\",\n sliderInput('surfaceRes', 'Resolution',\n min = 10, max = 50, value = 30),\n selectInput('colorScheme', 'Color Scheme',\n choices = c('Viridis', 'Magma', 'Plasma')),\n checkboxInput('showContours', 'Show Contours', TRUE)\n ),\n \n # Animation controls\n sliderInput('animSpeed', 'Animation Speed',\n min = 0, max = 2, value = 1, step = 0.1),\n \n # Axis settings\n checkboxInput('showAxes', 'Show Axes', TRUE),\n checkboxInput('showGrid', 'Show Grid', TRUE)\n ),\n \n mainPanel(\n plotlyOutput('plot3D', height = '600px')\n )\n )\n)", "install.R": "install.packages('dplyr')\ninstall.packages('magrittr')\ninstall.packages('plotly')\ninstall.packages('shiny')\ninstall.packages('tidyr')\ninstall.packages('viridis')", "startApp.R": "\nlibrary(shiny)\noptions(shiny.host = '0.0.0.0')\noptions(shiny.port = 80)\nrunApp('app.R')\n"}