data <- curve_sample3d(
function(t) 2 * cos(t),
function(t) 3 * sin(t),
function(t) t / 5,
0, 2 * pi, 100
)
# \donttest{
if (requireNamespace("plotly", quietly = TRUE)) {
plot_curve3d(data, line = list(color = "red", width = 4))
}
# }
Run the code above in your browser using DataLab